Dim 測試(7),找到(7)
測試 (0)="我的文檔"
測試 (1)="我的電腦"
測試 (2)="網上鄰居"
測試 (3)="回收站"
測試 (4)="QQ遊戲"
測試 (5)="寬帶連接"
測試 (6)="快捷方式"
測試 (7)="360極速瀏覽器"
i=0
for i = 0 To ubound(測試)
FindPic 0,0,1024,768,"Attachment:\"&測試 (i)&".bmp",0.9,aX,aY
If aX > 0 Then
找到(i)=1
Else
找到(i)=0
End If
i=i+1
next
for i = 0 To ubound(測試)
if 找到(i)=1 then
MessageBox "找到," & 測試(i)
ElseIf 找到(i)=0 then
MessageBox "沒有找到," & 測試(i)
End If
next