不用三分钟，几秒钟搞掂，代码例子如下
Dim A,索引
索引= Array("图1","图2") //30个图你自己加名字
a=0
For 30
FindPic 0,0,1024,768,"Attachment:\"&索引(a)&".bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
If a=0 Then
MessageBox "找到图1，执行图1操作"
ElseIf a=1 Then
MessageBox "找到图2,执行图2操作"
End If
Else
a=a+1
End If
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024