1. (语句无法识别，可能有错误): Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
2. Msg.ShowScrTXT(0,0,100,100,"程序启动","")
3. 用户定义变量 zdnum=1 "射击次数"
4. 用户定义变量 sjnum=20 "射击延迟"
5. 循环当 1 = 1 时
6.     令 c1 = 得到指定点 (510, 382) 的颜色
7.     令 c2 = 得到指定点 (510, 383) 的颜色
8.     令 c3 = 得到指定点 (510, 384) 的颜色
9.     令 c4 = 得到指定点 (511, 382) 的颜色
10.     令 c5 = 得到指定点 (511, 383) 的颜色
11.     令 c6 = 得到指定点 (511, 384) 的颜色
12.     令 c7 = 得到指定点 (512, 382) 的颜色
13.     令 c8 = 得到指定点 (512, 383) 的颜色
14.     令 c9 = 得到指定点 (512, 384) 的颜色
15.     如果 c1 = "0000FF" 并且 c2 = "0000FF" 并且 c3 = "0000FF" 并且 c4 = "0000FF" 并且 c5 = "0000FF" 并且 c6 = "0000FF" 并且 c7 = "0000FF" 并且 c8 = "0000FF" 并且 c9 = "0000FF" 则
16.         Msg.ShowScrTXT(0,0,100,100,"狙击状态","")
17.         令 ajt = GetAsyncKeyState(84)
18.         令 ac1 = 得到指定点 (509, 381) 的颜色
19.         令 ac2 = 得到指定点 (509, 383) 的颜色
20.         令 ac3 = 得到指定点 (509, 385) 的颜色
21.         令 ac4 = 得到指定点 (511, 381) 的颜色
22.         令 ac5 = 得到指定点 (511, 385) 的颜色
23.         令 ac6 = 得到指定点 (513, 381) 的颜色
24.         令 ac7 = 得到指定点 (513, 383) 的颜色
25.         令 ac8 = 得到指定点 (513, 385) 的颜色
26.         循环当 ajt <> 0 时
27.             Msg.ShowScrTXT(0,0,100,100,"监控状态","")
28.             令 ajt = GetAsyncKeyState(84)
29.             令 bc1 = 得到指定点 (509, 381) 的颜色
30.             令 bc2 = 得到指定点 (509, 383) 的颜色
31.             令 bc3 = 得到指定点 (509, 385) 的颜色
32.             令 bc4 = 得到指定点 (511, 381) 的颜色
33.             令 bc5 = 得到指定点 (511, 385) 的颜色
34.             令 bc6 = 得到指定点 (513, 381) 的颜色
35.             令 bc7 = 得到指定点 (513, 383) 的颜色
36.             令 bc8 = 得到指定点 (513, 385) 的颜色
37.             如果 ac1 <> bc1 或者 ac2 <> bc2 或者 ac3 <> bc3 或者 ac4 <> bc4 或者 ac5 <> bc5 或者 ac6 <> bc6 或者 ac7 <> bc7 或者 ac8 <> bc8 则
38.                 （鼠标）左键单击, 1次
39.                 令 ajt = 0
40.             条件结束
41.             延时 1 毫秒
42.         循环结束
43.     否则如果 c2 = "00FE00" 并且 c4 = "00FE00" 并且 c5 = "00FF00" 并且 c6 = "00FE00" 并且 c8 = "00FE00" 则
44.         Msg.ShowScrTXT(0,0,100,100,"机枪状态","")
45.         从左上到右下查找颜色 "0000FF"，把找到的坐标保存到 (cx, cy)，指定区域（左：502 上：446 右：520 下：459）
46.         循环当 cx > 0 并且 cy > 0 时
47.             （鼠标）左键单击, zdnum次
48.             延时 sjnum 毫秒
49.             令 cx = 0
50.             令 cy = 0
51.         循环结束
52.     否则
53.         Msg.ShowScrTXT(0,0,100,100,"正常状态","")
54.         令 ajt = （键盘）检测上次按键
55.         如果 ajt = 84 则
56.             （鼠标）右键单击, 1次
57.             延时 10 毫秒
58.             （鼠标）左键单击, 1次
59.             延时 10 毫秒
60.             令 ajt = 0
61.         条件结束
62.     条件结束
63.     延时 1 毫秒
64. 循环结束