本文章共2962字,分2页,当前第2页,快速翻页:
|
MoveTo x+5,y+3
Delay 200
LeftClick 1
EndIf
Return 拒绝请求
Sub 丢垃圾
Delay 500
KeyPress 66,1
Delay 500
VBSCall FindPic(107,133,896,381,"背包.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+195,y+200
SaveMousePos
EndIf
VBS bao1=x-45
VBS bao2=y+168
VBS bao3=x+193
VBS bao4=y+340
Delay 1000
Gosub 丢
MouseWheel -7
Delay 1000
Gosub 丢
MouseWheel -8
Delay 1000
Gosub 丢
MouseWheel 15
Delay 1000
KeyPress 66,1
Delay 2000
Sub 丢
VBS i=0
For 3
Rem 是否还有
VBS x=-1
VBS y=-1
VBSCall FindPic(bao1,bao2,bao3,bao4,color(i),0.9,x,y)
If x>=0 and y>=0
MoveTo x+5,y+5
Delay 200
LeftClick 1
Delay 200
MoveTo 130,215
Delay 200
LeftClick 1
Delay 500
RestoreMousePos
Goto 是否还有
EndIf
VBS i=i+1
EndFor
Delay 200
Return 丢
Return 丢垃圾
Sub 防御
IfColor 283,107,5566ff,1
Delay 500
KeyPress 192,1
Delay 500
Goto 循环
Else
EndIf
Return 防御
|