认真修改了下之前的代码多了3行就是不一样从7秒提速到0.375秒~

1. cy=10  '图片高度
   

2. Dim ay, bx, by, sTime, qw, op
   

3. dw=Plugin.Sys.GetScRX 
   

4. dh=Plugin.Sys.GetScRY
   

5. ax=0:ay = 0:sTime = Timer:bbs = 0
   

6. Do 
   

7.     FindPic ax, ay, dw, dh, "Attachment:\我.bmp", 1, intX2, intY2
   

8.     If intX2 > 0 and intY2 > 0 Then 
   

9.         bbs=bbs+1:Ux=intX2+1:ay = inty2 + 1
   

10.         qw=qw&intX2&","&intY2&vbcrlf
    

11.     Else 
    

12.         Exit Do
    

13.     End If
    

14.     intX1=1
    

15.     Do Until intX1 < 0
    

16.         FindPic Ux, ay-1, dw, ay-1+cy, "Attachment:\我.bmp", 1, intX1, intY1 
    

17.         If intX1 > 0 and intY1 > 0 Then 
    

18.             bbs=bbs+1:Ux=intX1+1
    

19.             qw = qw & intX1 & "," & intY1 & vbcrlf
    

20.         End If
    

21.     Loop
    

22. Loop
    

23. MessageBox "查找到符合条件的图片"& bbs &"张!"&vbcrlf&" "&vbcrlf&"耗时"& Timer-sTime &"秒"&vbcrlf&" "&vbcrlf&"他们的坐标为:"&vbcrlf&qw