中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！侠义道挂机简化版(按钮精灵)

djlz2008 - 2008-4-14 13:09:00

CODE:

sp=2
MoveTo 1012 106
Delay 200
LeftClick 1
MoveTo 333 555
Delay 1000
VBSCall FindColor(450,100,1018,505,"0000ff",mx,my)
MoveTo 1012 106
Delay 200
LeftClick 1
Delay 1000
Rem start
VBS x0=615:n=1:y0=355:x=615
VBS l=30
While x<1000
VBS x=x0+3.85*(cos(n)+n*sin(n))
VBS y=y0+2.45*(sin(n)-n*cos(n))

Gosub findg
VBS r=Sqr((x-x0)^2+(y-y0)^2)
VBS n=n+sp*l/r
EndFor
Rem f1
MoveTo 1012 106
Delay 200
LeftClick 1
Delay 1000
MoveTo mx my
LeftClick 1
Delay 2000
Rem finish
Goto start

扫描子程序

[复制到剪贴板]

CODE:

Sub findg
MoveTo x y
VBSCall shape=GetCursorShape(0)
If shape=1636693117
Gosub fight
Goto finish
ElseIf shape=0

RightClick 2
Delay 2000
Goto finish
EndIf
Return findg

留学之家留学DIY社区