1. 延时 Delay_click 毫秒
  2. （鼠标）左键单击, 1次
  3. 延时 300 毫秒
  4. (语句无法识别，可能有错误): MoveTo Ux + 320, Uy + 445 '[游戏开始]'
  5. 延时 Delay_click 毫秒
  6. （鼠标）左键单击, 1次
  7. 延时 500 毫秒
  8. 启动程序或打开文件 ("cmd.exe /C Taskkill /f /im QQlogin.exe")
  9. 注释：●●●●●●●● 挑角色 ●●●●●●●●
  10. 调用 窗口判断("挑角色")
  11. 循环开始
  12.     延时 50 毫秒
  13.     (语句无法识别，可能有错误): IfColor Ux + 401, Uy + 195, "8DEDFF", 1 Then '判断是否在读取信息'
  14.     跳出循环
  15. 条件结束
  16. 循环结束
  17. (语句无法识别，可能有错误): MoveTo Ux + 120 + (role_x - 1) * 130, Uy + 130 + (role_y - 1) * 180 '[角色]
  18. 延时 Delay_click 毫秒
  19. （鼠标）左键单击, 1次
  20. 延时 300 毫秒
  21. (语句无法识别，可能有错误): MoveTo Ux + 320, Uy + 445 '[游戏开始]'
  22. 延时 Delay_click 毫秒
  23. （鼠标）左键单击, 1次
  24. 延时 300 毫秒
  25. 调用 运行日志(9)
  26. 延时 5000 毫秒
  27. (语句无法识别，可能有错误): RunApp("cmd.exe /C Taskkill /f /im AutoDNFlogin.exe") '关闭自己,AutoDNFlogin.exe为自己小精灵的文件名
  28. 脚本停止运行
  29. 注释：▓▓▓▓▓▓▓▓▓▓▓ 子 程 序 ▓▓▓▓▓▓▓▓▓▓▓
  30. 子程序 相对坐标()
  31.     注释：作用：得到地下城与勇士窗口最左上角的坐标
  32.     定义变量 Hwnd, coord, MyArray
  33.     循环开始
  34.         延时 50 毫秒
  35.         令 Hwnd = Window.Find(0,"地下城与勇士")
  36.         令 coord = Window.GetClientRect(Hwnd)
  37.         令 MyArray = Split(coord,"|",- 1 ,1)
  38.         如果 Cint(MyArray(2)) = 687 或者 Cint(MyArray(2)) = 640 则
  39.             令 Ux = Cint(MyArray(0))
  40.             令 Uy = Cint(MyArray(1))
  41.             退出子程序
  42.         条件结束
  43.     循环结束
  44. 子程序结束
  45. 子程序 子窗口(子窗口标题)
  46.     注释：作用：点击指定标题子窗体，
  47.     循环开始
  48.         延时 50 毫秒
  49.         令 Hwnd = Window.Find(0,"地下城与勇士")
  50.         令 handleS = Window.FindEx(Hwnd,i,0,子窗口标题)
  51.         如果 handleS <> 0 则
  52.             令 coord = Window.GetClientRect(handleS)
  53.             注释： MyArray(0),MyArray(1) 左上角坐标
  54.             注释： MyArray(2):MyArray(3) 宽:高
  55.             令 MyArray = Split(coord,"|",- 1 ,1)
  56.             延时 Delay_click 毫秒
  57.             （鼠标）移动到 (Cint(MyArray(0)) + Cint(MyArray(2)) / 2, Cint(MyArray(1)) + Cint(MyArray(3)) / 2)
  58.             延时 Delay_click 毫秒
  59.             （鼠标）左键单击, 1次
  60.             延时 300 毫秒
  61.             退出子程序
  62.         否则
  63.             调用 运行日志(13)
  64.             启动程序或打开文件 ("cmd.exe /C Taskkill /f /im DNFchina.exe&Taskkill /f /im DNF.exe&Taskkill /f /im QQlogin.exe&exit")
  65.             脚本停止运行
  66.         条件结束
  67.     循环结束
  68. 子程序结束
  69. 函数 判断整数(数据)
  70.     定义变量 M(9)
  71.     令 k = 0
  72.     循环 i 从 0 到 9
  73.         令 M(i) = i
  74.     循环结束
  75.     循环 j 从 1 到 len(数据)
  76.         循环 i 从 0 到 9
  77.             如果 Cstr(Mid(数据,j,1)) = Cstr((i)) 则
  78.                 令 k = k + 1
  79.                 跳出循环
  80.             条件结束
  81.         循环结束
  82.     循环结束
  83.     如果 k = len(数据) 则
  84.         令 判断整数 = "True"
  85.     否则
  86.         令 判断整数 = "False"
  87.     条件结束
  88. 函数结束
  89. 子程序 运行日志(编号)
  90.     定义变量 Aarry_log(13)
  91.     令 Aarry_log(0) = " 当前账号信息是" & qq & " " & region & " " & server
  92.     令 Aarry_log(1) = " 正在判断选择大区窗口……"
  93.     令 Aarry_log(2) = " 正在判断输入账号和密码窗口……"
  94.     令 Aarry_log(3) = " 正在判断选择频道窗口……"
  95.     令 Aarry_log(4) = " 正在判断选择角色窗口……"
  96.     令 Aarry_log(5) = " 判断选择大区窗口成功"
  97.     令 Aarry_log(6) = " 判断输入账号和密码窗口成功"
  98.     令 Aarry_log(7) = " 判断选择频道窗口成功"
  99.     令 Aarry_log(8) = " 判断选择角色窗口成功"
  100.     令 Aarry_log(9) = " 登录成功,程序退出"