Dim x, y, time
Randomize
x = Int((30 – (-30) + 1) * Rnd + (-30))
y = Int((10 – (- 10 ) + 1) * Rnd + (- 10 ))
time = Int((200 – (- 1 ) + 1) * Rnd + (- 1 ))
IfColor 1200, 50, “ffffff”, 0 Then
MoveTo 200, 180
LeftClick 1
End If
IfColor 226, 287, “7800eb”, 0 Then
MoveTo 357 + x, 485 + y
LeftClick 1
Delay 1000 + time
End If
IfColor 1228, 89, “ff7a00”, 0 Then
MoveTo 1228 + y, 89 + y
LeftClick 1
End If
IfColor 720, 59, “ff7a00”, 0 Then
Delay 2000 + time
MoveTo 174 + x, 147 + y
LeftClick 1
Delay 3000 + time
IfColor 331, 388, “ffffff”, 0 Then
MoveTo 1057 + x, 629 + y * 2
LeftClick 1
Delay 3000 + time
End If
End If
IfColor 723, 192, “fe7900”, 0 Then
IfColor 764, 192, “fefefe”, 0 Then
IfColor 678, 192, “fefefe”, 0 Then
MoveTo 809 + x, 365 + y * 5
LeftClick 1
Delay 3000 + time
End If
End If
End If
IfColor 404, 126, “2f3bff”, 0 Then
Delay 1000 + time
IfColor 206, 195, “ffffff”, 0 Then
MoveTo 206 + x, 195 + y
LeftClick 1
Delay 2000 + time
MoveTo 96 + x, 312 + y
LeftClick 1
Delay 3000 + time
MoveTo 747 + x, 186 + y
LeftClick 1
Delay 3000 + time
End If
IfColor 30, 615, “FFFFFF”, 0 Then
MoveTo 30 + x, 545 + y
LeftClick 1
Else
MoveTo 639 + x, 545 + y
LeftClick 1
End If
Delay 2000 + time
MoveTo 1111 + x, 717 + y
LeftClick 1
Delay 6000 + time
MoveTo 639 + x, 450 + y
LeftClick 1
Delay 2000 + time
MoveTo 156 + x, 717 + y
LeftClick 1
End If
IfColor 260,211,”2f3bff”,0 Then
Delay 2001 + time
IfColor 837, 208, “2f3bff”, 0 Then
MoveTo 803 + x, 255 + y*3
LeftClick 1
Delay 213 + time
MoveTo 803 + x, 407 + y*3
LeftClick 1
Delay 209 + time
MoveTo 803 + x, 559 + y*3
LeftClick 1
Delay 230 + time
End If
MoveTo 454 + x, 254 + y*3
LeftClick 1
Delay 231 + time
MoveTo 454 + x, 406 + y*3
LeftClick 1
Delay 210 + time
MoveTo 454 + x, 558 + y*3
LeftClick 1
Delay 224 + time
MoveTo 745 + x, 713 + y
LeftClick 1
Delay 2012 + time
MoveTo 627 + x, 245 + y
LeftClick 1
Delay 2052 + time
MoveTo 512 + x, 414 + y
LeftClick 1
Delay 2031 + time
MoveTo 716 + x, 446 + y
LeftClick 1
Delay 6047 + time
MoveTo 716 + x, 537 + y
LeftClick 1
Delay 2013 + time
MoveTo 1113 + x, 719 + y
LeftClick 1
Delay 2087 + time
End If
IfColor 1091,710,”fd7900″,0 Then
MoveTo 1107 + x * 4, 717 + y * 3
LeftClick 1
Delay 2001 + time
End If
IfColor 705,605,”f1decb”,0 Then
MoveTo 705 + x, 605 + y
LeftClick 1
Delay 102 + time
End If
IfColor 37,117,”472344″,2 Then
MoveTo 1091 + x + x, 710 + y
LeftClick 1
Delay 102 + time
End If
IfColor 82,184,”472344″,2 Then
MoveTo 1091 + x + x, 710 + y
LeftClick 1
Delay 110 + time
End If
IfColor 706, 500, “F1DECB”, 0 Then
MoveTo 706 + x, 500 + y
LeftClick 1
Delay 102 + time
End If
IfColor 710, 714, “f4eeee”, 0 Then
MoveTo 638 + x+ x, 717 + y
LeftClick 1
Delay 500 + time
End If
IfColor 738, 553, “F1DECB”, 0 Then
MoveTo 738 + x, 553 + y
LeftClick 1
Delay 1102 + time
MoveTo 722 + x, 711 + y
LeftClick 1
Delay 1202 + time
End If
IfColor 722, 459, “F1DECB”, 0 Then
MoveTo 722 + x, 459 + y
LeftClick 1
Delay 104 + time
End If
IfColor 93, 468, “fe7900”, 0 Then
IfColor 93, 604, “fe7900”, 0 Then
IfColor 183, 714, “fe7900”, 0 Then
MoveTo 183 + x, 714 + y
LeftClick 1
Delay 2000 + time
End If
End If
End If
IfColor 1149, 591, “ff7a00”, 0 Then
IfColor 586, 591, “ff7a00”, 0 Then
IfColor 1101, 591, “ffffff”, 0 Then
MoveTo 920 + x, 400 + y
LeftClick 1
Delay 2000 + time
End If
End If
End If
Delay 100 + time
=========================
BY B站hoassi,APP图标放第一行第一列