Call Plugin.Sys.SetSc(1440, 900, 32)
Delay 3000
游戏路径 = Form1.DNF路径.Text
判断是否是正确路径 = Plugin.File.IsFileExit(游戏路径)
If 判断是否是正确路径 = True Then  
Else    
    Msgbox "游戏文件不存在", 1 + 32, "红遍江淮提示"
    EndScript
End If
游戏服务器配置文件路径 = split(游戏路径, "DNFchina.exe")(0) & "UserSetting.ini"
判断账号路径 = Plugin.File.IsFileExit(Form1.DNF账号.Text)
If 判断账号路径 = True Then  
Else    
    Msgbox "账号文档不存在", 1 + 32, "红遍江淮提示"
    EndScript
End If
Call Plugin.File.WriteINI("ServerSelection", "LastSelectName", Form1.服务器.Text, 游戏服务器配置文件路径)
Text = Plugin.File.ReadINI("游戏账号", "账号" & Form1.账号几.Text, Form1.DNF账号.Text)
QQ = split(Text, "|")
a = QQ(1)
If a = "" Then 
    Msgbox "第"&Form1.账号几.Text&"组账号不存在", 1 + 32, "红遍江淮提示"
    EndScript
End If
RunApp 游戏路径
i = 8
While i > 0
    FindPic 0, 0, 1024, 768, "Attachment:\确认选择.bmp", 1, intX, intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY
        LeftClick 1
        Call Plugin.Msg.Tips("在第" & 8 - i & "秒选服务器成功")
        i = - 2 
    Else 
        Delay 1000
        Call Plugin.Msg.Tips("倒计时" & i & "秒")
        i = i - 1
        If i = 0 Then 
            Msgbox "选取服务器失败，检测游戏服务器输入框的格式", 1 + 32, "红遍江淮提示"
            EndScript
        End If
    End If
Wend
ii = 20
While ii > -1
    FindPic 0,0,1024,768,"Attachment:\安全检查完成.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Text = Plugin.File.ReadINI("游戏账号", "账号" & Form1.账号几.Text, Form1.DNF账号.Text)
        QQ = split(Text, "|")
        QQ号码 = QQ(0)
        QQ密码 = QQ(1)
        MoveTo 809, 517
        LeftClick 1
        KeyPressS "BackSpace", 20
        Delay 500
        Call Lib.键盘.KeyList(QQ号码, 1, 100)
        Delay 500
        KeyPressS 9, 1
        MoveTo 705, 543
        LeftClick 1
        Call Lib.键盘.KeyList(QQ密码, 1, 100)
        KeyPressS "Enter", 1
        Call Plugin.Msg.Tips("在第" & 20 - ii & "秒正式进入游戏")
        ii = - 2 
    Else 
        Delay 1000
        Call Plugin.Msg.Tips("倒计时" & ii & "秒")
        ii = ii - 1
        If ii = 0 Then 
            Msgbox "游戏一直卡住，请确保网络顺畅", 1 + 32, "红遍江淮提示"
            EndScript
        End If
    End If
Wend