1. 向调试窗口输出：x
  2. 延时 10 毫秒
  3. dm.moveto(850,190)
  4. 延时 10 毫秒
  5. dm.Leftclick()
  6. 延时 10 毫秒
  7. 调用 zhuanhuan(y)
  8. 延时 10 毫秒
  9. dm.moveto(900,190)
  10. 延时 10 毫秒
  11. dm.Leftclick()
  12. 延时 10 毫秒
  13. dm.KeyPress(77)
  14. 延时 10 毫秒
  15. 子程序结束
  16. (语句无法识别，可能有错误): Sub zhaoguai() '找怪
  17. 循环开始
  18.     令 dm_ret = dm.FindColor(350,200,800,480,"ef2124-050505|fb2224-050505|fc2225-050505",1.0,4,inX,inY)
  19.     如果 inX >= 0 并且 inY >= 0 则
  20.         dm.KeyPress(jineng)
  21.         延时 10 毫秒
  22.     否则
  23.         跳出循环
  24.     条件结束
  25. 循环结束
  26. 如果 Form1.CheckBox1.Value = 1 则
  27.     注释：判断是否骑马
  28. 条件结束
  29. 延时 800 毫秒
  30. dm.KeyPress(57)
  31. 延时 20 毫秒
  32. 条件结束
  33. 延时 20 毫秒
  34. 调用 find()
  35. 子程序结束
  36. (语句无法识别，可能有错误): sub zhuanhuan(a) '将TextBox 坐标转换成 ASC码 依次输出
  37. 令 b1 = Mid(a,1,1)
  38. 向调试窗口输出：b1
  39. 令 c = Asc(b1)
  40. dm.KeyPress(c)
  41. 延时 10 毫秒
  42. 令 b2 = Mid(a,2,2)
  43. 令 c = Asc(b2)
  44. dm.KeyPress(c)
  45. 延时 10 毫秒
  46. 令 b3 = Mid(a,3,3)
  47. 令 c = Asc(b3)
  48. dm.KeyPress(c)
  49. 延时 10 毫秒
  50. 子程序结束
  51. (语句无法识别，可能有错误): Sub ydpd() ' 判断人物是否移动
  52. 循环开始
  53.     令 color1 = dm.GetColor(300,300)
  54.     延时 800 毫秒
  55.     令 color2 = dm.GetColor(300,300)
  56.     如果 color1 = color2 则
  57.         跳出循环
  58.     条件结束
  59. 循环结束
  60. 子程序结束
  61. 子程序 change(cn)
  62.     如果 cn = 1 则
  63.         令 xx = 185
  64.     否则如果 cn = 2 则
  65.         令 xx = 212
  66.     否则
  67.         向调试窗口输出：cn
  68.         MsgBox("错误代码 c - 1")
  69.     条件结束
  70.     dm.moveto(1170,660)
  71.     延时 100 毫秒
  72.     dm.LeftClick()
  73.     延时 300 毫秒
  74.     dm.moveto(595,385)
  75.     延时 100 毫秒
  76.     dm.LeftClick()
  77.     延时 300 毫秒
  78.     dm.moveto(520,445)
  79.     延时 100 毫秒
  80.     dm.LeftClick()
  81.     延时 30000 毫秒
  82.     dm.moveto(1000,xx)
  83.     延时 100 毫秒
  84.     dm.LeftClick()
  85.     延时 300 毫秒
  86.     dm.moveto(600,715)
  87.     延时 100 毫秒
  88.     dm.LeftClick()
  89.     延时 10000 毫秒
  90. 子程序结束
  91. 子程序 OnScriptExit()
  92.     令 dm_ret = dm.UnBindWindow
  93.     调用 Office.CloseXls()
  94. 子程序结束