[已回复] 关于预存坐标数组

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