Rem a
Delay 1000
VBSCall FindPic(0,0,1027,768,"Attachment:\截图.bmp",0.9,intX,intY)
If intX>0
goto b
Else
Goto a
EndIf
Rem b
VBSCall RunApp("音频文件路径")
Delay 1000
Goto b
这个截图的话,建议你用抓点抓色工具截图,然后编写的时候通过附件添加,名字要一样。音频文件注意要到最后的文件,比如F:\音频程序.mp3 这最后的mp3这类拓展名要出现
Rem a
Delay 1000
VBSCall FindPic(0,0,1024,768,"Attachment:\图片.bmp",0.9,intX,intY)
If intx>0 and inty>0
MoveTo intx inty
Rem b
VBSCall RunApp("C:\WINDOWS\Media\Windows XP 叮当声.wav")
Delay 2000
Goto b
Else
Goto a
EndIf