1. 注释：a = Plugin.zhishiceshi.Test1("http://hi.baidu.com/niswodezuiai01/home", 4 )
2. 注释：If a <> "完美测试" Then
3. 注释： MsgBox a & "作者QQ ：３７６３２１２０５"
4. 注释： EndScript
5. 注释：End If
6. 定义环境变量 kk
7. 定义环境变量 cs
8. 定义环境变量 c
9. 定义环境变量 cnm
10. 定义环境变量 x1
11. (语句无法识别，可能有错误): Dimenv jineng '挂机技能
12. (语句无法识别，可能有错误): Dimenv gx, gy, ox, oy '找怪范围
13. (语句无法识别，可能有错误): gx = Form1.InputBox3.Text '找怪范围
14. (语句无法识别，可能有错误): gy = Form1.InputBox4.Text '找怪范围
15. (语句无法识别，可能有错误): ox = Form1.InputBox5.Text '找怪范围
16. (语句无法识别，可能有错误): oy = Form1.InputBox6.Text '找怪范围
17. 令 wushe = Form1.InPutBox2.Text
18. 令 jineng = Asc(wushe)
19. 定义变量 x(19), y(19), ex(19), ey(19), tx(19), ty(19)
20. 调用 Office.OpenXls("C:\map.xls")
21. 定义变量 map1, map2, map3
22. 令 map1 = Office.ReadXls(1,30,1)
23. 向调试窗口输出：map1
24. 循环 i 从 0 到 19
25.     令 x(i) = Office.ReadXls(1,i + 1,1)
26.     令 y(i) = Office.ReadXls(1,i + 1,2)
27.     向调试窗口输出：x(i)
28.     如果 x(i) = "" 则
29.         令 tu1 = i
30.         向调试窗口输出：i
31.         跳出循环
32.     条件结束
33. 循环结束
34. 令 map2 = Office.ReadXls(1,30,3)
35. 循环 i 从 0 到 19
36.     令 ex(i) = Office.ReadXls(1,i + 1,3)
37.     令 ey(i) = Office.ReadXls(1,i + 1,4)
38.     如果 ex(i) = "" 则
39.         令 tu2 = i
40.         跳出循环
41.     条件结束
42. 循环结束
43. 令 map3 = Office.ReadXls(1,30,5)
44. 循环 i 从 0 到 19
45.     令 tx(i) = Office.ReadXls(1,i + 1,5)
46.     令 ty(i) = Office.ReadXls(1,i + 1,6)
47.     如果 tx(i) = "" 则
48.         令 tu3 = i
49.         跳出循环
50.     条件结束
51. 循环结束
52. 令 cs = tu1
53. 令 cs2 = tu2
54. 令 cs3 = tu3
55. 令 tim = Form1.InputBox1.Text
56. 调用 zhuce()
57. 注释：======================= > > >获取句柄 < < < ==================================
58. 循环 tim 次
59.     MsgBox("【小键盘】“+”代表“" & map1 & "”，“-”代表“" & map2 & "”，“*”代表“" & map3 & "”")
60.     令 Key = WaitKey
61.     如果 key = 107 则
62.         令 x1 = Join(x,",")
63.         令 y1 = Join(y,",")
64.         令 kk = Window.MousePoint()
65.         (语句无法识别，可能有错误): BeginThread gamestart(cs)
66.     否则如果 key = 109 则
67.         令 x1 = Join(ex,",")
68.         令 y1 = Join(ey,",")
69.         令 kk = Window.MousePoint()
70.         (语句无法识别，可能有错误): BeginThread gamestart(cs2)
71.     否则如果 key = 106 则
72.         令 x1 = Join(tx,",")
73.         令 y1 = Join(ty,",")
74.         令 kk = Window.MousePoint()
75.         (语句无法识别，可能有错误): BeginThread gamestart(cs3)
76.     条件结束
77.     向调试窗口输出：x1
78. 循环结束
79. 注释：======================= > > >获取句柄 < < < ==================================
80. 子程序 zhuce()
81.     注释：======================= > > >注册大漠 < < < ==================================
82.     展开附件 *.dll 到 .\plugin 文件夹
83.     展开附件 *.bmp 到 .\plugin\大漠梦想 文件夹
84.     展开附件 *.txt 到 .\plugin\大漠梦想 文件夹
85.     展开附件 dm.dll 到 .\plugin\大漠梦想 文件夹
86.     调用 RegDll.Reg(".\plugin\大漠梦想\dm.dll")
87.     令 dm = createobject("dm.dmsoft")
88.     dm.SetPath(".\plugin\大漠梦想")
89.     注释：======================= > > >注册大漠 < < < ==================================
90.     延时 50 毫秒
91. 子程序结束
92. 子程序 gamestart(cwa)
93.     令 dm = createobject("dm.dmsoft")
94.     注释：↑创建“一个对象”
95.     dm.SetPath(".\plugin\大漠梦想")
96.     令 Hwnd = kk
97.     调用 Window.Size(Hwnd,1200,800)
98.     令 dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",0)
99.     延时 50 毫秒
100.     定义变量 mx, my