Gosub 自动上号
        EndIf 
    EndFor 
Return 是否在线
Sub 自动上号
    VBSCall Call FindPic(723,467,863,517,"Attachment:\进入游戏.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        For 10
            VBSCall Call FindPic(411,400,491,437,"Attachment:\确定.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                KeyPressH 27,1
                Delay 500
            Else 
                Goto 自动X01
            EndIf 
        EndFor 
        Rem 自动X01
        For 5
            KeyPressH 40,1
            Delay 200
        EndFor 
        KeyPressH 13,1
        Delay 1000
        For 120
            VBSCall Call FindPic(434,478,579,521,"Attachment:\login.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                Goto 自动X02
            EndIf 
            Delay 1000
        EndFor 
        Gosub 上线报警
    EndIf 
    Rem 自动X02
    If var2=3
        Goto 自动accc
    EndIf 
    MoveTo 572,309
    Delay 100
    LeftDoubleClickH 1
    Delay 1000
    VBSCall Call FindColorEx(324,747,370,759,"000000",1,0.8,x9,y9)
    If x9>0 and y9>0
    Else 
        Gosub 读中转
        SayString acenter
        Delay 500
        Goto 自动accc
    EndIf 
    Gosub 读账号
    SayString acc
    Delay 500
    Rem 自动accc
    For 4
        VBSCall Call FindPic(321,251,693,478,"Attachment:\确定.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            MoveTo intX,intY
            Delay 200
            LeftClickH 1
            Delay 1000
        EndIf 
        MoveTo 475,339
        Delay 200
        LeftDoubleClickH 1
        Delay 500
        IfColor 547,336,0,2
            IfColor 460,336,433819,2
                KeyPressH 65,1
                KeyPressH 83,1
                KeyPressH 50,1
                KeyPressH 54,1
                KeyPressH 48,1
                KeyPressH 48,1
                KeyPressH 48,1
                KeyPressH 48,1
            Else 
                Gosub 上线报警
            EndIf 
        EndIf 
        Delay 500
        KeyPressH 13,1
        MoveTo 809,114
        Delay 500
        For 300
            VBSCall Call FindPic(362,253,425,285,"Attachment:\验证码.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                Beep beep
            EndIf 
            VBSCall Call FindPic(745,68,837,109,"Attachment:\角色名单.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                Goto 自动上号01
            EndIf 
            Delay 2000
        EndFor 
    EndFor 
    Gosub 上线报警
    Rem 自动上号01
    If var6=1
        MoveTo 815,170
    EndIf 
    If var6=2