LeftClick 1
        EndIf 
        Delay 500
        Gosub 清空屏幕对话框
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\连接服务器中.bmp",1,intX,intY)
        dd=0
        While intX>0 and intY>0 and dd<300
            Delay 1000
            dd=dd+1
            VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\连接服务器中.bmp",1,intX,intY)
        EndWhile 
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\与服务器连接成功.bmp",1,intX,intY)
        dd=0
        While intX>0 and intY>0 and dd<300
            Delay 1000
            dd=dd+1
            VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\连接服务器中.bmp",1,intX,intY)
        EndWhile 
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\定位图片二.bmp",1,intX,intY)
        If intX>0 and intY>0
            Goto 登录成功
        Else 
            i=i+1
        EndIf 
    EndWhile 
    MessageBox intX & "," & intY & "登录失败，请检查网络、用户名或密码是否正常"
    EndScript 
    Rem 登录成功
    //MessageBox 登录成功
Return 登录游戏
//====================登录游戏结束==============================
//====================选择角色==============================
Sub 选择角色
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\选择角色.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        If xzjs=1
            MoveTo intX-X1+390,intY-Y1+338
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
        If xzjs=2
            MoveTo intX-X1+506,intY-Y1+339
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
        If xzjs=3
            MoveTo intX-X1+625,intY-Y1+332
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
        If xzjs=4
            MoveTo intX-X1+751,intY-Y1+332
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
        If xzjs=5
            MoveTo intX-X1+387,intY-Y1+459
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
        If xzjs=6
            MoveTo intX-X1+509,intY-Y1+462
            Delay 500
            LeftClick 1
            Goto 选择人物后下一步
        Else 
        EndIf 
    Else 
    EndIf 
    Delay 500
    Rem 选择人物后下一步
    MoveTo intX-X1+596,intY-Y1+677
    LeftClick 1
    Delay 500
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\请选择角色.bmp",0.9,xzintX,zxintY)
    If xzintX>0 and xzintY>0
        MoveTo intX-X1+485,intY-Y1+507
        LeftClick 1
        Delay 500
        MessageBox "您所选择的人物并不存在，请中止后重新登录"
    Else 
    EndIf 
Return 选择角色
//====================角色选择结束==============================
//====================清空屏幕对话框==============================
Sub 清空屏幕对话框
    Gosub 关闭小地图
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\取消1.bmp",1,intX,intY)
    While intX>0 and intY>0
        Delay 50