1. 用户定义变量 DNFpath="F:\游戏\地下城与勇士\start\DNFchina.exe" "游戏路径"
  2. 用户定义变量 qq=956406180 "QQ帐号"
  3. 用户定义变量 psw="12345687" "QQ密码(登录过程中不要打开Caps Lock键)"
  4. 用户定义变量 MyDQ=DropList{"否":"0"|"是":"1"}=1 "是否启用自定义大区和服务器"
  5. 用户定义变量 Region="四川区" "输入大区名称(可不用加引号)"
  6. 用户定义变量 Server="四川1区" "输入服务器名称(可不用加引号)"
  7. 用户定义变量 Delay_move=300 "鼠标移动的延迟"
  8. 用户定义变量 Delay_click=300 "点击的延迟"
  9. 用户定义变量 Delay_window=400 "弹出窗口的延迟"
  10. 用户定义变量 V_input=10 "密码输入速度"
  11. 用户定义变量 tdPD=DropList{"最佳状态":"最佳状态"}=0 "选择频道方式"
  12. 用户定义变量 Num_role=1 "第几个角色(最大第8个)"
  13. 注释:▓▓▓▓▓▓▓▓▓▓▓ 自定义变量判断 ▓▓▓▓▓▓▓▓▓▓
  14. 如果 File.ExistFile(DNFpath) = 0 则
  15.     MsgBox("游戏路径不正确",16,"提示")
  16.     脚本停止运行
  17. 条件结束
  18. 注释:▓▓▓▓▓▓▓▓▓▓▓全局变量初始化 ▓▓▓▓▓▓▓▓▓▓▓
  19. 循环 j 从 1 到 2
  20.     循环 i 从 1 到 4
  21.         如果 i + (j - 1) * 4 = Cint(Num_role) 则
  22.             令 Role_x = i
  23.             令 Role_y = j
  24.         条件结束
  25.     循环结束
  26. 循环结束
  27. 注释:▓▓▓▓▓▓▓▓▓▓▓主 程 序 ▓▓▓▓▓▓▓▓▓▓▓
  28. 启动程序或打开文件 DNFpath
  29. 延时 1000 毫秒
  30. 调用 等待窗口("选大区")
  31. 延时 1000 毫秒
  32. 调用 点击子窗口("地下城与勇士",Region)
  33. 调用 点击子窗口("地下城与勇士",Server)
  34. (语句无法识别,可能有错误): Call 移动并点击(560, 540, 0, 1) '确认
  35. 延时 2000 毫秒
  36. 注释:●●●●●●●● 输密码 ●●●●●●●●
  37. 调用 等待窗口("输密码")
  38. (语句无法识别,可能有错误): Call 移动并点击(420, 380, 0, 1) '账号窗口
  39. (键盘)按 "BackSpace" 键, 15次
  40. 输入文本 QQ
  41. 延时 300 毫秒
  42. (键盘)按 "Tab" 键, 1次
  43. 调用 (命令库 键盘)KeyList(psw,0,20)
  44. (语句无法识别,可能有错误): Call 移动并点击(570, 380, 0, 1) '[登录游戏]
  45. 延时 2000 毫秒
  46. 注释:●●●●●●●● 择频道 ●●●●●●●●
  47. 调用 等待窗口("择频道")
  48. 延时 1000 毫秒
  49. 循环开始
  50.     延时 50 毫秒
  51.     (语句无法识别,可能有错误): IfColor Ux+104, Uy+138, "A9C3C8" ,0 Then '是否在读取频道信息'
  52.     跳出循环
  53. 条件结束
  54. 循环结束
  55. (语句无法识别,可能有错误): Array_PD = Array("00FF00", "00B1FF", "0080FF", "0000FF") '顺畅,良好,普通,拥挤
  56. 如果 tdPD = "最佳状态" 则
  57.     循环开始
  58.         延时 50 毫秒
  59.         循环 i 从 0 到 UBound(Array_PD)
  60.             延时 50 毫秒
  61.             (语句无法识别,可能有错误): FindColor Ux, Uy, Ux + 640, Uy + 480, Array_PD(i), intX, intY '不同频道状态不同的颜色'
  62.             如果 intX > 0 则
  63.                 调用 移动并点击(intX - Ux,intY - Uy,0,1)
  64.                 跳出循环
  65.             条件结束
  66.         循环结束
  67.         如果 i = UBound(Array_PD) + 1 则
  68.             注释:表示爆满
  69.         条件结束
  70.         (语句无法识别,可能有错误): Call 移动并点击(560, 400, 0, 1) '刷新页面
  71.         延时 Delay_window 毫秒
  72.     条件结束
  73. 循环结束
  74. 条件结束
  75. 延时 Delay_click 毫秒
  76. (语句无法识别,可能有错误): Call 移动并点击(320, 445, 0, 1) '[游戏开始]
  77. 延时 2000 毫秒
  78. 注释:●●●●●●●● 挑角色 ●●●●●●●●
  79. 调用 等待窗口("挑角色")
  80. 延时 1000 毫秒
  81. 循环开始
  82.     延时 50 毫秒
  83.     (语句无法识别,可能有错误): IfColor Ux + 401, Uy + 195, "8DEDFF", 1 Then '判断是否在读取信息'
  84.     跳出循环
  85. 条件结束
  86. 循环结束
  87. (语句无法识别,可能有错误): Call 移动并点击(115 + (role_x - 1) * 130, 135 + (role_y - 1) * 185, 0, 1) '选择角色
  88. (语句无法识别,可能有错误): Call 移动并点击(320, 445, 0, 1) '[游戏开始]
  89. 脚本停止运行
  90. 注释:▓▓▓▓▓▓▓▓▓▓▓ 子 程 序 ▓▓▓▓▓▓▓▓▓▓▓
  91. 子程序 点击子窗口(父标题,子标题)
  92.     定义变量 Hwnd, HwndEx, Coord, MyArray
  93.     循环开始
  94.         延时 50 毫秒
  95.         令 Hwnd = Window.Find(0,父标题)
  96.         令 HwndEx = Window.FindEx(Hwnd,0,0,子标题)
  97.         如果 HwndEx <> 0 则
  98.             令 Coord = Window.GetClientRect(HwndEx)
  99.             令 MyArray = Split(Coord,"|",- 1 ,1)
  100.             循环开始