俠義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 切換窗口