按键精灵速度最快的全屏找图返回图片个数脚本

认真修改了下之前的代码多了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