|
63楼
发表于 2007-11-25 16:57:03
|
只看该作者
来自:湖北
要进,昆鱼山 很简单
1按,键.精.灵
2
VBSCall MessageBox("请使用窗口模式!")
VBSCall MessageBox("请点确定后把鼠标移动到你挤的区的位置然后按任意键继续 ")
WaitKey
VBSCall GetCursorPos(x0,y0)
Rem 1
Plugin A=Window.Find("WSGAME","开云(中国)官方ONLINE")
Plugin Window.Active(A)
Plugin s = Window.GetClientRect(A)
MyArray = Split(s, "|", -1, 1)
x1=MyArray(0)
y1=MyArray(1)
x3=x0-x1
y3=y0-y1
If a<>0
Rem 2
MoveTo x1+x3,y1+y3
Rem 3
LeftClick 1
Delay 300
MoveTo x1+100,y1+300
RightClick 1
Delay 300
IfColor 277+x1,290+y1,20bce0,2
MoveTo x1+356,y1+307
LeftClick 1
Delay 300
LeftClick 1
Goto 2
Else
Goto 4
EndIf
Else
EndIf
Rem 4
Delay 300
IfColor 277+x1,290+y1,20bce0,2
Goto 2
EndIf
VBSCall MessageBox("梦幻已经进入请登陆游戏!") |
|