1. 循环开始
2.     令 Key = （键盘）等待按任意键
3.     如果 Key = 81 则
4.         启动线程 线程1
5.     条件结束
6. 循环结束
7. 子程序 线程1()
8.     展开附件 *.* 到 c:\test_game 文件夹
9.     令 ws = createobject("Wscript.Shell")
10.     ws.run("regsvr32 c:\test_game\dm.dll /s")
11.     令 ws = nothing
12.     延时 1500 毫秒
13.     令 dm = CreateObject("dm.dmsoft")
14.     令 ver = dm.Ver()
15.     如果 len(ver) = 0 则
16.         弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
17.         脚本停止运行
18.     条件结束
19.     令 base_path = dm.GetBasePath()
20.     令 dm_ret = dm.SetPath(base_path)
21.     令 hwnd = dm.GetMousePointWindow()
22.     令 dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",0)
23.     延时 1000 毫秒
24.     标记 开始(子程序 线程1)
25.     延时 7000 毫秒
26.     令 dm_ret = dm.FindPic(0,0,2000,2000,"鱼饵.bmp","000000",0.9,0,intX,intY)
27.     如果 intX >= 0 则
28.         dm.MoveTo(intX,intY)
29.         延时 100 毫秒
30.         dm.RightClick()
31.     条件结束
32.     延时 500 毫秒
33.     dm.KeyPress(49)
34.     延时 500 毫秒
35.     循环当 i = 0 时
36.         令 dm_ret = dm.FindColor(381,218,420,301,"f4f0f4-000000",1.0,0,intX,intY)
37.         如果 intX >= 0 并且 intY >= 0 则
38.             延时 2500 毫秒
39.             dm.KeyPress(49)
40.             跳转到标记 开始(子程序 线程1)
41.         条件结束
42.     循环结束
43. 子程序结束