MessageBox "这个例子会启动一个Windows自带的扫雷程序，然后查找扫雷程序里的笑脸图形"
VBSCall RunApp("winmine.exe")
//加入一点延时，让扫雷程序顺利启动
Delay 2000
VBSCall FindPic(0,50,1023,767,"winmine.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
    MessageBox "找到图形，鼠标已经移到图形上面"
Else 
    MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"
EndIf 
MessageBox "下面把鼠标先移到0，0点，再用附件找图的方式继续查找笑脸"
VBSCall FindPic(0,50,1023,767,"Attachment:\winmine.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
    MessageBox "找到图形，鼠标已经移到图形上面"
Else 
    MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"
EndIf 
MessageBox "脚本演示结束，最好的脚本永远是您自己制作的。 :-)"
EndScript