MoveTo 817,290
    EndIf 
    If var6=3
        MoveTo 820,413
    EndIf 
    Delay 500
    LeftDoubleClickH 1
    For 20
        VBSCall Call FindPic(321,251,693,478,"Attachment:\确定.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 自动上号02
        EndIf 
        Delay 500
    EndFor 
    Goto 自动上号03
    Rem 自动上号02
    MoveTo 449,370
    Delay 200
    LeftClickH 1
    Delay 500
    KeyPressH 65,1
    KeyPressH 83,1
    KeyPressH 55,1
    KeyPressH 53,1
    KeyPressH 56,1
    KeyPressH 50,1
    KeyPressH 57,1
    KeyPressH 51,1
    KeyPressH 57,1
    Delay 500
    KeyPressH 13,1
    Rem 自动上号03
    For 40
        VBSCall Call FindPic(168,78,222,114,"Attachment:\生命.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 已进入游戏
        EndIf 
        Delay 500
    EndFor 
    Gosub 上线报警
    Rem 已进入游戏
    Gosub 过滤人口
    For 5
        VBSCall Call FindPic(671,417,743,453,"Attachment:\挂了不使用.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            For 20
                VBSCall Call FindPic(671,417,743,453,"Attachment:\挂了不使用.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0
                    MoveTo intX,intY
                    Delay 500
                    LeftClickH 1
                    Delay 1000
                    VBSCall Call FindPic(438,386,560,448,"Attachment:\取消.bmp",0.8,intX,intY)
                    If intX>=0 and intY>=0
                        MoveTo intX,intY
                        Delay 500
                        LeftClickH 1
                        Delay 500
                        MoveTo 793,252
                        Delay 500
                    EndIf 
                    MoveTo 793,252
                    Delay 1000
                Else 
                    Goto 过滤聊天
                EndIf 
            EndFor 
        EndIf 
        KeyPressH 27,1
        Delay 1000
    EndFor 
    Rem 过滤聊天
    MoveTo 124,563
    Delay 500
    LeftClickH 1
    Delay 1000
    VBS guox=148
    VBS guoy=452
    VBS guom=20
    For 8
        MoveTo guox,guoy
        Delay 200
        LeftClickH 1
        Delay 500
        VBS guoy=guoy+20
    EndFor 
    For 40
        KeyPressH 27,1
        Delay 1000
        VBSCall Call FindPic(377,136,686,490,"Attachment:\服务器选线.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 已进入游戏02
        EndIf 
        VBSCall Call FindPic(365,361,648,461,"Attachment:\营赛前门确定.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call FindColorEx(462,376,487,393,"68EDFD",1,0.8,x9,y9)
            If x9>0 and y9>0
                VBSCall Call FindColorEx(445,381,454,390,"0073FE",1,0.8,x9,y9)
                If x9>0 and y9>0
                Else