Delay 5000
//搜索选择分辨率（下面）
dim color(2)
dim s7,x,y
color(0)="dc3e00":color(1)="31faff":color(2)="31faff"
VBSCall FindCenterColor(781, 79,835, 351,color(s7),x,y)
If x>0 and y>0
    Goto 10101010
Else 
    Goto 10101011
EndIf 
Rem 10101010
//搜索是否密码错误（下面）
dim color(2)
dim s8,x,y
color(0)="297cc1":color(1)="31faff":color(2)="31faff"
VBSCall FindCenterColor(370, 367,411, 539,color(s8),x,y)
If x>0 and y>0
    Goto 1200
Else 
EndIf 
MoveTo 368,381
LeftClick 1
Delay 40
LeftClick 1
Delay 40
LeftClick 1
Delay 1000
MoveTo 399,503
LeftClick 1
Delay 400
LeftClick 1
EndIf 
// 计算密码长度
PSW1_Len=Len(PSW1)
ReDim a(PSW1_Len)
i=0
For PSW1_Len
    a(i) = Mid(PSW1,1+i,1)
    If Asc(a(i))>=97 and Asc(a(i))<=122
        // 英文大写
        KeyPress Asc(a(i))-32,1
    ElseIf Asc(a(i))>=65 and Asc(a(i))<=90
        // 英文小写
        KeyDown 16,1
        KeyPress Asc(a(i)),1
        KeyUp 16,1
    ElseIf Asc(a(i))>=48 and Asc(a(i))<=57
        // 数字
        KeyPress Asc(a(i)),1
    Else 
        MessageBox "密码: " & PSW1 &" 含有符号,不适用此脚本"
    EndIf 
    i = i + 1
EndFor 
KeyPress 13,1
Delay 5000
Rem 1200
UserVar Var6=DropList{第一行:1|第二行:2|第三行:3|第四行:4|第五行:5|第六行:6|第七行:7|第八行:8}=3 选择你在的区组(此项分辨率800*600).
If Var6 = 1
    Gosub 1
ElseIf Var6=2
    Gosub 2
ElseIf Var6 =3
    Gosub 3
ElseIf Var6 =4
    Gosub 4
ElseIf Var6 =5
    Gosub 5
ElseIf Var6 =6
    Gosub 6
ElseIf Var6 =7
    Gosub 7
ElseIf Var6 =8
    Gosub 8
EndIf 
Delay 1000
UserVar Var9996=DropList{是:1|否:2}=0 是否优先选择没有满员的服务器(此项分辨率800*600)
If Var9996=1
    Goto 9996
ElseIf Var9996=2
    Goto 1155998
EndIf 
Rem 1155998
Rem 549856
UserVar Var7=DropList{不选:0|服务器1:1|服务器2:2|服务器3:3|服务器4:4|服务器5:5|服务器6:6|服务器7:7|服务器8:8|服务器9:9|服务器10:10}=0 选择服务器（可以不选）(此项分辨率800*600).
If Var7=0
    Gosub 00
ElseIf Var7=1
    Gosub 01
ElseIf Var7=2
    Gosub 02
ElseIf Var7=3
    Gosub 03
ElseIf Var7=4
    Gosub 04
ElseIf Var7=5
    Gosub 05
ElseIf Var7=6
    Gosub 06