1. 令 dm = createobject("dm.dmsoft")
  2. 向调试窗口输出:dm.ver()
  3. 令 dm_ret = dm.SetPath("E:\top")
  4. 令 dm_ret = dm.SetDict(0,"dm_soft.txt")
  5. 延时 1100 毫秒
  6. 令 a = Window.Find(0,"KEmulator Lite v0.9.8")
  7. 延时 268 毫秒
  8. 调用 Window.Move(a,6,6)
  9. 延时 268 毫秒
  10. 调用 Window.Active(a)
  11. 调用 aw()
  12. 子程序 aw()
  13.     延时 1268 毫秒
  14.     令 dm_ret = dm.FindStr(94,113,148,607,"7级黄巾","cccccc-000000",1.0,intX,intY)
  15.     如果 intX >= 0 并且 intY >= 0 则
  16.         dm.MoveTo(intX,intY)
  17.         (鼠标)左键双击, 2次
  18.         延时 126 毫秒
  19.         跳转到标记 a(子程序 aw)
  20.     条件结束
  21.     延时 568 毫秒
  22.     令 dm_ret = dm.FindStr(94,113,148,607,"8级黄巾","cccccc-000000",1.0,ntX,ntY)
  23.     如果 ntX >= 0 并且 ntY >= 0 则
  24.         dm.MoveTo(ntX,ntY)
  25.         (鼠标)左键双击, 2次
  26.         延时 126 毫秒
  27.         跳转到标记 a(子程序 aw)
  28.     条件结束
  29.     延时 568 毫秒
  30.     令 dm_ret = dm.FindStr(94,113,148,607,"9级黄巾","cccccc-000000",1.0,inX,inY)
  31.     如果 inX >= 0 并且 inY >= 0 则
  32.         dm.MoveTo(inX,inY)
  33.         (鼠标)左键双击, 2次
  34.         延时 126 毫秒
  35.         跳转到标记 a(子程序 aw)
  36.     条件结束
  37. 子程序结束
  38. 标记 a
  39. 延时 1288 毫秒
  40. (键盘)按下 "W" 键
  41. 延时 168 毫秒
  42. (键盘)弹起 "W" 键
  43. 循环 5 次
  44.     延时 1088 毫秒
  45.     (键盘)按下 "R" 键
  46.     延时 168 毫秒
  47.     (键盘)弹起 "R" 键
  48.     延时 688 毫秒
  49.     (键盘)按下 "Down" 键
  50.     延时 168 毫秒
  51.     (键盘)弹起 "Down" 键
  52. 循环结束
  53. 延时 1268 毫秒
  54. 令 dm_ret = dm.FindStr(179,548,211,573,"5/5","ffff5a-000000",1.0,ingX,ingY)
  55. 如果 ingX >= 0 并且 ingY >= 0 则
  56.     (键盘)按下 "W" 键
  57.     延时 168 毫秒
  58.     (键盘)弹起 "W" 键
  59. 否则
  60.     (键盘)按下 "E" 键
  61.     延时 168 毫秒
  62.     (键盘)弹起 "E" 键
  63.     延时 168 毫秒
  64.     调用 aw()
  65. 条件结束
  66. 延时 2568 毫秒
  67. 令 dm_ret = dm.FindStr(116,212,144,230,"未知","5fd6d6-000000",1.0,gfX,gfY)
  68. 如果 gfX >= 0 并且 gfY >= 0 则
  69.     (键盘)按下 "E" 键
  70.     延时 168 毫秒
  71.     (键盘)弹起 "E" 键
  72.     延时 168 毫秒
  73.     调用 aw()
  74. 否则
  75.     (键盘)按下 "W" 键
  76.     延时 168 毫秒
  77.     (键盘)弹起 "W" 键
  78. 条件结束
  79. 延时 2168 毫秒
  80. (键盘)按下 "E" 键
  81. 延时 168 毫秒
  82. (键盘)弹起 "E" 键
  83. 延时 1268 毫秒
  84. (键盘)按下 "2" 键
  85. 延时 168 毫秒
  86. (键盘)弹起 "2" 键
  87. 延时 1268 毫秒
  88. (键盘)按下 "R" 键
  89. 延时 168 毫秒
  90. (键盘)弹起 "R" 键
  91. 脚本停止运行