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
监控屏幕像素颜色变换，获取变换，触发点击。
原文：http://www.cnblogs.com/zeze/p/5513726.html