- 用户定义变量 DNFpath="F:\游戏\地下城与勇士\start\DNFchina.exe" "游戏路径"
- 用户定义变量 qq=956406180 "QQ帐号"
- 用户定义变量 psw="12345687" "QQ密码(登录过程中不要打开Caps Lock键)"
- 用户定义变量 MyDQ=DropList{"否":"0"|"是":"1"}=1 "是否启用自定义大区和服务器"
- 用户定义变量 Region="四川区" "输入大区名称(可不用加引号)"
- 用户定义变量 Server="四川1区" "输入服务器名称(可不用加引号)"
- 用户定义变量 Delay_move=300 "鼠标移动的延迟"
- 用户定义变量 Delay_click=300 "点击的延迟"
- 用户定义变量 Delay_window=400 "弹出窗口的延迟"
- 用户定义变量 V_input=10 "密码输入速度"
- 用户定义变量 tdPD=DropList{"最佳状态":"最佳状态"}=0 "选择频道方式"
- 用户定义变量 Num_role=1 "第几个角色(最大第8个)"
- 注释:▓▓▓▓▓▓▓▓▓▓▓ 自定义变量判断 ▓▓▓▓▓▓▓▓▓▓
- 如果 File.ExistFile(DNFpath) = 0 则
- MsgBox("游戏路径不正确",16,"提示")
- 脚本停止运行
- 条件结束
- 注释:▓▓▓▓▓▓▓▓▓▓▓全局变量初始化 ▓▓▓▓▓▓▓▓▓▓▓
- 循环 j 从 1 到 2
- 循环 i 从 1 到 4
- 如果 i + (j - 1) * 4 = Cint(Num_role) 则
- 令 Role_x = i
- 令 Role_y = j
- 条件结束
- 循环结束
- 循环结束
- 注释:▓▓▓▓▓▓▓▓▓▓▓主 程 序 ▓▓▓▓▓▓▓▓▓▓▓
- 启动程序或打开文件 DNFpath
- 延时 1000 毫秒
- 调用 等待窗口("选大区")
- 延时 1000 毫秒
- 调用 点击子窗口("地下城与勇士",Region)
- 调用 点击子窗口("地下城与勇士",Server)
- (语句无法识别,可能有错误): Call 移动并点击(560, 540, 0, 1) '确认
- 延时 2000 毫秒
- 注释:●●●●●●●● 输密码 ●●●●●●●●
- 调用 等待窗口("输密码")
- (语句无法识别,可能有错误): Call 移动并点击(420, 380, 0, 1) '账号窗口
- (键盘)按 "BackSpace" 键, 15次
- 输入文本 QQ
- 延时 300 毫秒
- (键盘)按 "Tab" 键, 1次
- 调用 (命令库 键盘)KeyList(psw,0,20)
- (语句无法识别,可能有错误): Call 移动并点击(570, 380, 0, 1) '[登录游戏]
- 延时 2000 毫秒
- 注释:●●●●●●●● 择频道 ●●●●●●●●
- 调用 等待窗口("择频道")
- 延时 1000 毫秒
- 循环开始
- 延时 50 毫秒
- (语句无法识别,可能有错误): IfColor Ux+104, Uy+138, "A9C3C8" ,0 Then '是否在读取频道信息'
- 跳出循环
- 条件结束
- 循环结束
- (语句无法识别,可能有错误): Array_PD = Array("00FF00", "00B1FF", "0080FF", "0000FF") '顺畅,良好,普通,拥挤
- 如果 tdPD = "最佳状态" 则
- 循环开始
- 延时 50 毫秒
- 循环 i 从 0 到 UBound(Array_PD)
- 延时 50 毫秒
- (语句无法识别,可能有错误): FindColor Ux, Uy, Ux + 640, Uy + 480, Array_PD(i), intX, intY '不同频道状态不同的颜色'
- 如果 intX > 0 则
- 调用 移动并点击(intX - Ux,intY - Uy,0,1)
- 跳出循环
- 条件结束
- 循环结束
- 如果 i = UBound(Array_PD) + 1 则
- 注释:表示爆满
- 条件结束
- (语句无法识别,可能有错误): Call 移动并点击(560, 400, 0, 1) '刷新页面
- 延时 Delay_window 毫秒
- 条件结束
- 循环结束
- 条件结束
- 延时 Delay_click 毫秒
- (语句无法识别,可能有错误): Call 移动并点击(320, 445, 0, 1) '[游戏开始]
- 延时 2000 毫秒
- 注释:●●●●●●●● 挑角色 ●●●●●●●●
- 调用 等待窗口("挑角色")
- 延时 1000 毫秒
- 循环开始
- 延时 50 毫秒
- (语句无法识别,可能有错误): IfColor Ux + 401, Uy + 195, "8DEDFF", 1 Then '判断是否在读取信息'
- 跳出循环
- 条件结束
- 循环结束
- (语句无法识别,可能有错误): Call 移动并点击(115 + (role_x - 1) * 130, 135 + (role_y - 1) * 185, 0, 1) '选择角色
- (语句无法识别,可能有错误): Call 移动并点击(320, 445, 0, 1) '[游戏开始]
- 脚本停止运行
- 注释:▓▓▓▓▓▓▓▓▓▓▓ 子 程 序 ▓▓▓▓▓▓▓▓▓▓▓
- 子程序 点击子窗口(父标题,子标题)
- 定义变量 Hwnd, HwndEx, Coord, MyArray
- 循环开始
- 延时 50 毫秒
- 令 Hwnd = Window.Find(0,父标题)
- 令 HwndEx = Window.FindEx(Hwnd,0,0,子标题)
- 如果 HwndEx <> 0 则
- 令 Coord = Window.GetClientRect(HwndEx)
- 令 MyArray = Split(Coord,"|",- 1 ,1)
- 循环开始