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
LeftClick 1
Delay 40
IfColor 277+x1,290+y1,20bce0,2
MoveTo x1+356,y1+307
LeftClick 1
Delay 30
LeftClick 1
Delay 20
Goto 2
Else
Goto 4
EndIf
Else
EndIf
Rem 4
Delay 300
IfColor 277+x1,290+y1,20bce0,2
Goto 2
EndIf
VBSCall MessageBox("夢幻已經進入請登陸遊戲!"
然後保存退出. 確定.
開夢幻 在服務器裏按F10 選妳要進的區. 鼠標對著妳要進的區 然後按任意鍵 就OK了