MoveTo 637,567
LeftClick 1
Delay 400
//搜索是否与服务器的连接状态不稳定（下面）
dim color(2)
dim s3,x,y
color(0)="ea5500":color(1)="ea5500":color(2)="ea5500"
VBSCall FindCenterColor(397, 309,629, 340,color(s3),x,y)
If x>0 and y>0
    Delay 1000
    MoveTo 509,404
    LeftClick 1
    Delay 1000
    MoveTo 653,525
    LeftClick 1
    Delay 30
    LeftClick 1
    Delay 1000
    MessageBox "与服务器的连接状态不稳定，脚本程序退出！"
    EndScript 
Else 
EndIf 
//搜索“游戏开始”（下面）
dim color(2)
dim s0,x,y
color(0)="600033":color(1)="31faff":color(2)="31faff"
VBSCall FindCenterColor(0,0,1024,570,color(s0),x,y)
If x>0 and y>0
    MoveTo X,Y
    Delay 30
    LeftClick 1
    Delay 30
    LeftClick 1
Else 
EndIf 
Rem 110012
//搜索是否进入登陆页面（下面）
dim color(2)
dim s5,x,y
color(0)="628":color(1)="31faff":color(2)="31faff"
VBSCall FindCenterColor(0,0,1024,570,color(s5),x,y)
If x>0 and y>0
    Delay 1000
    MoveTo X,Y
    Delay 30
    LeftClick 1
    Delay 30
    LeftClick 1
Else 
    Delay 3000
    Goto 110012
EndIf 
UserVar PSW="AbcdzZ12345" 请输入你的帐号
// 计算密码长度
PSW_Len=Len(PSW)
ReDim a(PSW_Len)
i=0
For PSW_Len
    a(i) = Mid(PSW,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 "帐号: " & PSW &" 含有符号,不适用此脚本"
    EndIf 
    i = i + 1
EndFor 
KeyPress 13,1
UserVar PSW1="AbcdzZ12345" 请输入你的密码
// 计算密码长度
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