我想让按键精灵始终监视某坐标点颜色然后执行操作代码该怎么写_百度知道
我想让按键精灵始终监视某坐标点颜色然后执行操作代码该怎么写
否则就一直监视着就是在脚本执行过程中，当出现指定的颜色后执行接下来的操作，监视某一坐标点的颜色值，当执行操作完成后终止监视继续下面的代码运行
提问者采纳
Call b()Else
MessageBox &quot,0 ThenMessageBox &quot,&找到蓝色了;,177;;Goto aEnd IfSub b()
IfColor 206,0 Then
MessageBox &quot,189;106E1&quot,&quotRem aIfColor 255;DC1923&quot，进行下一步找红色&没找到呃&找到红色了&quot
提问者评价
按照你说的，真的成功了，好开心，谢谢你！
其他类似问题
为您推荐：
按键精灵的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁我想让按键精灵始终监视某坐标点颜色然后执行操作代码该怎么写, 我想让按键精灵始终监视某坐标
我想让按键精灵始终监视某坐标点颜色然后执行操作代码该怎么写 就是在脚本执行过程中，监视某一坐标点的颜色值，当出现指定的颜色后执行接下来的操作，否则就川弧贬旧撞搅鳖些搏氓一直监视着，当执行操作完成后终止监视继续下面的代码运行。ing问请问如何实现 匿名 我想让按键精灵始终监视某坐标点颜色然后执行操作代码该怎么写
Rem aIfColor 255,177,&DC1923&,0 ThenMessageBox &找到蓝色了，进行下一步找红色&
Call b()El川弧贬旧撞搅鳖些搏氓se
MessageBox &没找到呃&Goto aEnd IfSub b()
IfColor 206,189,&106E1&,0 Then
MessageBox &找到红色了&End IfEnd SubEndScript按键精灵如何让鼠标在某个坐标按住几毫秒 然后松开 换个位置 再循环_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
按键精灵如何让鼠标在某个坐标按住几毫秒 然后松开 换个位置 再循环收藏
我知道单击 循环的指令 但是怎么样才能单击点住几毫秒
(?o??ωo???)?﹏?ul
键鼠命令有按下，按住，弹起三种
移动 x，y按下延时弹起移动下一个地方
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或按键精灵的问题想请问大家，如果坐标点的颜色为x 则继续执行下一步，否则继续检测，直到左边点颜色为x_百度知道
按键精灵的问题想请问大家，如果坐标点的颜色为x 则继续执行下一步，否则继续检测，直到左边点颜色为x
键精灵的问题想请问大家，该怎么写呀，如果坐标点的颜色为x 则继续执行下一步，否则继续检测，直到左边点颜色为x为止？
&&Goto&&FFFFFF&&qw=GetPixelColor(10;Else&Then&跳出&IfWendMessageBox&&&&&&MessageBox&&&&nbsp提供2个例子例子1循环=1While&nbsp,5)If&循环=1&nbsp,5)&循环=2&&&&End&w=GetPixelColor(10;&If&w=&&&&&&FFFFFF&&跳出&//例子2Rem&Then&w=&&&&qEnd&&nbsp
来自团队：
其他类似问题
为您推荐：
按键精灵的相关知识
其他2条回答
if else 就行了
if else 外加循环
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁按键精灵安卓版如何随机坐标判断点击.在线等大神回复 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：55.1M更新时间：
软件版本：3.1.0(免root)软件大小：61.2M更新时间：
软件版本：1.2.1软件大小：37.4M更新时间：
查看: 1799|回复: 3
本帖最后由
15:03 编辑 (38.83 K) 15:03:31求大神帮忙看下源码/////////////////////////////////////////////////////////////////////////////
'定义一些常用变量：IntX IntY 找色模块返回值用，win_x win_y 屏幕分辨率用，win_w win_h 分辨率比例用
Dim IntX,IntY
Dim win_x,win_y,win_w,win_h
win_x = GetScreenX()
win_y = GetScreenY()
win_w=win_x/1080
win_h=win_y/1920
TracePrint "屏幕比例：" & win_w & ":" & win_h
'设置浮窗移动到中间
SetControlBarPos 0.5
/////////////////////////////////////////////////////////////////////////////
'定义一些常用变量，加刮号是为了定义变量类型为数组类型
Dim 摆摊(),发现关注(),关注(),购买(),确认(),关闭(),关闭1()
'只支持同等比例720**0，非同比例则不支持，有心学习的同学请自行理解完整实例后更新吧，去吧少年少女们！
'比例换算：把全部特征中的坐标参数进行比例换算，同比例缩放后带入以下脚本运行
If Abs(win_w-win_h) < 0.01 Then'比例偏差小于0.01
摆摊=比例换算(Array(5984","8|5|314D73,-8|24|314D7B,-26|34|314D7B"))
发现关注=比例换算(Array(718,729,"41B6EE","23|11|41FBF7,0|24|39C2F7,20|32|1959AD"))
关注=比例换算(Array(676,346,"11417C","17|7|19457B,-14|29||23|08356B"))
购买=比例换算(Array(123,1427,"FEFEFE","-7|6|F7FBFF,-23|18|FFFFFF,-33|30|FFFFFF"))
确认=比例换算(Array(400,585,"103973","-6|14||24||31|08356B"))
关闭=比例换算(Array(709, 1270, "0008BD", "26|4||29|000CC5,26|30|0008B5"))
关闭1= 比例换算(Array(962,BD","25|-1|0008AD,0|27||27|000CBD"))
/////////////////////////////////////////////////////////////////////////////
'最后比例还是不相等则
If IsNumeric(摆摊(0))=False Then
ShowMessage "您的手机暂不支持，请访问提交！"
Delay 2000
ShowMessage "作者qq:6475280"
Delay 1000
//'获取UI界面设置参数
Dim txt_srk
txt_srk=ReadUIConfig("延迟")
TracePrint txt_srk
//TracePrint "延迟：" & txt_srk
/////////////////////////////////////////////////////////////////////////////
KeepCapture
If 判断(摆摊)=True Then
If 判断点击(发现关注)=True Then
TracePrint "发现物"
ElseIf 判断点击(关注)=True Then
TracePrint "未发现"
If 判断(发现关注)=True Then
If 判断点击(购买) = True Then
TracePrint "购买"
ElseIf 判断点击(确认)=True Then
TracePrint "确认"
ElseIf 判断点击(关闭)=True Then
TracePrint "关闭"
ElseIf 判断点击(关闭1)=True Then
TracePrint "关闭"
Delay txt_srk
'循环中适当的延时给予CPU响应时间，使脚本更为流畅
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
Function 判断(数组)
判断=False
If IsNumeric(arr(3))=True Then'数组特征第四个值为数字则
'因本作中带范围坐标用到两种方式，所以以下做个判断区别
'当前数组特征包含“|”则为区域多点找色
If InStr(0,Join(arr,","),"|")>0 Then
判断=FindMultiCol(arr(0),arr(1),arr(2),arr(3),arr(4),arr(5),0.9)
Else'否则为范围查找单色
判断=Fc(arr(0),arr(1),arr(2),arr(3),arr(4))
ElseIf IsNumeric(arr(1))=True Then'数组特征第二个值为数字则为固定多点比色
判断=CmpMultiCol(arr(0),arr(1),arr(2),arr(3),0.9)
'TracePrint "数组异常：" & Join(arr,"|")
End Function
Sub 点击(数组坐标)
arr = 数组坐标
Tap arr(0),arr(1)
TracePrint "点击坐标：" & arr(0) & ":" & arr(1)
/////////////////////////////////////////
Function 随机偏移(x, y)'怎么使用随机函数
Randomize//初始化随机数
x = Int((5 - 0 + 1) * Rnd + 0)
y = Int((5 - 0 + 1) * Rnd + 0)
Tap IntX + x, IntY + y
End Function
/////////////////////////////////////////
/////////////////////////////////////////
Function 判断点击(数组)
判断点击=False
If 判断(数组) = True Then
Tap IntX, IntY
TracePrint "判断点击：" & IntX & ":" & IntY
判断点击=True
End Function
Function 判断细节(数组,相似度)
判断细节=False
If IsNumeric(arr(3))=True Then
If InStr(0,Join(arr,","),"|")>0 Then
判断细节=FindMultiCol(arr(0),arr(1),arr(2),arr(3),arr(4),arr(5),相似度)
判断细节=FcEx(arr(0),arr(1),arr(2),arr(3),arr(4),相似度)
ElseIf IsNumeric(arr(1))=True Then
判断细节=CmpMultiCol(arr(0),arr(1),arr(2),arr(3),相似度)
TracePrint "数组异常：" & Join(arr,"|")
End Function
Function 判断细节点击(数组,相似度)
If 判断细节(数组,相似度)=True Then
Tap IntX,IntY
判断细节点击=True
End Function
Function 比例换算(数组)
If win_w=1 or win_h=1 Then '原比例，无需计算
比例换算=数组
Exit Function
Dim arr(),arr_bl(),i,n
arr_bl=Array(win_w,win_h)
Dim arr1(),str,arr2()
For Each n In arr
If IsNumeric(n)=True Then
arr(i)=n*arr_bl(i Mod 2)
ElseIf InStr(1,n,"|")>0 Then
arr1=Split(arr(i),",")
For Each n In arr1
arr2=Split(n,"|")
str=str & arr2(0)*win_w & "|" & arr2(1)*win_h & "|" & arr2(2) & ","
arr(i)=Left(str,Len(str)-1)
比例换算=arr
End Function
/////////////////////////////////////////////////////////////////////////////
'判断两个16进制值相似度是否到达对应百分比
Function IsCol(col1,col2,n)
IsCol=False
Dim r1,g1,b1
Dim r2,g2,b2
ColorToRGB col1,r1,g1,b1
ColorToRGB col2,r2,g2,b2
If 1 - (Abs(r1 - r2) + Abs(g1 - g2) + Abs(b1 - b2)) / 255 / 3 >= n Then IsCol=True
End Function
'固定坐标单点模糊找色
Function CmpCol(x,y,col,n)
CmpCol=False
If x < 0 or y < 0 Then Exit Function
Dim temp_col
temp_col=GetPixelColor(x,y)
If temp_col=col Then
CmpCol=True
CmpCol=IsCol(col,temp_col,n)
End Function
'固定坐标多点模糊找色
Function CmpMultiCol(x,y,col,str,n)
CmpMultiCol=False
If CmpCol(x,y,col,n)=True Then
CmpMultiCol=MultiColor(x,y,str,n)
CmpMultiCol=FindMultiCol(x-3,y-3,x+3,y-3,col,str,n)
End Function
'区域范围多点模糊找色
Function FindMultiCol(x1,y1,x2,y2,col,str,n)
FindMultiCol=False
FindColor x1,y1,x2,y2,col,0,n,intX, intY
If intX >= 0 Then
If MultiColor(intX,intY,str,n)=True Then
FindMultiCol=True
Do Until x > x2
FindColor x,y,x2,y,col,0,n,intX,intY
If intX >= 0 Then
If MultiColor(intX,intY,str,n)=True Then
FindMultiCol=True
Exit Function
Loop Until y1 > y2
End Function
'多点偏移点阵匹配
Function MultiColor(x,y,str,n)
MultiColor=False
Dim arr1,i,arr2()
arr1=Split(str,",")
For Each i In arr1
arr2=Split(i,"|")
If CmpCol(x+Int(arr2(0)),y+Int(arr2(1)),arr2(2),n)=False Then
'FindColor x+Int(arr2(0))-3, y+Int(arr2(1))-3, x+Int(arr2(0))+3, y+Int(arr2(1))+3, arr2(2), 0, n, intX, intY
'If IntX=-1 Then
Exit Function
MultiColor=True
End Function
//////////////////////////////////////////////////////////////////////////////////////////
'自定义固定模块组合应用，以下部分大家请理解函数模块功能作用后自行组合使用。（请理解后调用，以免出错都不懂原因）
Function Cm(x,y,col,str)
Cm=CmEx(x,y,col,str,0.9)
End Function
Function CmEx(x,y,col,str,n)
KeepCapture
CmEx=CmpMultiCol(x,y,col,str,n)
ReleaseCapture
End Function
Function Fm(x1,y1,x2,y2,col,str)
Fm=FmEx(x1,y1,x2,y2,col,str,0.9)
End Function
Function FmEx(x1,y1,x2,y2,col,str,n)
KeepCapture
FmEx=FindMultiCol(x1,y1,x2,y2,col,str,n)
ReleaseCapture
End Function
Function Fc(x1,y1,x2,y2,col)
Fc=FcEx(x1,y1,x2,y2,col,0.9)
End Function
Function FcEx(x1,y1,x2,y2,col,n)
FcEx=False
FindColor x1,y1,x2,y2,col,0,n,intX,intY
If intX >= 0 Then FcEx=True
End Function
//////////////////////////////////////////////////////////////////////////////////////////
//1、Dim 变量 与 Dim 变量()，写出作用与区别。
//2、Sub子程序与Function函数，写出作用与区别。
//3、If IsNumeric(开始按钮(0))=False Then，写出作用与原理。
//4、变量 = 变量 & 字符信息，写出 & 符号功能作用与正行代码的作用。
//5、写出以下Sub或Function的作用与原理，并说明存在的用意。
//Function 比例换算(数组)
//Function 判断(数组)
//Sub 点击(数组坐标)
//Function 判断点击(数组)
//晋级作业
//1、第二套颜色坐标信息开头，If Abs(win_w-win_h) < 0.1 Then，写出作用。
//2、完整描述以下Function的作用与原理，并说明存在的用意。
//IsCol、CmpCol、CmpMultiCol、FindMultiCol、MultiColor
//3、Cm\CmEx\Fm\FmEx\Fc\FcEx，写出这几个函数模块存在意义。
//4、KeepCapture与ReleaseCapture的作用。
//5、调用CmpMultiCol、FindMultiCol时，为什么开头必须加KeepCapture，不加会怎样。
//脚本作业
//1、脚本中用到几套颜色坐标信息，分别都支持多少种分辨率一一写出。
//2、完整描述出脚本主线循环的逻辑思路。
//3、Sub 点击自动施放()，写出作用与原理。
//4、Sub 返回手机主页()，写出作用与原理。
//5、Function 判断结束(s,t)，写出作用与原理。
//6、Function 点击战斗技能()，写出作用与原理，以及为什么加延时，不加会怎样。
//////////////////////////////////////////////////////////////////////////////////////////
//脚本作者：荆棘
//更新日期：日
没有人吗?自己顶一下.求大神解答下..
管理人员按键论坛的管理团队专属勋章按键会员（月）按键会员绑定账号后自动赠送按键精灵开发者4级可通过提升认证等级来升级勋章：月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。单身汪勋章单身贵族的专属勋章
你好!做范围在1-5的随机数,然后坐标加上随机数. tap intX+随机数,intY+随机数
无痕- 发表于
12:46 你好!做范围在1-5的随机数,然后坐标加上随机数. tap intX+随机数,intY+随机数有点不懂,能帮用上面的源码做个例子吗?}