手机按键精灵不停循环搜多图并点击，最后找到指定图点击后停止循_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
手机按键精灵不停循环搜多图并点击，最后找到指定图点击后停止循收藏
手机按键精灵不停循环搜多图并点击，最后找到指定图点击后停止循环，这个脚本怎么写？
do FindPic 0,0,,&Attachment:\图片.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then MoveTo intX, intYLeftClick 1end ifloop until intX & 0 And intY & 0i=0While i=0FindPic 0,0,,&Attachment:\图片.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then i=1MoveTo intX, intYLeftClick 1End IfWendRem aFindPic 0,0,,&Attachment:\图片.bmp&,0.1,ax,ayIf ax & 0 And ay & 0 ThenMoveTo ax, ayLeftClick 1Else Goto aEnd If三种模式
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或我想制作手机按键精灵脚本，只会一点点。请教大家帮忙。非常感谢。1点击两次坐标(此步重复2次)后。2_百度知道你的位置：
循环找图进入死循环,求大神解答!谢谢
07:17:01 |
来源: 按键精灵资源站
& & Delay 100
& & //找第1个对话框
& & If 第1个对话框 & 0 Then
& && &&&点击第1个对话框
& && &&&//接着找第2个对话框
& && &&&If 第2个对话框 & 0 Then
& && && && &点击第2个对话框
& && && && &//然后找第3个对话框
& && && && &If 第3个对话框 & 0 Then
& && && && && & Exit Do
& && && && &End If
& && &&&End If
& & End If
//问题:点击第2个对话框后网络延迟或者卡了,第三个对话框没出来!
//第二个对话框又把第一个对话框挡到了,这样的话脚本等于进入了死循环,遇到这种问题该怎么解决?学习脚本制作：按键精灵解决游戏辅助卡死后续处理_图文攻略_全通关攻略_高分攻略_百度攻略
学习脚本制作：按键精灵解决游戏辅助卡死后续处理盆友写了个游戏押镖脚本，刚开顺顺当当的，运行一会儿后没了反应，不操作也不停止脚本。后来用按键精灵编码解决死循环，那么后续怎么处理呢？后续处理：如果限定循环次数内未找到镖车的图标。则人物往回移动一点，继续找镖车图标。精彩内容，尽在百度攻略：限定往回走的次数，达到次数之后，弹出提示脚本遇到错误的信息或者停止脚本。Npc对话框接新任务：后续处理：如果限定循环次数内未找到接新任务按钮的图标。则判断当前窗口内是否有交任务的按钮，有则说明是任务没有交成功，点击关闭npc对话框。精彩内容，尽在百度攻略：
相关攻略推荐按键精灵安卓版如何随机坐标判断点击.在线等大神回复 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：74.7M更新时间：
软件版本：3.1.3(免root)软件大小：55.7M更新时间：
软件版本：1.2.3软件大小：37.4M更新时间：
查看: 2437|回复: 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+随机数有点不懂,能帮用上面的源码做个例子吗?}