'------这里执行多点找色
For i = 0 To UBound(多点数组)
If 多点找色(多点数组(i)) Then
MoveTo x, y
Delay 111
LeftClick 1
End If
Next
'------这里是多点找色函数
Function 多点找色(arr)
多点找色 = False
XY = Plugin.Color.FindMutiColor(arr(1), arr(2), arr(3), arr(4), arr(5), arr(6), 1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > - 1 Then
多点找色 = True
TracePrint arr(0) & " 找到了~!"
End If
End Function