UserVar Var1=40 帐号数量 VBS dim id,pw,x,info,Color2 Plugin info=Sys.GetScRY() If info=768 Goto Color Else MessageBox "请设置为1024*768分辨率" Goto 结束 EndIf Rem Color Plugin Color2=Sys.GetScDep() If Color2=32 Goto 启动 Else MessageBox "请设置为32位颜色质量" Goto 结束 EndIf Plugin AllTxt=File.ReadFile("c:\id.txt") MyArray=Split(AllTxt,"|") If Var1>UBound(MyArray) MessageBox "你填的帐号数量超出!!" EndScript EndIf x=1 Rem 启动 For Var1 id=MyArray(x) pw=MyArray(0) Gosub 子程序1 SayString id Delay 100 KeyPress 9,1 Delay 100 SayString pw Gosub 子程序2 x=x+1 EndFor EndScript Sub 子程序1 Delay 200 Rem 启动外挂 MoveTo 741,573 Delay 100 MoveTo 767,572 Delay 200 LeftClick 1 Delay 200 Rem 选择服务器 IfColor 644,658,deebef,2 MoveTo 644,658 Delay 200 LeftClick 1 Else Goto 选择服务器 EndIf Rem 准备输入 IfColor 645,191,ef,2 Goto 输入帐号 Else Goto 准备输入 EndIf Rem 输入帐号 Delay 100 Return 子程序1 Sub 子程序2 Delay 400 KeyPress 13,1 Rem 选择人物 IfColor 366,605,deebef,2 Delay 200 KeyPress 13,1 Else Goto 选择人物 EndIf Rem 进入游戏 IfColor 172,148,63f75a,2 Delay 400 MoveTo 839,219 Delay 200 LeftClick 1 Delay 200 MoveTo 202,630 Delay 200 LeftClick 1 Delay 200 KeyPressH 119,1 Delay 50 KeyPressH 118,1 Delay 50 KeyPressH 123,1 Delay 50 Else Goto 进入游戏 EndIf KeyPressH 36,1 Rem 呼挂 IfColor 378,523,ced3d6,2 Delay 400 MoveTo 476,571 Delay 400