UserVar DNFpath="F:\游戏\地下城与勇士\start\DNFchina.exe" "游戏路径"
UserVar qq=956406180 "QQ帐号"  
UserVar psw="12345687" "QQ密码(登录过程中不要打开Caps Lock键)"  
UserVar MyDQ=DropList{"否":"0"|"是":"1"}=1 "是否启用自定义大区和服务器"  
UserVar Region="四川区" "输入大区名称(可不用加引号)"  
UserVar Server="四川1区" "输入服务器名称(可不用加引号)"  
UserVar Delay_move=300 "鼠标移动的延迟"  
UserVar Delay_click=300 "点击的延迟"  
UserVar Delay_window=400 "弹出窗口的延迟"  
UserVar V_input=10 "密码输入速度"  
UserVar tdPD=DropList{"最佳状态":"最佳状态"}=0 "选择频道方式"  
UserVar Num_role=1 "第几个角色(最大第8个)"
  
//▓▓▓▓▓▓▓▓▓▓▓ 自定义变量判断 ▓▓▓▓▓▓▓▓▓▓  
If Plugin.File.ExistFile(DNFpath) = 0 Then    
    MsgBox "游戏路径不正确", 16, "提示"  
    EndScript     
End If  
//▓▓▓▓▓▓▓▓▓▓▓全局变量初始化 ▓▓▓▓▓▓▓▓▓▓▓  
For j = 1 To 2  
    For i = 1 To 4  
        If i + (j - 1) * 4 = Cint(Num_role) Then   
            Role_x = i : Role_y = j  
        End If  
    Next  
Next  
//▓▓▓▓▓▓▓▓▓▓▓主    程    序 ▓▓▓▓▓▓▓▓▓▓▓  
RunApp DNFpath  
Delay 1000  
Call 等待窗口("选大区")  
Delay 1000  
Call 点击子窗口("地下城与勇士", Region)  
Call 点击子窗口("地下城与勇士", Server)  
Call 移动并点击(560, 540, 0, 1)  '确认  
Delay 2000  
//●●●●●●●● 输密码 ●●●●●●●●  
Call 等待窗口("输密码")  
Call 移动并点击(420, 380, 0, 1)  '账号窗口  
KeyPress "BackSpace", 15  
SayString QQ     
Delay 300  
KeyPress "Tab", 1   
Call Lib.键盘.KeyList(psw, 0, 20)  
Call 移动并点击(570, 380, 0, 1)  '[登录游戏]  
Delay 2000  
//●●●●●●●● 择频道 ●●●●●●●●  
Call 等待窗口("择频道")  
Delay 1000  
Do  
    Delay 50  
    IfColor Ux+104, Uy+138, "A9C3C8" ,0  Then   '是否在读取频道信息'  
        Exit Do   
    End If  
Loop  
Array_PD = Array("00FF00", "00B1FF", "0080FF", "0000FF")  '顺畅,良好,普通,拥挤  
If tdPD = "最佳状态" Then   
    Do   
        Delay 50  
        For i = 0 To UBound(Array_PD)  
            Delay 50  
            FindColor Ux, Uy, Ux + 640, Uy + 480, Array_PD(i), intX, intY '不同频道状态不同的颜色'  
            If intX > 0 Then   
                Call 移动并点击(intX - Ux, intY - Uy, 0, 1)  
                Exit Do   
            End If  
        Next  
       If i = UBound(Array_PD) + 1 Then '表示爆满  
            Call 移动并点击(560, 400, 0, 1) '刷新页面  
            Delay Delay_window  
        End If  
    Loop  
End If   
Delay Delay_click  
Call 移动并点击(320, 445, 0, 1)  '[游戏开始]  
Delay 2000  
//●●●●●●●● 挑角色 ●●●●●●●●  
Call 等待窗口("挑角色")  
Delay 1000  
Do  
    Delay 50  
    IfColor Ux + 401, Uy + 195, "8DEDFF", 1 Then  '判断是否在读取信息'  
        Exit Do   
    End If  
Loop  
Call 移动并点击(115 + (role_x - 1) * 130, 135 + (role_y - 1) * 185, 0, 1)    '选择角色  
Call 移动并点击(320, 445, 0, 1)  '[游戏开始]  
EndScript   
//▓▓▓▓▓▓▓▓▓▓▓ 子    程    序 ▓▓▓▓▓▓▓▓▓▓▓  
Sub 点击子窗口(父标题, 子标题)  
    Dim Hwnd, HwndEx, Coord, MyArray  
    Do   
        Delay 50  
        Hwnd = Plugin.Window.Find(0, 父标题)  
        HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 子标题)  
        If HwndEx <> 0 Then  
            Coord = Plugin.Window.GetClientRect(HwndEx)  
            MyArray = Split(Coord, "|", - 1 , 1)  
            Do   
                Delay 100  
                IfColor Cint(MyArray(0)) + 10, Cint(MyArray(1)) + 10, "676767", 1 Then