- 令 dm = createobject("dm.dmsoft")
- 向调试窗口输出:dm.ver()
- 令 dm_ret = dm.SetPath("E:\top")
- 令 dm_ret = dm.SetDict(0,"dm_soft.txt")
- 延时 1100 毫秒
- 令 a = Window.Find(0,"KEmulator Lite v0.9.8")
- 延时 268 毫秒
- 调用 Window.Move(a,6,6)
- 延时 268 毫秒
- 调用 Window.Active(a)
- 调用 aw()
- 子程序 aw()
- 延时 1268 毫秒
- 令 dm_ret = dm.FindStr(94,113,148,607,"7级黄巾","cccccc-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX,intY)
- (鼠标)左键双击, 2次
- 延时 126 毫秒
- 跳转到标记 a(子程序 aw)
- 条件结束
- 延时 568 毫秒
- 令 dm_ret = dm.FindStr(94,113,148,607,"8级黄巾","cccccc-000000",1.0,ntX,ntY)
- 如果 ntX >= 0 并且 ntY >= 0 则
- dm.MoveTo(ntX,ntY)
- (鼠标)左键双击, 2次
- 延时 126 毫秒
- 跳转到标记 a(子程序 aw)
- 条件结束
- 延时 568 毫秒
- 令 dm_ret = dm.FindStr(94,113,148,607,"9级黄巾","cccccc-000000",1.0,inX,inY)
- 如果 inX >= 0 并且 inY >= 0 则
- dm.MoveTo(inX,inY)
- (鼠标)左键双击, 2次
- 延时 126 毫秒
- 跳转到标记 a(子程序 aw)
- 条件结束
- 子程序结束
- 标记 a
- 延时 1288 毫秒
- (键盘)按下 "W" 键
- 延时 168 毫秒
- (键盘)弹起 "W" 键
- 循环 5 次
- 延时 1088 毫秒
- (键盘)按下 "R" 键
- 延时 168 毫秒
- (键盘)弹起 "R" 键
- 延时 688 毫秒
- (键盘)按下 "Down" 键
- 延时 168 毫秒
- (键盘)弹起 "Down" 键
- 循环结束
- 延时 1268 毫秒
- 令 dm_ret = dm.FindStr(179,548,211,573,"5/5","ffff5a-000000",1.0,ingX,ingY)
- 如果 ingX >= 0 并且 ingY >= 0 则
- (键盘)按下 "W" 键
- 延时 168 毫秒
- (键盘)弹起 "W" 键
- 否则
- (键盘)按下 "E" 键
- 延时 168 毫秒
- (键盘)弹起 "E" 键
- 延时 168 毫秒
- 调用 aw()
- 条件结束
- 延时 2568 毫秒
- 令 dm_ret = dm.FindStr(116,212,144,230,"未知","5fd6d6-000000",1.0,gfX,gfY)
- 如果 gfX >= 0 并且 gfY >= 0 则
- (键盘)按下 "E" 键
- 延时 168 毫秒
- (键盘)弹起 "E" 键
- 延时 168 毫秒
- 调用 aw()
- 否则
- (键盘)按下 "W" 键
- 延时 168 毫秒
- (键盘)弹起 "W" 键
- 条件结束
- 延时 2168 毫秒
- (键盘)按下 "E" 键
- 延时 168 毫秒
- (键盘)弹起 "E" 键
- 延时 1268 毫秒
- (键盘)按下 "2" 键
- 延时 168 毫秒
- (键盘)弹起 "2" 键
- 延时 1268 毫秒
- (键盘)按下 "R" 键
- 延时 168 毫秒
- (键盘)弹起 "R" 键
- 脚本停止运行