谁帮我做一下梦幻按贱精灵脚本，奖励高~！

自己做个把

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("梦幻已经进入请登陆游戏！")

VBSCall MessageBox("请使用窗口模式！")
VBSCall MessageBox("请点确定后把鼠标移动到你挤的区的位置然后按任意键继续 ")
WaitKey