1. 令 dm = createobject("dm.dmsoft")
2. (语句无法识别，可能有错误): dm.SetPath "c:\" //设置路径
3. (语句无法识别，可能有错误): dm.SetDict 0, "zk.txt" //设置字库
4. (语句无法识别，可能有错误): hwnd = dm.GetMousePointWindow() //绑定窗口
5. (语句无法识别，可能有错误): dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "normal") //后台模式
6. (语句无法识别，可能有错误): For 100000 //循环次数，可自设
7. (语句无法识别，可能有错误): rem a //标记，如果找不到字则再次寻找，直到找到
8. 延时 500 毫秒
9. 令 dm_ret = dm.FindStr(0,0,2000,2000,"艾","f5ff01-000000",1.0,intX,intY)
10. 如果 intX >= 0 并且 intY >= 0 则
11.     (语句无法识别，可能有错误): dm.MoveTo intx+29,inty+68 //鼠标移动到指定位置
12.     延时 800 毫秒
13.     (语句无法识别，可能有错误): dm.LeftClick //执行鼠标动作
14.     延时 2000 毫秒
15.     令 dm_ret = dm.FindStr(0,0,2000,2000,"入","ffdd82-000000",1.0,intC,intD)
16.     如果 intC >= 0 则
17.         延时 500 毫秒
18.         dm.MoveTo(intC,intD + 3)
19.         延时 500 毫秒
20.         dm.LeftClick()
21.         延时 3000 毫秒
22.         如果 intx > 0 并且 intc > 0 则
23.             调用 zd
24.         条件结束
25.     条件结束
26. 否则
27.     跳转到标记 a
28. 条件结束
29. 循环结束
30. 子程序 zd
31.     循环 5 次
32.         延时 3000 毫秒
33.         令 dm_ret = dm.FindStr(0,0,2000,2000,"战","ffffff-000000",1.0,intA,intB)
34.         如果 intA >= 0 则
35.             延时 1000 毫秒
36.             dm.MoveTo(intA,intB + 5)
37.             延时 800 毫秒
38.             dm.LeftClick()
39.         条件结束
40.     循环结束
41. 子程序结束
42. (语句无法识别，可能有错误): dm_ret = dm.UnBindWindow() //解除绑定，退出脚本
43. 脚本停止运行