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