该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim intX, intY
Dim intXS, intYS
Dim Delay1
Randomize
intXS = Int((1300 - 1280 + 1) * Rnd + 1280)
intYS = Int((740 - 720 + 1) * Rnd + 720)
Rem S
Randomize
Delay1 = Int((600 - 300 + 1) * Rnd + 300)
Rem A
FindPic 0, 0, 0, 0, "Attachment:01.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Delay Delay1
Tap intXS, intYS
Else
Goto A
End If
Randomize
Delay1 = Int((600 - 300 + 1) * Rnd + 300)
Rem A2
FindPic 0, 0, 0, 0, "Attachment:02.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Delay Delay1
Tap intXS, intYS
Else
Goto A2
End If
Rem A3
FindPic 352, 563, 1087, 571, "Attachment:03.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intXS, intYS
Else
Goto A3
End If
Randomize
Delay1 = Int((3300 - 3000 + 1) * Rnd + 3000)
Delay Delay1
FindPic 0, 0, 0, 0, "Attachment:01.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Goto S
Else
Tap intXS, intYS
Goto S
End If