ox "XP扫雷程序已开启！为了考虑程序的兼容性本程序会自动改变您的电脑分辨率为1024宽*768高*32位色，本程序结束后即可手动改回。在本程序运行过程中除非本程序提示需要按键操作之外，请不要对键盘和鼠标做任何按键或移动操作。谢谢合作...本程序作者??杨腾蛟??丶如有疑问可咨询作者QQ：252782983"
SetSimMode 2
Call Plugin.Sys.SetSc(1024,768,32)
Call RunApp("winmine.exe")
MessageBox "请“选择等级难度后”点击“确定”并按键盘“任意键一次”。"
WaitKey
Delay 1000
saolei = Plugin.Window.Find(扫雷, "扫雷")
Delay 500
Call Plugin.Window.Active(saolei)
Delay 100
FindPic 0,0,1024,768,"Attachment:\扫雷笑脸.bmp",0.9,xiaolianx,xiaoliany
If xiaolianx > 0 And xiaoliany > 0 Then
MoveTo xiaolianx, xiaoliany-50
    Delay 100
    LeftDown 1
    Delay 100
    MoveTo 245, 0
    Delay 100
    LeftUp 1
End If
FindPic 0,0,1024,768,"Attachment:\扫雷结束.bmp",0.5,qdx,qdy
If qdx > 0 And qdy > 0 Then
End If
Delay 100
KeyDown 18, 1
Delay 100
KeyPress 71, 1
Delay 100
KeyUp 18, 1
Delay 100
KeyPress "N", 1
Delay 100
KeyPress "Shift", 1
Delay 100
KeyPress "X", 1
Delay 100
KeyPress "Y", 1
Delay 100
KeyPress "Z", 1
Delay 100
KeyPress "Z", 1
Delay 100
KeyPress "Y", 1
Delay 50
KeyPress "Shift", 1
//两个格子间间隔16个像素
x = qdx+18
y=95
Rem 主程序
MoveTo x, y
IfColor x,y,"FF0000",1 Then
    IfColor x,y,"8000",1 Then
            IfColor x,y,"FF",1 Then
                IfColor x,y,"C0C0C0",1 Then
                                IfColor x,y,"800000",1 Then
                                        IfColor x,y,"80",1 Then
                        IfColor x,y,"0",1 Then
x=qdx+18-16
y=y+16
                                                    End If
                        End If
                    End If
                End If
            End If
        End If
End If
IfColor x,y,"FF0000",1 Then
IfColor x,y,"8000",1 Then
    IfColor x,y,"FF",1 Then
    IfColor x,y,"C0C0C0",1 Then
                IfColor x,y,"800000",1 Then
                    IfColor x,y,"80",1 Then
                                                IfColor x,y,"0",1 Then
                        FindPic 0,0,1024,768,"Attachment:\扫雷结束.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
                        MoveTo intX+1, intY
                            LeftClick 1
                                                                Else
                            End If
                                Else
End If
                            Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
                                If y>468 Then
    EndScript
    End If
IfColor 0,0,"FFFFFF",0 Then
LeftClick 1
    x=x+16