【按键精灵】后台找图获取所有结果

// 一般来说也可以直接写死图片尺寸，毕竟是自己截的图自己知道大小

Set Img = CreateObject("WIA.ImageFile")

Img.LoadFile("D:\按键精灵\按键精灵2014\screen\chrome.bmp")

w = Img.Width

h = Img.Height

TracePrint w

TracePrint h

XYArray=Plugin.BGCP2_02.FindPictureA(65882, 0, 0, 1920, 1080, "D:\按键精灵\按键精灵2014\screen\chrome.bmp", 30, 0.6)

If IsArray(XYArray) Then 

  XYlength = UBound(XYArray, 2)

  j = 0

  For i = 0 To XYlength

   If i = 0 Then 

   // Call action(CStr(XYArray(0, i)), CStr(XYArray(1, i)))

j = j + 1

   Else 

   xDistance = Abs(XYArray(0, i) - XYArray(0, i - 1))

   yDistance = Abs(XYArray(1, i) - XYArray(1, i - 1))

   If xDistance >= w Or yDistance >= h Then 

   // Call action(CStr(XYArray(0, i)), CStr(XYArray(1, i)))

j = j + 1

   End If

   End If

   If j = 2 Then 

   Call action(CStr(XYArray(0, i)), CStr(XYArray(1, i)))

   Exit For

   End If

  Next

End If

Sub action(x, y)

TracePrint x & "," & y

MoveTo x, y

End Sub