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