多开几个窗口好过你用按键精灵 梦幻西游 按键精灵 挤新区脚本 msgbox"请关闭梦幻和其他程序窗口,点确定后选择你游戏存放的文件夹!" & chr(13) & " --Craly制作" ,48,"Craly"
msgbox"如果你感觉本程序很简单请自己编写,本人不欠任何不认识人的东西,所有没有义务为你服务,请自尊!",48,"Craly提示:"
n1001=inputbox("输入你要挤的大区的列数","Craly","5")
n1002=inputbox("输入你要挤的大区的行数","Craly","1")
n1003=inputbox("输入你要挤的服务器的列数","Craly","4")
n1004=inputbox("输入你要挤的服务器的行数","Craly","11")
VBSEnd
Plugin a1=File.SelectDirectory()
VBSBegin
un=InputBox("输入你的账号:","Craly","uaername")
pw=InputBox("输入你的密码:","Craly","password")
msgBox "OK!点确定后不要进行任何操作!我们开始!",48,"设置完毕请不要再动鼠标键盘!"
VBSEnd
If a1=0
a1="E:\网络游戏\梦幻西游\梦幻西游\my.exe"
Else
a1=a1 & "\my.exe"
EndIf
Rem 9
KeyDown 91,1
Delay 100
KeyPress 82,1
Delay 100
KeyUp 91,1
SayString a1
Delay 100
KeyPress 13,1
Rem 5
Plugin A=Window.Find("WSGAME","梦幻西游ONLINE")
If A=0
Delay 100
Goto 5
EndIf
Plugin Window.Active(A)
Plugin s = Window.GetClientRect(A)
MyArray = Split(s, "|", -1, 1)
x1=MyArray(0)
y1=MyArray(1)
x5=781-215+x1
y5=322-130+y1
x6=790-215+x1
y6=537-130+y1
x7=207+(n1001-1)*(242-174)-146+x1
y7=229+(n1002-1)*(244-218)-119+y1
x8=207+(n1003-1)*(242-174)-146+x1
y8=229+(n1004-1)*(244-218)-119+y1
MoveTo x5,y5
LeftClick 1
Delay 200
MoveTo x6,y6
LeftClick 1
Delay 200
MoveTo x7,y7
LeftClick 1
Delay 100
MoveTo x8,y8
LeftClick 1
Delay 100
IfColor 277+x1,290+y1,20bce0,2
Goto 2
Else
MoveTo 938-309+x1,95-104+y1
LeftClick 1
Delay 300
MoveTo 532-309+x1,358-104+y1
LeftClick 1
Goto 9
EndIf
If a<>0
Rem 2
MoveTo x8,y8
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 100
IfColor 277+x1,290+y1,20bce0,2
Goto 2
EndIf
SayString un
Delay 100
KeyPress 9,1
SayString pw
KeyPress 13,1