五分钟后没找到，打错了！求大神

可以利用datediff 函数获取时间间隔，在这个间隔内循环，超过这个间隔就退出循环
time1 = time
Do
FindPic 0,0,1024,768,"Attachment:\神盾.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//执行代码
Else
End If
Loop While datediff("n", time1, time) < 5
//执行下面的代码

100兆流量 ，现金券 : http://1.baidu.com/?invite_code=BLQGSAS3

楼上的根本不懂楼主的意思，按照楼主的意思，和楼上的方法，代码应该这样:
Dim i
i=0
for 300
找图命令
if intX>-1 and intY>-1 then
i=1
end if
delay 1000
next
if i=0 then
5分钟内没找到所需要执行的子程序
end if
当然，这种方法不可取，因为执行找图操作是要费时间的，用delay1000并不能正确的保证该次循环用时1秒，所以，应该用多线程读秒 或者 直接获取系统时间的方式(也就是工程师所说的方式)

貌似漏了条件
没注意看找到之后就不执行子程序了