a=0 b=0 c=0 d=0 e=0 intX=0 intY=0 Rem 图片1 FindPic intX+10,intY+10,1024,768,Attachment:\图片1.bmp,0.9,intX,intY If intX 0 And intY 0 Then a=a+1 Goto 图片1 End If MessageBox 图片1的数量为&a
intX=0 intY=0 Rem 图片2 FindPic intX+10,intY+10,1024,768,Attachment:\图片2.bmp,0.9,intX,intY If intX 0 And intY 0 Then b=b+1 Goto 图片2 End If MessageBox 图片2的数量为&b
intX=0 intY=0 Rem 图片3 FindPic intX+10,intY+10,1024,768,Attachment:\图片3.bmp,0.9,intX,intY If intX 0 And intY 0 Then c=c+1 Goto 图片3 End If MessageBox 图片3的数量为&c
intX=0 intY=0 Rem 图片4 FindPic intX+10,intY+10,1024,768,Attachment:\图片4.bmp,0.9,intX,intY If intX 0 And intY 0 Then d=d+1 Goto 图片4 End If MessageBox 图片4的数量为&d
intX=0 intY=0 Rem 图片5 FindPic intX+10,intY+10,1024,768,Attachment:\图片5.bmp,0.9,intX,intY If intX 0 And intY 0 Then e=e+1 Goto 图片5 End If MessageBox 图片5的数量为&e 将图片放入脚本附件，并依次命名为图片1-5
Dim ta(4), tb(1)//申明两个数组来存放图片//假设图A类有5张图.图的名称为:图A-1,图A-2...For i = 0 To UBound(ta) i1 = i+1 ta(i) = Attachment:\图A- & i1 & .bmp//循环给数组A赋值NextFor i = 0 To UBound(tb) i1 = i+1 tb(i) = Attachment:\图B- & i1 & .bmp//循环给数组B赋值Nexti = 0Do FindPic 0,0,1024,768,ta(i),0.9,intX,intY If intX 0 And intY 0 Then i1 = 0 Do FindPic 0, 0, 1024, 768, tb(i1), 0.9, intX, intY If intX 0 And intY 0 Then MoveTo intX + 5, intY + 5 Delay 10 LeftClick 1 Exit Do//找到单击后跳出找图B的循环 Else i1 = i1 + 1//找不到就找B类下一个图 If i1 = 2 Then //如果B类都没有找到,就一直不停的找 i1 = 0 End If End If Delay 200 loop End If i = i + 1 If i UBound(ta) Then //如果找到A类最后一张图,则返回重找 i = 0 End If Delay 200Loop如果图片的命名方式不规则,就只能一个一个的给数组赋值
