按键精灵找三个点的颜色如何写？

如果三个点同时找到对应颜色 则执行A

如果10分钟内没有同时找到三个点的对应颜色 则执行B

ys = spilt("10,10,0000FF,100,100,00FF00,200,200,FF0000", ",")'里面的坐标颜色自己修改
t = now
Do 
    x=0
    For i = 0 To 9 Step 3
        Cr = GetPixelColor(ys(i), ye(i + 1))
        If cr = ye(i + 2) Then 
            x = x + 1
        End If
    Next
Loop Until x > 2 or DateDiff(n, now, t) > 9
If x = 3 Then 
    '程序1
Else 
    '程序2
End If