运行环境:分辨率:1440×900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:9.21.10865
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 Call 移动并点击(Cint(MyArray(0)) + Cint(MyArray(2)) / 2 - Ux, Cint(MyArray(1)) + Cint(MyArray(3)) / 2 - Uy, 0, 1) Exit Do End If Loop Delay Delay_window Exit Sub Else MsgBox "出错:找不到子窗口" & 标题, 16, "提示" EndScript End If Loop End Sub Sub 等待窗口(窗口名) Dim Array_name, Hwnd, Coord, MyArray, i, k Dim Array_Feature_form(3) Array_Feature_form(0) = "选大区,71,86,C9FFFF,71,86,C9FFFF" Array_Feature_form(1) = "输密码,90,480,FFFFFF,660,469,18FF9F" Array_Feature_form(2) = "择频道,332,13,B3F2FF,333,13,B3F2FF" Array_Feature_form(3) = "挑角色,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4" For i = 0 To UBound(Array_Feature_form) Array_name = Split(Array_Feature_form(i), ",", - 1 , 1) If Array_name(0) = 窗口名 Then Do Delay 50 Hwnd = Plugin.Window.Find(0, "地下城与勇士") Coord = Plugin.Window.GetClientRect(Hwnd) MyArray = Split(Coord, "|", - 1 , 1) If Cint(MyArray(2)) = 687 or Cint(MyArray(2)) = 640 Then Ux = Cint(MyArray(0)) : Uy = Cint(MyArray(1)) For k = 0 To (UBound(Array_name) - 6) / 6 IfColor Ux + Array_name(k * 6 + 1), Uy + Array_name(k * 6 + 2), Array_name(k * 6 + 3),0 Then IfColor Ux + Array_name(k * 6 + 4), Uy + Array_name(k * 6 + 5), Array_name(k * 6 + 6),0 Then Exit Sub End If End If Next End If Loop End If Next End Sub Sub 移动并点击(横坐标, 纵坐标, 操作方式, 左击次数) //点击次数: 0表示不点击 //操作方式:【0前台模式,1后台模式】 If 操作方式 = 0 Then 横坐标 = Ux + 横坐标 : 纵坐标 = Uy + 纵坐标 MoveTo 横坐标, 纵坐标 Delay Delay_move If 左击次数 <> 0 Then For 左击次数 LeftDown 1 Delay 100 LeftUp 1 Delay Delay_click Next End If End If End Sub Dim MyHour,MyVar rem aaa Delay 3000 Goto aaa
按键精灵地下城自动登录
地下城按键精灵自动登录
Dnf自动登录
dnf脚本源码
按键精灵自动登录脚本
2018按键精灵dnf脚本源码
按键精灵dnf脚本
dnf自动脚本精灵
dnf纯脚本源码
dnf辅助按键精灵源码
地下城与勇士脚本
游戏自动登录+源码
按键精灵剑灵自动登入源码
按键精灵自动登录QQ
按键精灵dnf窗口
dnf自动脚本
dnf双头脚本源码
dnf脚本源代码
DNF+按键精灵
按键精灵自动登录教程
DNF按键精灵自动刷图脚本源码
按键精灵dnf
按键精灵dnf脚本源码
按键精灵自动登录脚本怎么做
按键精灵DNF脚本
按键精灵DNF脚本源码
dnf按键精灵代码
dnf脚本服务器
2019地下城按键精灵
DNF不用源代码做脚本
按键精灵9.21.10865
dnf按键精灵脚本源码
dnf按键精灵源码
dnf按键精灵
按键精灵批量登录源码
DNF自动登录
按键精灵自动刷图
按键精灵地下城勇士脚本从哪买
tc的dnf自动登录源码
脚本精灵dnf
dnf竹林按键精灵脚本
dnf按键精灵脚本
按键精灵DNF自动升级代码
DNF自动点击
按键精灵源码库
DMF按键精灵
鼠标自动点击脚本dnf
dnf按键精灵自动刷图源码
按键精灵DNF
按键精灵 dnf
DNF脚本源码
按键精灵dnf自动登录源码
按键精灵批量自动登录
按键精灵写脚本dnf
DNF脚本精灵自动换号代码
dnf脚本坐标移动源码
脚本精灵自动输入DNF密码
按键精灵dnf脚本教程
地下城按键精灵脚本
dnf易语言自动刷图
dnf易语言自动登录列表框账号
dnf自动换号脚本源码
DNF按键精灵脚本源码
DNF自动换号脚本代码
地下城键盘自动
DNF自动换号代码
dnf脚本
dnf自动登录脚本
按键精灵dnf源码
dnf多少个q批量登陆