【按鍵精靈】后臺(tái)找圖獲取所有結(jié)果
// 一般來說也可以直接寫死圖片尺寸，畢竟是自己截的圖自己知道大小
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
