按键精灵区域找色问题…想实现 在某一区域内找色 如果找到执行鼠标移动到某坐标 如果找不到 则执行粘_百度知道按键精灵安卓版如何随机坐标判断点击.在线等大神回复 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：55.1M更新时间：
软件版本：3.1.2(免root)软件大小：61.2M更新时间：
软件版本：1.2.2软件大小：37.4M更新时间：
查看: 2126|回复: 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+随机数有点不懂,能帮用上面的源码做个例子吗?您现在的位置： >
手机版按键精灵诞生 安卓手机按器教程评测
　　对于按键精灵这款软件，想必有不少游戏玩家经常用到，它的功能玩家早已烂熟于心。而本篇安卓手机按器教程评测所介绍的是一款功能类似的软件，只不过它是安卓平台上的。手机按器通过制作脚本，在手机上自动执行一系列的触控操作。
　　首先要被拿来试刀的是《Hardest Game Ever 2 》，这个所谓史上极难游戏一共包含了24个小游戏，每一个都是对人类反应速度以及手指点击速度的极限挑战。而且只有在前一个游戏中达到了一定的评级才能解 锁下一个游戏，更高难度的关卡还需要一定数量的S级评级才能解锁。而在这24个关卡中恰巧有几关非常适合手机按器发挥作用。
　　《Hardest Game Ever 2 》Stage 6：多次掌掴!
　　在这个小游戏中，玩家要以最快的速度点击&掌掴&按钮37次，然后点击完成。次数过多或者过少都被认为游戏失败，准确完成的用时越短则评级越高。小编 最初尝试时重复了无数次才成功拿到了S级评分，为此手腕都快抽筋了。然而当使用手机按器后，一切变得无比简单，创造的最短用时纪录远超人类极限。
　　首先打开手机按器应用，点击&制作&，进入新建脚本页。在两个提示框内分别输入该脚本的名称和脚本描述，这里只是方便使用时脚本的区分，不会影响到脚 本本身的功能。对于现在这个脚本我们姑且命名为&打脸&。填好后点击&录制&按钮，会弹出提示，点击确定，准备进行操作录制。
　　进入游戏操作界面，按一下手机的&音量-&键，开始录制。随后在左下角红色的&掌掴&按钮上点击一下，然后再次按下&音量-&键，完成录制。这样手机按器就成功录制了&掌掴&按钮的点击动作。
　　直接切换回手机按器界面，长按刚才生成的&打脸.lua&脚本文件，点选&编辑&，进入脚本编辑页面。其中mSleep( )括号中的数字代表持续时间的毫秒数;touchDown( )代表手指按到屏幕上的动作，其中括号内的数字代表手指所按屏幕位置的坐标;touchUp( )代表抬起手指，其括号内数字固定为0。接下来对脚本进行优化，舍去过长的时间延迟，之后点击保存，退出。这里要注意，不要将所有动作的持续时间改的太 短，在mSleep( )中设置5-10ms的停留，有利于保证系统对点击动作的认定。
　　在列表页点击&打脸.lua&，在弹出的菜单中选择&循环播放&，循环次数填37，间隔时间填0，点击确定，之后手机左上角会出现4个悬浮的按钮。再 次回到游戏，重新开始这个关卡，在游戏开始后点击左上角的&播放&按钮，手机按器就会以惊人的速度完成&掌掴按钮&的37次点击操作，之后玩家只要快速点 击一下完成按钮就可以轻松完成这个关卡了。小编利用这个方法成功创造了0.91秒完成的非人类纪录。
　　《Hardest Game Ever 2 》Stage 16：引体向上
　　大同小异，这个关卡也可以利用脚本轻松完成，与前面类似，首先需要到游戏界面录制左右按钮的点击动作各一次，然后切换回脚本编辑界面，将脚本略微优 化，去除多余的延时参数，保存后在脚本列表页点击&引体向上.lua&，选择循环播放，次数和间隔时间均填0。点击确定后进入游戏，游戏开始后点击一下脚 本播放按钮，6秒后游戏完成，停止脚本播放，接下来就可以看到非人类的游戏成绩了。
　　小编正常情况下最高只点击了79次，而借助手机按器，成功创造了6秒点击292次的最高纪录，平均每秒接近49次，要知道传说中的高桥名人也不过是每秒16次的点击速度。
　　《厕纸侠(Toliet Paper Man)》
　　厕纸侠也是一款可以让手指抽筋的游戏，小编使出了吃奶的力气也只是在计时模式中将时间缩短到20秒以内。而使用了手机按器以后，结果就大不相同了。
　　这次需要录制的不是一个点击动作，而是手指滑动的动作，游戏开始后，开启脚本录制，然后在屏幕上滑动手指，完成一次拉厕纸的操作，之后完成录制并进入 脚本编辑界面。与上两个脚本不同的是，这次多了一种名为&touchMove( )&的代码，代表手指在屏幕上的移动，括号中的数字即为手指移动位置的坐标。将脚本中多余的移动代码去除，只保留最后移动到的位置即可，同时去除多余的延 时，完成脚本优化。
　　与之前一样，选择循环播放，循环次数和间隔时间均填0，然后重新进入游戏。执行脚本，同时开始游戏，短短不到2秒钟，游戏完成，又一个非人类的游戏纪录产生了。最后不要忘记停止脚本，不然的话就等于有一只看不见的手指不停的手机屏幕上滑动，手机就无法正常使用了。
　　安卓手机按器的功能十分强大，除了动作记录以外，还支持全屏或者区域找图、找色，然后执行相应动作。另外，脚本还可以导入和导出，脚本文件完全可以导 出以后在PC上用记事本打开并进行编辑，之后再导入回手机中，大大方便了复杂脚本的制作。而上面只是几个简单的应用方法，高级玩家可以利用这款应用实现各 种各样的自动化功能，比如音乐节奏类游戏全perfect连击、手机网游自动挂机等等，有兴趣的玩家不妨自己研究一下。
文章来源：口袋巴士 原文地址：
相关文章：手机版 按键精灵 手机按器
图解新闻：
最新攻略：
24小时更新：
热门排行本周本月
推荐文章本周本月&#xe621; 上传我的文档
&#xe602; 下载
&#xe60c; 收藏
该文档贡献者很忙，什么也没留下。
&#xe602; 下载此文档
正在努力加载中...
手机版按键精灵诞生 安卓手机按器教程评测
下载积分：800
内容提示：手机版按键精灵诞生 安卓手机按器教程评测
文档格式：DOC|
浏览次数：0|
上传日期： 21:49:02|
文档星级：&#xe60b;&#xe612;&#xe612;&#xe612;&#xe612;
该用户还上传了这些文档
手机版按键精灵诞生 安卓手机按器教程评测
官方公共微信有什么方法可以在长按状态下获取鼠标坐标？
[问题点数：40分，无满意结帖，结帖人u]
有什么方法可以在长按状态下获取鼠标坐标？
[问题点数：40分，无满意结帖，结帖人u]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2016年8月 Web 开发大版内专家分月排行榜第二2016年7月 Web 开发大版内专家分月排行榜第二2016年6月 Web 开发大版内专家分月排行榜第二2016年5月 Web 开发大版内专家分月排行榜第二2016年4月 Web 开发大版内专家分月排行榜第二2016年2月 Web 开发大版内专家分月排行榜第二2015年9月 Web 开发大版内专家分月排行榜第二2015年7月 Web 开发大版内专家分月排行榜第二2015年6月 Web 开发大版内专家分月排行榜第二2015年4月 Web 开发大版内专家分月排行榜第二2015年3月 Web 开发大版内专家分月排行榜第二2015年2月 Web 开发大版内专家分月排行榜第二
2016年1月 Web 开发大版内专家分月排行榜第三2015年12月 Web 开发大版内专家分月排行榜第三2015年11月 Web 开发大版内专家分月排行榜第三2015年10月 Web 开发大版内专家分月排行榜第三2015年5月 Web 开发大版内专家分月排行榜第三2015年1月 Web 开发大版内专家分月排行榜第三2014年12月 Web 开发大版内专家分月排行榜第三
2013年10月 Web 开发大版内专家分月排行榜第三
2013年10月 Web 开发大版内专家分月排行榜第三
2016年2月 总版技术专家分月排行榜第二2014年2月 总版技术专家分月排行榜第二2013年4月 总版技术专家分月排行榜第二
优秀小版主2015年7月优秀小版主2015年9月优秀小版主2015年5月优秀小版主2014年11月论坛优秀版主
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。}