Question

按键精灵怎么设置同时满足两个条件，才触发下一步的命令？

比如： 我需要A点颜色为红色，同时B点颜色为绿色，则按下abcd键，如果以上两个条件任何一个不成立则不作任何操作。

Answer 1

方法1:先获取2个点的颜色,然后用 and 判断,注意颜色字符串必须为大写

Dim a, b
a = GetPixelColor(x, y)'设置a点坐标
b = GetPixelColor(x, y)'设置b点坐标
If a = "0000FF" and b = "00FF00" Then '设置判定的颜色字符串
    //两个条件都成立要执行的动作
    For i = 65 To 68
        KeyPress i, 1
        Delay 20
    Next
End If

方法2:先判断a点是否成立,如果成立在判断b点是否成立.

IfColor x, y, "0000FF", 0 Then'设置a坐标和判定的颜色字符串
    IfColor x, y, "00FF00", 0 Then'设置b坐标和判定的颜色字符串
        //两个条件成立要执行的动作
        For i = 65 To 68
            KeyPress i, 1
            Delay 20
        Next
    End If
End If

图片:

追问

啊，谢谢，谢谢！那么
For i = 65 To 68 KeyPress i, 1 Delay 20
这一段它们起到什么作用呢？

追答

按 abcd

追问

大神，我想问下，如果
If a = "00FFFF" and b = "FF31FF" Then
这里取的颜色，要怎么加上相似度呢？

追答

还要相似度?那需要用ColorToRGB获得10进制R,G,B各自的分量,
然后分别用R,G,B去判断是不是各自在指定的区间之内
全部条件成立就OK了

追问

Dim a, b, c, d , e
a = GetPixelColor(1299,1046 )
b = GetPixelColor(1785,118)
c = GetPixelColor(1876,145)
d = GetPixelColor(1703,213)
e = GetPixelColor(779,594)
If h = "171717" and j = "898789" Then
要怎么写呢？

追答

你要判断什么? 上面h和j是空值,判断条件肯定不成立

追问

Dim a, b, c, d , e
a = GetPixelColor(1299,1046 )
b = GetPixelColor(1785,118)
c = GetPixelColor(1876,145)
If a = "XXXXXX" and b = "XXXXXX" and C = "XXXXXX" Then
我想ABC判定时添加相似度，这样容错比较高

追答

用方法2,IfColor 嵌套, 最后一个参数0改成2就是近似等于

追问

Dim a, b
a = GetPixelColor(1299,1046 )

b = GetPixelColor(1785,118)

如果A点颜色为66DDFF 相似度0.7 并且B点颜色为00FF11相似度0.7 则
按下鼠标左键
这样的话，要如何实现呢？

追答

你这样搞很麻烦的,每个点3个RGB都要做对比.
直接区域模糊找色就OK了