多开几个窗口好过你用按键精灵 梦幻西游 按键精灵 挤新区脚本 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=0a1="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=0Delay 100Goto 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,2Goto 2
Else MoveTo 938-309 x1,95-104 y1LeftClick 1Delay 300MoveTo 532-309 x1,358-104 y1LeftClick 1Goto 9
EndIf
If a<>0Rem 2MoveTo x8,y8LeftClick 1Delay 40IfColor 277 x1,290 y1,20bce0,2MoveTo x1 356,y1 307LeftClick 1Delay 30LeftClick 1Delay 20Goto 2Else Goto 4EndIf
Else
EndIf
Rem 4
Delay 100
IfColor 277 x1,290 y1,20bce0,2Goto 2
EndIf
SayString un
Delay 100
KeyPress 9,1
SayString pw
KeyPress 13,1