关于预存坐标数组

wxlwzfwh

怎么预存7个坐标保存到数组1，然后多点找色命令找到的坐标保存为数组2，直到找不到为止，把数组1和数组2都有的坐标在数组1中删除，然后点击数组1剩余的坐标。请问各位大佬怎么实现，谢谢！o(≧口≦)oo(≧口≦)o o(≧口≦)o  

紫猫

[按键精灵] 纯文本查看 复制代码

Dim 数组1()
数组1[1] = {100, 100}
数组1[2] = {200, 200}
数组1[3] = {300, 300}
数组1[4] = {400, 400}
数组1[5] = {500, 500}
数组1[6] = {600, 600}
数组1[7] = {700, 700}

Dim 数组2 = Image.FindMultiColor(1,1,1011,386,"1F0F02","58|262|2E190A,270|327|00DA07,442|378|0050FF,425|479|633F19,213|490|522E16",0,0.9)
TracePrint "找到", UBOUND(数组2)
For i = 1 To UBOUND(数组1)+1
	For j = 0 To UBOUND(数组2)
		If 数组1[i][1] = 数组2(j, 0) and 数组1[i][2] = 数组2(j, 1) Then 
			TracePrint "排除", 数组1[i][1], 数组1[i][2]
			数组1[i] = false
		End If
	Next
Next

For i = 1 To UBOUND(数组1)+1
	If 数组1[i] Then 
		TracePrint "点击", 数组1[i][1], 数组1[i][2]
		Tap 数组1[i][1], 数组1[i][2]
	End If
Next

q315767552

♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)