找回密码
 加入
搜索
查看: 2640|回复: 7

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

[复制链接]
发表于 2009-1-28 02:43:34 | 显示全部楼层 |阅读模式
夜深了,请教一个菜鸟问题?原意是不停循环点击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
发表于 2009-1-28 14:19:25 | 显示全部楼层
先计算下 你要的那个区域颜色的 像素和 再观察是否这个值变化了

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
 楼主| 发表于 2009-1-28 15:04:00 | 显示全部楼层

回复 2# sxd 的帖子

谢谢!十分感谢!  是不是随便哪个按钮点过后,如果出现象素变化,就会beep?
发表于 2009-1-28 22:10:28 | 显示全部楼层
汗 看你的回复后 我不明白你想要什么功能了
我以为你那按钮的作用会影响到你想要的那个区域的像素变化
 楼主| 发表于 2009-1-28 23:26:03 | 显示全部楼层

回复 4# sxd 的帖子

不好意思,我的意思可能没说清楚. 我的意思是 我循环点击按钮1-8,按钮在屏幕的下面,点击后,在某一刻,计算机上一个区域(91, 210, 111, 214)发生变化,出现白色的亮点 ( 16777215) ,我需要的效果是当出现白点时,发出声音并停顿几秒钟,然后再继续执行循环点击按钮的动作. 请您替我看看,我错在哪里,如何做?再次谢谢了!
发表于 2009-1-28 23:32:23 | 显示全部楼层
这样?
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
 楼主| 发表于 2009-1-28 23:37:50 | 显示全部楼层

回复 6# sxd 的帖子

我试试看效果如何,这么迟还来回我的问题,太麻烦您了
发表于 2009-1-28 23:42:03 | 显示全部楼层
不必太客气 在帮助别人的进程中我也能进步
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 17:44 , Processed in 0.213374 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表