1. 展开附件 *dm.dll* 到 c:\test_game 文件夹
2. 展开附件 *真锁怪.bmp* 到 c:\test_game 文件夹
3. 展开附件 *抽奖开始.bmp* 到 c:\test_game 文件夹
4. 展开附件 *水月.bmp* 到 c:\test_game 文件夹
5. 展开附件 *魂铠.bmp* 到 c:\test_game 文件夹
6. 令 ws = createobject("Wscript.Shell")
7. ws.run("regsvr32 c:\test_game\dm.dll /s")
8. 令 ws = nothing
9. 延时 300 毫秒
10. 令 dm = createobject("dm.dmsoft")
11. 向调试窗口输出：dm.Ver()
12. dm.SetPath("c:\test_game")
13. 令 hwnd = dm.GetMousePointWindow()
14. dm.MoveWindow(hwnd,- 10 ,0)
15. 令 dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",1)
16. 循环开始
17.     令 dm_ret = dm.Findpic(635,142,722,214,"抽奖开始.bmp","000000",0.9,0,x,y)
18.     如果 x >= 0 则
19.         dm.MoveTO(682,178)
20.         延时 1000 毫秒
21.         dm.LeftClick()
22.         延时 1650 毫秒
23.         dm.LeftClick()
24.     条件结束
25.     dm.KeyPress(192)
26.     延时 200 毫秒
27.     令 dm_ret = dm.Findpic(295,5,566,87,"真锁怪.bmp","000000",0.7,0,x,y)
28.     如果 x >= 0 则
29.         dm.KeyPress(50)
30.     否则
31.         dm.KeyPress(9)
32.         令 dm_ret = dm.Findpic(295,5,566,87,"真锁怪.bmp","000000",0.7,0,x,y)
33.         如果 x <= 0 则
34.             令 dm_ret = dm.FindColor(872,48,1006,175,"eff001",0.9,4,intX,inty)
35.             如果 intX >= 0 则
36.                 dm.MoveTO(intX,intY)
37.                 dm.LeftClick()
38.             条件结束
39.         条件结束
40.         令 dm_ret = dm.Findpic(537,61,829,166,"魂铠.bmp","000000",0.9,0,x,y)
41.         如果 x <= 0 则
42.             dm.KeyPress(55)
43.         条件结束
44.         令 dm_ret = dm.Findpic(537,61,829,166,"水月.bmp","000000",0.9,0,x,y)
45.         如果 x <= 0 则
46.             dm.KeyPress(56)
47.         条件结束
48.     条件结束
49. 循环结束
50. 令 dm_ret = dm.UnBindWindow()