1. 展开附件 *.* 到 c:\test_game 文件夹
2. 令 ws = createobject("Wscript.Shell")
3. ws.run("regsvr32 c:\test_game\dm.dll /s")
4. 令 ws = nothing
5. 延时 1500 毫秒
6. 令 dm = CreateObject("dm.dmsoft")
7. 令 ver = dm.Ver()
8. 如果 len(ver) = 0 则
9.     弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
10.     脚本停止运行
11. 条件结束
12. 展开附件 *.txt 到 c:\test_game 文件夹
13. 令 dm_ret = dm.SetPath("c:\test_game")
14. 令 dm_ret = dm.SetDict(0,"dm_soft.txt")
15. 令 hwnd = dm.FindWindow("","热血昆仑[热血征途(PK)]")
16. 令 dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
17. 延时 1000 毫秒
18. dm.setpath("C:\test_game")
19. 延时 100 毫秒
20. 标记 开始
21. 令 dm_ret = dm.FindColor(762,321,847,336,"ff0000-000000",1.0,0,intX,intY)
22. 如果 intX >= 0 并且 intY >= 0 则
23.     延时 400 毫秒
24.     调用 去做任务
25.     延时 200 毫秒
26. 条件结束
27. 延时 400 毫秒
28. 调用 接任务
29. 延时 400 毫秒
30. 子程序 接任务
31.     循环开始
32.         令 dm_ret = dm.Ocr(104,63,494,396,"ceefc6-000000",1.0)
33.         令 dm_ret = dm.FindStr(104,63,494,396,"发布","ceefc6-000000",1.0,intX,intY)
34.         如果 intX > 0 则
35.             dm.MoveTo(intX,intY)
36.             跳出循环
37.         否则
38.         条件结束
39.     当 7 = 7 时循环
40.     注释：点广成子
41.     dm.Moveto(intX,intY + 119)
42.     dm.LeftClick()
43.     延时 800 毫秒
44.     dm.Moveto(112,362)
45.     dm.LeftClick()
46.     延时 800 毫秒
47.     dm.Moveto(621,526)
48.     dm.LeftClick()
49.     延时 800 毫秒
50.     跳转到标记 开始(子程序 接任务)
51. 子程序结束
52. 子程序 完成任务
53.     循环开始
54.         令 dm_ret = dm.Ocr(104,63,494,396,"ceefc6-000000",1.0)
55.         令 dm_ret = dm.FindStr(104,63,494,396,"发布","ceefc6-000000",1.0,intX,intY)
56.         如果 intX > 0 则
57.             dm.MoveTo(intX,intY)
58.         否则
59.             调用 回广成子
60.         条件结束
61.         跳出循环
62.     当 7 = 7 时循环
63.     延时 500 毫秒
64.     dm.MoveTo(intX,intY + 119)
65.     dm.LeftClick()
66.     延时 200 毫秒
67.     dm.MoveTo(112,394)
68.     延时 500 毫秒
69.     dm.LeftClick()
70.     延时 500 毫秒
71.     dm.MoveTo(624,527)
72.     延时 500 毫秒
73.     dm.LeftClick()
74. 子程序结束
75. 子程序 去做任务
76.     dm.Moveto(785,328)
77.     dm.LeftClick()
78.     延时 400 毫秒
79.     dm.LeftClick()
80.     延时 400 毫秒
81.     dm.LeftClick()
82.     延时 400 毫秒
83.     dm.LeftClick()
84.     延时 400 毫秒
85.     调用 是动是静
86.     调用 做任务
87.     调用 完成任务了吗
88.     调用 回广成子
89.     跳转到标记 开始(子程序 去做任务)
90. 子程序结束
91. 子程序 是动是静
92.     循环开始
93.         令 s = dm.Ocr(898,28,957,43,"ffffff-000000",1.0)
94.         延时 3000 毫秒
95.         令 s1 = dm.Ocr(898,28,957,43,"ffffff-000000",1.0)
96.         如果 s = s1 则
97.             延时 3000 毫秒
98.             跳出循环
99.         否则
100.         条件结束