Do
FindPic 0,0,1024,768,"Attachment:\A1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call A1
Exit Do
End If
FindPic 0,0,1024,768,"Attachment:\B1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call B1
Exit Do
End If
FindPic 0,0,1024,768,"Attachment:\C1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call C1
Exit Do
End If
Loop
循环找图。直到找到三张图片里的任意一张时执行响应操作后结束
findpic A
if 找到
A1
else
findpic B
if 找到
B1
else
findpic C
if 找到
C1
end if
end if
end if