Dim GetColor
Do
    GetColor = GetPixelColor(532, 708)//获得坐标的颜色
    //TracePrint Now()
    //TracePrint GetColor
    If GetColor <> "FFFFFF" Then 
        For 1000//循环点击1000次
            Tap 555, 680
        Next
        Exit Do
        TracePrint GetColor
    End If
    Delay 10
Loop

　　监控屏幕像素颜色变换，获取变换，触发点击。