Sub 命令 //命令程序 Delay 1000 End Sub FindPic 1500, 425, 1928, 661, "Attachment:\1.bmp", 1, intX, intY If intX > 0 Then Call 命令 End If aa = now Do FindPic 1500, 425, 1928, 661, "Attachment:\1.bmp", 1, intX, intY If intX > 0 Then Call 命令 End If Delay 1000 If DateDiff("s", aa, now) > 60 Then Exit Do Loop