
call 找图片//调用子程序
sub 找图片//子程序
for f=1 to 2
FindPic(0,0,1024,768,"Attachment:\"&f&".bmp",0.9,x,y)
if x>0 and y>0
MessageBox "OK"
Else
MessageBox "NO"
EndIf
next
end sub

call 找图片//调用子程序
sub 找图片//子程序
for f=1 to 2
FindPic(0,0,1024,768,"Attachment:\"&f&".bmp",0.9,x,y)
if x>0 and y>0
MessageBox "OK"
Else
MessageBox "NO"
EndIf
next
end sub