好友
阅读权限10
听众
最后登录1970-1-1
|
d = Array(1,2,3,4,5,6,7,8,9,10)
For c = 0 to 9
i= d(c)
a = 1518
X = ""
Y = ""
G = ""
H = ""
E = ""
F = ""
If i = 1 Then b = 384
If i = 2 Then b = 433
If i = 3 Then b = 483
If i = 4 Then b = 528
If i = 5 Then b = 577
If i = 6 Then b = 630
If i = 7 Then b = 684
If i = 8 Then b = 726
If i = 9 Then b = 783
If i = 10 Then b = 824
Delay 300
MoveTo a, b
LeftClick 1
Delay 1000
Do Until intG > 0 And intH > 0
FindColor 500,606,685,684,"666260",intG,intH
Delay 1000
Loop
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 2000
MoveTo 641, 124
LeftClick 1
Delay 300
MoveTo 643, 163
LeftClick 1
Delay 1000
FindColor 412,250,764,1014,"D77800",intX,intY
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo 1474, intY
LeftClick 1
Delay 3000
MoveTo 780, 281
LeftClick 1
Delay 1000
MoveTo 692, 395
LeftClick 1
Delay 3000
SayString "高效"
Delay 2000
KeyPress "Down", 1
Delay 1000
KeyPress "Enter", 1
Delay 3000
MoveTo 879, 489
LeftClick 1
Delay 3000
Do Until intE > 0 And intF > 0
FindColor 500,606,685,684,"666260",intE,intF
Delay 1000
Loop
Delay 3000
MoveTo 479, 219
LeftClick 1
Delay 3000
MoveTo 503, 218
LeftClick 1
Delay 3000
MoveTo 342, 218
LeftClick 1
Delay 3000
Else
Delay 2000
MoveTo 481, 217
LeftClick 1
Delay 2000
End If
Next |
|