Do DoFindPic 0,0,1024,768,"Attachment:\神盾.bmp",0.9,intX,intY'神盾.bmp改成你要找的图片名称If intX > 0 And intY > 0 Then Call 程序1Exit Do End IfDelay 1000LoopCall 程序2Loop Sub 程序1 '你的程序End SubSub 程序2 '你的程序End Sub