1. 如果 Form1.CheckBox7.Value = 1 则
2.     调用 （命令库 系统）结束进程(QQDL.exe)
3. 条件结束
4. 设置模拟方式为：超级模拟
5. 调用 Msg.Tips("欢迎使用----鬼斧神工制作----QQ:461180224")
6. 注释：*********************************************************************************************
7. 子程序 第一()
8.     定义变量 pl
9.     令 pl = Form1.InputBox1.Text
10.     循环 pl 次
11.         延时 2000 毫秒
12.         令 hwnd = Window.MousePoint
13.         令 Hwnd = Window.Find(0,"地下城与勇士")
14.         调用 Window.Active(Hwnd)
15.         调用 Window.Show(Hwnd)
16.         令 x = Window.Move(hwnd,0,0)
17.         延时 1000 毫秒
18.         从左上到右下查找图片 "Attachment:\条.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
19.         如果 intX > 0 并且 intY > 0 则
20.             （鼠标）移动到 (intX, intY)
21.             延时 200 毫秒
22.             锁定鼠标位置
23.             （鼠标）左键单击, 1次
24.             解除鼠标锁定
25.         条件结束
26.         延时 200 毫秒
27.         调用 Window.Top(Hwnd,1)
28.         （键盘）按下 "A" 键
29.         延时 4000 毫秒
30.         （键盘）弹起 "A" 键
31.         延时 20 毫秒
32.         （键盘）按 "S" 键, 1次
33.         延时 30 毫秒
34.         注释：选择地图 Delay 30
35.         （鼠标）移动到 (502, 187)
36.         延时 500 毫秒
37.         （鼠标）左键单击, 1次
38.         注释：难度选择
39.         注释：判断选中情况
40.         延时 30 毫秒
41.         如果 Form1.OptionBox1.Value = 1 则
42.             （键盘）按 "D" 键, 1次
43.         否则如果 Form1.OptionBox2.Value = 1 则
44.             （键盘）按 "D" 键, 1次
45.             延时 200 毫秒
46.             （键盘）按 "D" 键, 1次
47.         否则如果 Form1.OptionBox3.Value = 1 则
48.             （键盘）按 "D" 键, 1次
49.             延时 200 毫秒
50.             （键盘）按 "D" 键, 1次
51.             延时 200 毫秒
52.             （键盘）按 "D" 键, 1次
53.             延时 200 毫秒
54.             （键盘）按 "D" 键, 1次
55.         条件结束
56.         （键盘）按 "Space" 键, 1次
57.         延时 4000 毫秒
58.         注释：小号使用法药
59.         如果 Form1.CheckBox1.Value = 1 则
60.             （键盘）按 "1" 键, 1次
61.             延时 1000 毫秒
62.         否则
63.             令 Form1.CheckBox1.Enabled = 0
64.         条件结束
65.         （键盘）按下 "W" 键
66.         定义变量 zou
67.         令 zou = Form1.InputBox8.Text
68.         延时 zou 毫秒
69.         （键盘）弹起 "W" 键
70.         延时 1000 毫秒
71.         注释：技能使用
72.         定义变量 CD
73.         令 CD = Form1.InputBox6.Text
74.         如果 Form1.CheckBox2.Value = 1 则
75.             （键盘）按 "F3" 键, 1次
76.             延时 CD * 1000 毫秒
77.         否则如果 Form1.CheckBox3.Value = 1 则
78.             （键盘）按 "F4" 键, 1次
79.             延时 CD * 1000 毫秒
80.         否则如果 Form1.CheckBox4.Value = 1 则
81.             （键盘）按 "F5" 键, 1次
82.             延时 CD * 1000 毫秒
83.         否则如果 Form1.CheckBox5.Value = 1 则
84.             （键盘）按 "F6" 键, 1次
85.             延时 CD * 1000 毫秒
86.         否则
87.             令 Enabled = 0
88.         条件结束
89.         （键盘）按 "8" 键, 1次
90.         延时 1000 毫秒
91.         定义变量 CDc
92.         令 CDc = Form1.InputBox2.Text
93.         循环 CDc 次
94.             （超级模拟键盘）按 "J" 键, 1次
95.             延时 20 毫秒
96.         循环结束
97.         从左上到右下查找图片 "Attachment:\哈哈.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
98.         如果 intX > 0 并且 intY > 0 则
99.             （鼠标）移动到 (intX, intY)
100.             延时 100 毫秒