本文章共7905字,分6页,当前第5页,快速翻页:
|
MoveTo 831 368
Delay 150
LeftClick 1
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If abs(dqx-yd_x)<=hit_xy/3 and abs(dqy-yd_y)<=hit_xy/3
Delay 70
Goto 回挂机范围结束
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If dqx>yd_x
MoveTo 192 236
Delay 150
LeftClick 1
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If dqx<yd_x
MoveTo 831 511
Delay 150
LeftClick 1
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If dqy>yd_y
MoveTo 853 227
Delay 150
LeftClick 1
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If dqy<yd_y
MoveTo 227 511
Delay 150
LeftClick 1
EndIf
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
If abs(dqx-yd_x)<=hit_xy/3 and abs(dqy-yd_y)<=hit_xy/3
Delay 70
Goto 回挂机范围结束
EndIf
Goto pand
Rem 回挂机范围结束
Return 回挂机范围结束
Sub 自动辅助
//自动辅助子程序
If datediff("s",fz1,now)>fsj1*60
Delay 200
KeyPress fj1,1
fz1=now
EndIf
If datediff("s",fz2,now)>fsj2*60
Delay 200
KeyPress fj2,1
fz2=now
EndIf
If datediff("s",fz3,now)>fsj3*60
Delay 200
KeyPress fj3,1
fz3=now
EndIf
If datediff("s",fz4,now)>fsj4*60
|