Question

按键精灵某一点的颜色在一定时间内没有变化

就是查找某一点的颜色 如果三秒内没有发生变化就执行下一命令，用什么代码

Answer 1

Dim xx, yy, GetColor, tt, 监视间隔
xx = 100'设置点坐标x
yy = 200'设置点坐标y
监视间隔 = 30'设置监视间隔,单位毫秒
GetColor=GetPixelColor(xx,yy)
tt = timer
Do
    IfColor xx, yy, GetColor, 0 Then
    Else 
        //点颜色变化要执行的动作
    End If
    TracePrint timer - tt
    Delay 监视间隔
Loop Until timer - tt > 3
//时间超过3秒并且点颜色没有变化要执行的动作