1. Call 注册()
2. //<>------------------------------
3. hwnd = dm.GetMousePointWindow()
4. 在调试状态下向调试窗口输出 hwnd
5. //dm.MoveWindow hwnd,-540,15
6. 延时1000毫秒
7. dm_ret = dm.BindWindow(hwnd,"dx2","windows2","dx",1)
8. 延时200毫秒
9. 如果表达式 (dm_ret=0 Then) 为真,则
10.     弹出窗口 "绑定“失败”"
11.     ExitScript
12.     End If
13.     //模拟==================================
14.     设置模拟方式
15.     设置模拟方式
16.     设置模拟方式
17.     设置模拟方式
18.     //大循环次
19.     循环 8 遍
20.         标记 查找赛利亚
21.         标记 查找赛利亚
22.         标记 查找赛利亚
23.         //查找赛利亚============================
24.         do
25.         dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
26.         如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
27.             dm.MoveTo intX+275,intY+50
28.             延时200毫秒
29.             dm.LeftDoubleClick
30.             Exit Do
31.             End If
32.             loop
33.             //找到赛利亚点物===========================
34.             do
35.             dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚2.bmp","000000",0.9,0,intX,intY)
36.             如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
37.                 dm.MoveTo intX-20,intY+50
38.                 延时200毫秒
39.                 dm.LeftDoubleClick
40.                 Exit Do
41.                 End If
42.                 loop
43.                 //进入商店买腰带===============================
44.                 循环 32 遍
45.                     dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚3.bmp","000000",0.9,0,intX,intY)
46.                     如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
47.                         dm.MoveTo 213,360
48.                         延时200毫秒
49.                         dm.LeftDoubleClick
50.                         End If
51.                         Next
52.                         //按ESC关闭===============================
53.                         延时200毫秒
54.                         dm.KeyPress 27
55.                         延时200毫秒
56.                         //选按上===============================
57.                         dm.KeyDown 38
58.                         延时300毫秒
59.                         dm.KeyUp 38
60.                         //在按下===============================
61.                         dm.KeyDown 40
62.                         延时700毫秒
63.                         dm.KeyUp 40
64.                         //打开分解机===============================
65.                         do
66.                         dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚4.bmp","000000",0.7,0,intX,intY)
67.                         如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
68.                             dm.KeyPress 84
69.                             延时200毫秒
70.                             Exit Do
71.                             End If
72.                             loop
73.                             // 输入9999===============================
74.                             do
75.                             dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚5.bmp","000000",0.9,0,intX,intY)
76.                             如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
77.                                 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
78.                                     dm.MoveTo intX,intY+55
79.                                     延时500毫秒
80.                                     dm.KeyPress 57
81.                                     延时100毫秒
82.                                     dm.KeyPress 57
83.                                     延时100毫秒
84.                                     dm.KeyPress 57
85.                                     延时100毫秒
86.                                     dm.KeyPress 57
87.                                     延时100毫秒
88.                                     //点确认===============================
89.                                     //点确认===============================
90.                                     dm. KeyPress 13
91.                                     dm. KeyPress 13
92.                                     延时1000毫秒
93.                                     dm.MoveTo 330,310
94.                                     延时200毫秒
95.                                     dm.LeftClick
96.                                     dm.LeftClick
97.                                     延时200毫秒
98.                                     Exit Do
99.                                     End If
100.                                     loop