[演示例子]查找附件圖片數組

資料來源：兄弟論壇
作者：兄弟工程師01

Dim a(9)
//圖片陣列資料
a(0)="Attachment:\0.bmp"
a(1)="Attachment:\1.bmp"
a(2)="Attachment:\2.bmp"
a(3)="Attachment:\3.bmp"
a(4)="Attachment:\4.bmp"
a(5)="Attachment:\5.bmp"
a(6)="Attachment:\6.bmp"
a(7)="Attachment:\7.bmp"
a(8)="Attachment:\8.bmp"
a(9)="Attachment:\9.bmp"
Gosub 尋找圖片陣列
EndScript
Sub 尋找圖片陣列
    i=0
    For 10
        VBSCall FindPic(880,21,889,34,a(i),1,x,y)
        If x>0 and y>0
            Goto 找到
        EndIf
        i=i+1
    EndFor
    Rem 找到
    Msgbox "找到第 " & i & " 張圖"
Return 尋找圖片陣列