1. 用户定义变量 jiaoseming = 0 "输入角色名称"
2. 令 jiaoseming = Form1.InputBox1.text
3. 令 Hwnd = Window.Find(0,"[" & jiaoseming & "]-新蓬莱Online")
4. 如果 hwnd = "" 或者 hwnd = 0 则
5.     弹出窗口 "没有找到游戏窗口,请检查角色名输入是否正确！！！"
6.     ExitScript()
7. 否则
8.     调用 Window.Active(Hwnd)
9. 条件结束
10. 标记 寻怪
11. 如果点 (421,65) 的颜色不等于 "F75910" 则
12.     调用 Bkgnd.KeyPress(Hwnd,9)
13. 否则
14.     如果 Form1.CheckBox1.Value 则
15.         （键盘）按 "1" 键, 1次
16.         延时 200 毫秒
17.     条件结束
18.     如果 Form1.CheckBox2.Value 则
19.         （键盘）按 "2" 键, 1次
20.         延时 200 毫秒
21.     条件结束
22.     如果 Form1.CheckBox3.Value 则
23.         （键盘）按 "3" 键, 1次
24.         延时 200 毫秒
25.     条件结束
26.     如果 Form1.CheckBox4.Value 则
27.         （键盘）按 "4" 键, 1次
28.         延时 200 毫秒
29.     条件结束
30.     如果 Form1.CheckBox5.Value 则
31.         （键盘）按 "1" 键, 1次
32.         延时 200 毫秒
33.     条件结束
34.     如果 Form1.CheckBox6.Value 则
35.         （键盘）按 "2" 键, 1次
36.         延时 200 毫秒
37.     条件结束
38.     如果 Form1.CheckBox7.Value 则
39.         （键盘）按 "3" 键, 1次
40.         延时 200 毫秒
41.     条件结束
42.     如果 Form1.CheckBox8.Value 则
43.         （键盘）按 "4" 键, 1次
44.         延时 200 毫秒
45.     条件结束
46.     如果 Form1.shiquwupin.Value 则
47.         调用 Bkgnd.KeyPress(Hwnd,32)
48.         延时 200 毫秒
49.         调用 Bkgnd.KeyPress(Hwnd,32)
50.         延时 200 毫秒
51.         调用 Bkgnd.KeyPress(Hwnd,32)
52.         延时 200 毫秒
53.         调用 Bkgnd.KeyPress(Hwnd,32)
54.         延时 200 毫秒
55.         调用 Bkgnd.KeyPress(Hwnd,32)
56.         延时 200 毫秒
57.         调用 Bkgnd.KeyPress(Hwnd,32)
58.         延时 300 毫秒
59.     条件结束
60.     跳转到标记 寻怪
61. 条件结束