1. 弹出窗口 "XP扫雷程序已开启！为了考虑程序的兼容性本程序会自动改变您的电脑分辨率为1024宽*768高*32位色，本程序结束后即可手动改回。在本程序运行过程中除非本程序提示需要按键操作之外，请不要对键盘和鼠标做任何按键或移动操作。谢谢合作...本程序作者??杨腾蛟??丶如有疑问可咨询作者QQ：252782983"
2. 设置模拟方式
3. Call Plugin.Sys.SetSc(1024,768,32)
4. Call RunApp("winmine.exe")
5. 弹出窗口 "请“选择等级难度后”点击“确定”并按键盘“任意键一次”。"
6. 等待按任意键，保存到变量"请“选择等级难度后”点击“确定”并按键盘“任意键一次”。"中
7. 延时1000毫秒
8. saolei = Plugin.Window.Find(扫雷, "扫雷")
9. 延时500毫秒
10. Call Plugin.Window.Active(saolei)
11. 延时100毫秒
12. FindPic 0,0,1024,768,"Attachment:\扫雷笑脸.bmp",0.9,xiaolianx,xiaoliany
13. 如果表达式 (xiaolianx > 0 And xiaoliany > 0 Then) 为真,则
14.     鼠标移到 xiaolianx , xiaoliany-50
15.     延时100毫秒
16.     左键按下
17.     延时100毫秒
18.     鼠标移到 245 , 0
19.     延时100毫秒
20.     左键弹起
21.     End If
22.     FindPic 0,0,1024,768,"Attachment:\扫雷结束.bmp",0.5,qdx,qdy
23.     如果表达式 (qdx > 0 And qdy > 0 Then) 为真,则
24.         End If
25.         延时100毫秒
26.         按住 <Alt>
27.         延时100毫秒
28.         按键 <G>
29.         延时100毫秒
30.         弹起 <Alt>
31.         延时100毫秒
32.         按键#"N"
33.         延时100毫秒
34.         按键#"Shift"
35.         延时100毫秒
36.         按键#"X"
37.         延时100毫秒
38.         按键#"Y"
39.         延时100毫秒
40.         按键#"Z"
41.         延时100毫秒
42.         按键#"Z"
43.         延时100毫秒
44.         按键#"Y"
45.         延时50毫秒
46.         按键#"Shift"
47.         //两个格子间间隔16个像素
48.         x = qdx+18
49.         y=95
50.         标记 主程序
51.         鼠标移到 x , y
52.         如果 (x,y) 的颜色不等于 #"FF0000" 则
53.             如果 (x,y) 的颜色不等于 #"8000" 则
54.                 如果 (x,y) 的颜色不等于 #"FF" 则
55.                     如果 (x,y) 的颜色不等于 #"C0C0C0" 则
56.                         如果 (x,y) 的颜色不等于 #"800000" 则
57.                             如果 (x,y) 的颜色不等于 #"80" 则
58.                                 如果 (x,y) 的颜色不等于 #"0" 则
59.                                     x=qdx+18-16
60.                                     y=y+16
61.                                     End If
62.                                     End If
63.                                     End If
64.                                     End If
65.                                     End If
66.                                     End If
67.                                     End If
68.                                     如果 (x,y) 的颜色不等于 #"FF0000" 则
69.                                         如果 (x,y) 的颜色不等于 #"8000" 则
70.                                             如果 (x,y) 的颜色不等于 #"FF" 则
71.                                                 如果 (x,y) 的颜色不等于 #"C0C0C0" 则
72.                                                     如果 (x,y) 的颜色不等于 #"800000" 则
73.                                                         如果 (x,y) 的颜色不等于 #"80" 则
74.                                                             如果 (x,y) 的颜色不等于 #"0" 则
75.                                                                 FindPic 0,0,1024,768,"Attachment:\扫雷结束.bmp",0.5,intX,intY
76.                                                                 如果表达式 (intX > 0 And intY > 0 Then) 为真,则
77.                                                                     鼠标移到 intX+1 , intY
78.                                                                     左键单击
79.                                                                 否则
80.                                                                     End If
81.                                                                 否则
82.                                                                     End If
83.                                                                 否则
84.                                                                     End If
85.                                                                 否则
86.                                                                     End If
87.                                                                 否则
88.                                                                     End If
89.                                                                 否则
90.                                                                     End If
91.                                                                 否则
92.                                                                     End If
93.                                                                 否则
94.                                                                     End If
95.                                                                     如果表达式 (y>468 Then) 为真,则
96.                                                                         脚本停止运行
97.                                                                         End If
98.                                                                         如果 (0,0) 的颜色等于 #"FFFFFF" 则
99.                                                                             左键单击
100.                                                                             x=x+16