本文章共7905字,分6页,当前第3页,快速翻页:
|
Goto s
EndIf
Goto check2
Else
Gosub 拾取方式
//拾取方式 两种
Rem checkxy
VBSCall ReadMemory(bitx,2,dqx)
Delay 70
VBSCall ReadMemory(bity,2,dqy)
Delay 70
//msgbox dqx&"|"&dqy
If abs(yd_x-dqx)>hit_xy/2 or abs(yd_y-dqy)>hit_xy/2
Delay 70
Gosub 回挂机范围
EndIf
Goto s
EndIf
Else
Delay 700
Goto s
EndIf
EndIf
EndIf
EndIf
Goto s
Sub 拾取方式
//分别为全部拾取和只拾取金币
If pick=1
For picknum
KeyPress 32,1
Delay 350
EndFor
EndIf
If pick=2
For picknum
VBSCall FindColorEx(0,0,1024,768,"0fdcfd",1,0.9,pickx,picky)
If pickx>=0 and picky>=0
MoveTo pickx picky
Delay 100
LeftClick 1
EndIf
|