菜鸟问题遇到屏幕颜色变化报警

by001

夜深了,请教一个菜鸟问题?原意是不停循环点击1-8个按钮,也许在第某个按钮处,遇到屏幕一个小区域颜色变白报警 并sleep(5000),请高手替我修改一下,不胜感激!还有个问题,就是遇到屏幕一个小区域颜色变白立即报警,如何解决?

While 1 = 1
$coord = PixelSearch ( 91, 210, 111, 214, 16777215)
                If  not @error Then
           sleep(5000)
           Beep(100,70)
       else

ControlClick ( "牛牛软件", "无标题", "Button1")
ControlClick ( "牛牛软件", "无标题", "Button2")
ControlClick ( "牛牛软件", "无标题", "Button3")
ControlClick ( "牛牛软件", "无标题", "Button4")
ControlClick ( "牛牛软件", "无标题", "Button5")
ControlClick ( "牛牛软件", "无标题", "Button6")
ControlClick ( "牛牛软件", "无标题", "Button7")
ControlClick ( "牛牛软件", "无标题", "Button8")
endif
wend

sxd

先计算下 你要的那个区域颜色的 像素和 再观察是否这个值变化了

While 1
        $coord = PixelChecksum(580,470,590,485)
        If $coord = 543713701 Then
                Sleep(5000)
                Beep(100, 70)
        Else
                ControlClick("牛牛软件", "无标题", "Button1")
                ControlClick("牛牛软件", "无标题", "Button2")
                ControlClick("牛牛软件", "无标题", "Button3")
                ControlClick("牛牛软件", "无标题", "Button4")
                ControlClick("牛牛软件", "无标题", "Button5")
                ControlClick("牛牛软件", "无标题", "Button6")
                ControlClick("牛牛软件", "无标题", "Button7")
                ControlClick("牛牛软件", "无标题", "Button8")
        EndIf
WEnd

by001

谢谢!十分感谢!  是不是随便哪个按钮点过后,如果出现象素变化,就会beep?

sxd

汗 看你的回复后 我不明白你想要什么功能了
我以为你那按钮的作用会影响到你想要的那个区域的像素变化

by001

不好意思,我的意思可能没说清楚. 我的意思是 我循环点击按钮1-8,按钮在屏幕的下面,点击后,在某一刻,计算机上一个区域(91, 210, 111, 214)发生变化,出现白色的亮点 ( 16777215) ,我需要的效果是当出现白点时,发出声音并停顿几秒钟,然后再继续执行循环点击按钮的动作. 请您替我看看,我错在哪里,如何做?再次谢谢了!

sxd

这样?

While 1
        PixelSearch(91, 210, 111, 214, 16777215)
        If Not @error Then
                Beep(100, 70)
        EndIf
        ControlClick("牛牛软件", "无标题", "Button1")
        ControlClick("牛牛软件", "无标题", "Button2")
        ControlClick("牛牛软件", "无标题", "Button3")
        ControlClick("牛牛软件", "无标题", "Button4")
        ControlClick("牛牛软件", "无标题", "Button5")
        ControlClick("牛牛软件", "无标题", "Button6")
        ControlClick("牛牛软件", "无标题", "Button7")
        ControlClick("牛牛软件", "无标题", "Button8")
        Sleep(5000)
WEnd

by001

我试试看效果如何,这么迟还来回我的问题,太麻烦您了

sxd

不必太客气 在帮助别人的进程中我也能进步