Question

按键精灵判断如何快速判断6个点颜色是否相同

快速判断6个点是否相同
如果有一个点不同
则点击坐标XX,XX
如果全部相同则点击坐标XX,XX
请用源代码 空格+注释 谢谢

Answer 1

Dim x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6, x7, y7,x8,y8 //定义起始6个点坐标,和两个要点击的坐标
Dim r1Color,r2Color,r3Color,r4Color,r5Color,r6Color //6个点颜色的值（十六进制）
Function 该点的颜色值(参数1,参数2)
该点的颜色值 = GetPixelColor(参数1,参数2) //设置一个带返回值的函数，取该点的颜色值
End Function
r1Color = 该点的颜色值(x1,y1) //将实参传入x1,y1传入进去，得到该点颜色值，以此类推
r2Color = 该点的颜色值(x2,y2)
r3Color = 该点的颜色值(x3,y3)
r4Color = 该点的颜色值(x4,y4)
r5Color = 该点的颜色值(x5,y5)
r6Color = 该点的颜色值(x6, y6)
If r1Color = r2Color and r2Color = r3Color and r3Color = r4Color and r4Color = r5Color and r5Color = r6Color Then //and连接表示必须练个值都为true，才为真，否则为假,r1与r2是否相等，在判断r2与r3是否相等以此类推
Tap x7, y7 //6个点都相同点击该坐标
Else
Tap x8,y8 //6个点有不相同点击该坐标
End If