侠义ol脚本
1. 求手机网游侠义OL按键精灵脚本(诺基亚E50)
侠义道练功房挂机脚本
VBS Dim mhy
VBS Dim mqx
VBS Dim mmx
vbs mhy=94
VBS mqx=446
VBS mmx=526
Plugin jb=Window.Find(0,"XYDClient")
If jb>0
Plugin Window.Active(jb)
Else
VBSCall MessageBox("没有起动游戏!")
EndScript
EndIf
IfColor 11 631 82d6 2
MoveTo 11 631
Delay 1000
LeftClick 1
EndIf
IfColor 233 631 82d6 2
MoveTo 233 631
Delay 1000
LeftClick 1
EndIf
MoveTo 513 391
Delay 500
LeftClick 1
Delay 2000
KeyPress 49 1
Delay 1000
MoveTo 343 627
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Rem 切换窗口
Plugin jb1=Window.Foreground()
If jb<>jb1
Plugin Window.Active(jb)
EndIf
IfColor mqx mhy 212421 2
MoveTo 343 627
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 1000
EndIf
IfColor mmx mhy 9c7500 2
KeyPress 50 w1
Delay 500
Rem 找木桩
VBSCall FindColorEx(200,100,750,650,"9CE7FF",1,1,gx,gy)
ifgx>0
gx=gx-2
gy=gy-40
MoveTo gx gy
Delay 2000
RightClick 1
Delay 2000
RightClick 1
Delay 2000
RightClick 1
Delay 2000
RightClick 1
EndIf
endif
Goto 切换窗口