后使用快捷导航没有帐号？
精彩课程推荐
云控系统是通过自动化控制集成，把100个手机操作
易辅客栈从零学脚本开发系统教程脚本多线程与中控台详解 教程目
易辅客栈从零学手游脚本开发系列教程第一套 从零学手游脚本 TC5.
易辅客栈 从零学辅助系列教程教程目录(部分VIP)交流Q群:249821
回复查看：
**** 本内容被作者隐藏 ****
VIP打包地址下
第七套 从零学手机脚本 按键精灵安卓版 第一章 1.6 命令详解之触摸命令合集
查看: 2486|回复: 34
本课主要介绍了
触摸命令&&keyDown 按住& &KeyUp 弹起 keyPress 按下
滑动&&Tap点击
Touch&&按住一段时间
TouchMove 滑动& & TouchUp 弹起
免积分查看或下载：请办理荣誉VIP&&
免费获取下载币：
已有 7 人购买&
本主题需向作者支付 5 金钱 才能浏览
签到天数: 954 天连续签到: 3 天[LV.10]以坛为家III主题帖子积分
帖子永久地址：&<button type="submit" class="pn" onclick="setCopy('第七套 从零学手机脚本 按键精灵安卓版 第一章 1.6 命令详解之触摸命令合集\nhttp://eyy168.com/thread-215-1-1.html', '帖子地址已经复制到剪贴板您可以用快捷键 Ctrl + V 粘贴到 QQ、MSN 里。')">推荐给好友易辅客栈 - 专业的脚本辅助学习 - 论坛版权1、本主题所有言论和图片纯属会员个人意见，与本论坛立场无关
2、本站所有主题由该帖子作者发表，该帖子作者与享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者和的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体，但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题，请立即告知本站，本站将及时予与删除并致以最深的歉意
7、管理员和版主有权不事先通知发贴者而删除本文
把本文推荐给朋友或其他网站上，每次被点击增加您在本站积分：10金钱
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
1.6 命令详解之触摸命
签到天数: 192 天连续签到: 1 天[LV.7]常住居民III主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
dasfdfgfhgh
签到天数: 40 天连续签到: 1 天[LV.5]常住居民I主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
谢谢分享谢谢分享
签到天数: 44 天连续签到: 1 天[LV.5]常住居民I主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
按住一段时间
签到天数: 170 天连续签到: 1 天[LV.7]常住居民III主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
楼主加油，我们都看好你哦。
签到天数: 2 天连续签到: 1 天[LV.1]初来乍到主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
回复可见。支付5金钱
签到天数: 1 天连续签到: 1 天[LV.1]初来乍到主题帖子积分
新手上路, 积分 24, 距离下一级还需 26 积分
新手上路, 积分 24, 距离下一级还需 26 积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
签到天数: 11 天连续签到: 1 天[LV.3]偶尔看看II主题帖子积分
中级会员, 积分 327, 距离下一级还需 173 积分
中级会员, 积分 327, 距离下一级还需 173 积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
看看@看看!看看!看看!看看!看看!
签到天数: 15 天连续签到: 1 天[LV.4]偶尔看看III主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
签到天数: 19 天连续签到: 1 天[LV.4]偶尔看看III主题帖子积分
易辅学院--欢迎你，有你更出众。
易辅做最真最好的服务
www.eyy168.com
注册账号后积极发帖的会员
社区QQ达人
使用QQ帐号登录论坛的用户
办理了终身VIp的会员
易辅交流4群：
易辅交流5群：
易辅交流6群：
工作时间：10:00-22:00
客服热线：扫微信二维码获取
[问题被回答]提醒
确认删除问题?
确认删除回答?手机按键精灵版的微信跳一跳脚本思路、源码
注意：此脚本仅供交流图形识别等方法的实现
一、采用三种计算距离方式：1、扫描新积木顶点算出横坐标，棋子和新积木中点的连线和水平方向夹角其实是固定角度，大约30度，利用这一点可以直接算出距离，该方法比较稳定，但是时间长容易偏离。2、直接扫描新积木顶点和下边界，这样可以算出新积木的中点，但是结果不稳定，不过算对了就比较精确。3、找白点直接算，前提是上一次跳到积木中点
二、由于很多脚本的刷的高分上不了榜单，怀疑一方面微信加入了行为检测，一方面是高分控制，解决方法是模拟人的行为，将所有固定数据改为允许范围内的随机数据，如按压点在给定范围内随机，每次跳跃停顿时间随机，加分积木一定要停留并拿到这个分数，主动打断连击，每次都能连击必然上不了榜单&
三、打算适配所有手机，所以会故意跳出积木以计算跳跃速度
四、本脚本仅供交流学习，不做商业用途，源码首发公众号“小浅玩机”，欢迎来观光：）
////////////////////////////复制以下内容/////////////////////////////////
Dim pai = 3.
Dim BackgroundColor
Dim ArruratePointx,ArruratePointy,topy
Dim whitepointx,whitepointy
Dim Cheesex,Cheesey
Dim midx,midy//中点坐标
Dim ContinuousjumpCount = 0//连跳中心点计次
Dim ScorePlus = 0//加分的积木停留时间
Dim MyValue1,MyValue2
Dim 背景色
ShowMessage "5秒后开始"
Delay 5000
Call 获得手机分辨率()
Call 计算速度()
///////////////////////////循环部分///////////////////////////
KeepCapture&
& & Call 跳跃()
& & Call 随机延迟()
& & Delay 1000 + MyValue1 *
100 + ScorePlus
/////////////////////////////////////////////////////////////
///////////////////////////准备工作///////////////////////////
Sub 获得手机分辨率
KeepCapture&
& & Dim i,j
& & Dim rColor
& rColor = GetPixelColor(0+i,0,0)
& If rColor = "000000"
& & & midx =
& & & Goto
获得手机分辨率标记1
& & & i = i +
& & Rem 获得手机分辨率标记1
& rColor = GetPixelColor(0,0+j,0)
& If rColor = "000000"
& & & midy =
& & & Goto
获得手机分辨率标记2
& & & j = j +
//TracePrint j
& & Rem 获得手机分辨率标记2
& & TracePrint "手机分辨率为：
"&midx*2,midy*2
ReleaseCapture&
Sub 计算速度
& & Dim Count
& & Dim intx,inty
& & Call 找到棋子()
& & intx = Cheesex
& & inty = Cheesey
& & 随机按压
& Call 找到棋子()
& If Cheesex = 0 Then&
& & & Count =
& & & If Count
& & Exit Do
& & speed =
(sqr((Cheesex-intx)^2+(Cheesey-inty)^2))/1000
& & TracePrint "speed =
& & Delay 3000
重新开始游戏()&
Sub 随机延迟
Randomize&&
& & MyValue1 = Int(((9-5+1)
* Rnd()) + 1)& &
& & //TracePrint
"MyValue1"&MyValue1
Sub 随机连击
Randomize&&
& & MyValue2 = Int(((5-1+1)
* Rnd()) + 1)& &
& & //TracePrint
"MyValue2"&MyValue2
Function 随机按压(a,b,t)
& & Dim MyValue
Randomize&&
& & MyValue =
Int(((20-(-20)+1) * Rnd()) + (-20))&
& & Touch a+MyValue,
b+MyValue, t
End Function
/////////////////////////////////////////////////////////////
///////////////////////////距离计算///////////////////////////
Sub 找到棋子
& & Dim intX,intY
& & FindMultiColor
0,0,0,0,"3E3635","27|44|5F|3D|663B39",0,1,intX,intY
& & If intX & -1 And intY
& -1 Then&
& Cheesex = intX + 8
& Cheesey = intY + 190
& FindMultiColor
0,0,0,0,"3E3635","27|44|5F|3D|663B39",0,0.95,intX,intY
& If intX & -1 And intY & -1 Then
& & & Cheesex =
& & & Cheesey =
intY + 190
FindMultiColor 0, 0, 0, 0, "3E3635",
"27|44|5F|3D|663B39", 0, 0.9, intX,
& & & If intX
& -1 And intY & -1 Then
& & Cheesex = intX + 8
& & Cheesey = intY + 190
& & Cheesex =
& & Cheesey = 0
& & End if
& & TracePrint "Cheesex
,Cheesey =&
"&Cheesex&","&Cheesey
Function 得到某一横线数量最多的颜色(a)//a是代表纵坐标y的值
& & //TracePrint "midxmidx =
& & Dim rColor
& & rColor =
GetPixelColor(0, a, 0)
& & 背景色 = rColor
& & //TracePrint "rColor =
是否相等&&
& & Dim 颜色数量
& & Dim 颜色数量1
& & 颜色数量 =
GetColorNum(0,a,midx*2-1,a,rColor,1.0)
& & If 颜色数量 & 560
& //TracePrint "背景色1 = "&背景色
& & & 是否相等 =
CmpColor(i,a,背景色,1)
& & & If 是否相等
& & rColor = GetPixelColor(i, a,
& & 颜色数量1 = GetColorNum(0, a,
midx * 2 - 1, a, rColor, 1.0)
& & If 颜色数量1 & 颜色数量
& 颜色数量 = 颜色数量1
& 背景色 = rColor
& & End If
& & & If i =
midx*2-1 Then&
& & End If
& & //TracePrint "背景色 =
End Function
Sub 获取背景色()
//因为背景色自上而下渐变，获取平均色点后，算出平均色点和上下两端的差值，作为背景色
& & //获取顶部背景色点
rColor1,rColor2
得到某一横线数量最多的颜色(1)&
& & rColor1 = 背景色
& & //TracePrint
"这个点的颜色为："&rColor1
& & Dim r1,g1,b1
ColorToRGB(rColor1,r1,g1,b1)
& & //TracePrint "上方取样色点为：
"&r1&","&g1&","&b1&
& & //TracePrint "midx,midy
= "&midx&","&midy
得到某一横线数量最多的颜色(midy*2-1)&
& & rColor2 = 背景色
& & //TracePrint
"这个点的颜色为："&rColor2
& & Dim r2,g2,b2
ColorToRGB(rColor2,r2,g2,b2)
& & //TracePrint "下方取样色点为：
"&r2&","&g2&","&b2&
& & Dim r,g,b
& & r = (r1 + r2) / 2
& & g = (g1 + g2) / 2
& & b = (b1 + b2) / 2
& & //转化为十六进制
& & Dim rr,gg,bb
& & rr = Hex(r)
& & gg = Hex(g)
& & bb = Hex(b)
& & BackgroundColor = bb
& & //计算色差
& & Dim dc,dc1,dc2,dc3
& & dc1 = Hex(Abs(b1 -
& & dc2 = Hex(Abs(g1 -
& & dc3 = Hex(Abs(r1 -
& & //TracePrint
"&dc1&","&dc2&","&dc3
& & //TracePrint
"Len(dc1)=& "&Len(dc1)
& & //TracePrint
"Len(dc2)=& "&Len(dc2)
& & //TracePrint
"Len(dc3)=& "&Len(dc3)
& & If Len(dc1) = 1
& dc1 = "0" & dc1
& & End If
& & If Len(dc2) = 1
& dc2 = "0" & dc2
& & End If
& & If Len(dc3) = 1
& dc3 = "0" & dc3
& //TracePrint "dc3 = "&dc3
& & End If
& & dc = dc1 & dc2 &
& & BackgroundColor =
BackgroundColor&"-"&dc
Function 搜索积木顶点(a, b)
& & //TracePrint "a,b = "
&a&","&b//a和b是搜索范围的起点
& & Call 获取背景色()
TracePrint"背景色为："&BackgroundColor
& & //TracePrint
"BackgroundColor = "&BackgroundColor
& & Dim i,j,k
& & //TracePrint
& & & 是否相等1 =
CmpColor(a+i,b-600+j,BackgroundColor,1)
& & & If 是否相等1
& & //TracePrint
"匹配颜色的序号为："&是否相等1
& & //TracePrint
RoughPointx-SearchScope+i
& & & Else
& & //TracePrint "找到顶点"
& & Goto 搜索积木顶点标记1
& & & i = i +
& Loop until a+i&midx+a-2
& & Loop Until b - 500 + j
& & //TracePrint
"找不到想要的顶点，循环自动结束后退出到这里"
& & Rem 搜索积木顶点标记1
& Dim 是否相等2
& 是否相等2 =
CmpColor(a+i+k,b-600+j,BackgroundColor,1)
& If 是否相等2 & -1 Then&
& & & Exit
& k = k + 1
& //TracePrint "k = "&k
& & //TracePrint "k =
& & Dim rColor
& & rColor =
GetPixelColor(a+i+k/2, b-600+j,0)
& & //TracePrint
"新积木顶点的颜色为："&rColor
& & Dim IntX,IntY
& & FindColor
a+i+k/2-100,b-600+j,a+i+k/2+100,b-600+j+200,"5D69F3|F89C6B|C0D|7776EF|6BAB50|433F3D|,1.0,intX,intY
& & If intX &-1
& Traceprint "找到加分积木"
& Call 随机延迟()
& ScorePlus = MyValue1*
& ScorePlus = 0
& & End If
& & //TracePrint "i =
& & Delay 100
& & ArruratePointx = a + i +
& & topy = b-600+j
& & //TracePrint
"得到了新积木顶点横坐标X = "&ArruratePointx
End Function
Function 计算新积木纵坐标(a)
& & Dim i=1
& & //TracePrint "topy =
& Dim 是否相等1
& 是否相等1 =
CmpColor(ArruratePointx,a+i,BackgroundColor,1)
& If 是否相等1 & -1 Then
& & & Exit
& & //TracePrint "纵向扫描长度为
& & ArruratePointy = a +
(i-143) / 2//这里需要减去积木的高度143像素，这是1080P手机下的值，唯一不能适配只能填入的值
End Function
Sub 寻找白点
& & whitepointx = -1
& & Dim IntX,IntY
& & FindMultiColor
10,midy-400,midx*2-10,midy,"F5F5F5","-19|-6|F5F5F5,18|-1|F5F5F5",0,1,intX,intY
& & If intX & -1
& whitepointx = intX
& whitepointy = intY
& FindMultiColor
10,midy-400,midx*2-10,midy,"F5F5F5","-19|-5|F5F5F5,19|-3|F5F5F5",0,1,intX,intY
& If intX & -1 Then
whitepointx = intX
whitepointy = intY
FindMultiColor
10,midy-400,midx*2-10,midy,"F5F5F5","-17|-9|F5F5F5,18|-3|F5F5F5",0,1,intX,intY
& & & If intX
& & whitepointx = intX
& & whitepointy = intY
& & & Else
& //TracePrint "找不到白点"
& & End If
/////////////////////////////////////////////////////////////
////////////////////////跳跃及重新开始////////////////////////
& & //计算中心点
& & Dim dd=0
Distance,Distance1,Distance2
& & Dim i,j,k,l
SearchScopex,SearchScopey
& & SearchScopex = 250
& & SearchScopey = 250
& & Call 找到棋子()
& & //如果找到白点则直接用白点
& & If Cheesex = 0
& Call 重新开始游戏()
& & End If
& & Call 寻找白点()
& & If whitepointx & 0
& ContinuousjumpCount = ContinuousjumpCount +
& Call 随机连击()
& If ContinuousjumpCount & MyValue2
& //TracePrint "用白点"
& Distance = Sqr((Cheesex - whitepointx) ^ 2 +
(Cheesey - whitepointy) ^ 2)
& Dim IntX,IntY
& FindColor
whitepointx-100,whitepointy-100,whitepointx+100,whitepointy+100,"5D69F3|F89C6B|C0D|7776EF|6BAB50|433F3D|,1.0,intX,intY
& If intX &-1 then
& & & Traceprint
"找到加分积木"
& & & Call
随机延迟()
& & & ScorePlus
= MyValue1*
& & & ScorePlus
& Goto 跳跃标记1
& ContinuousjumpCount = 0
& & End If
& & If Cheesex
& //TracePrint"积木在右边"
& 搜索积木顶点(midx, Cheesey)
& //TracePrint"积木在左边"
& 搜索积木顶点 10, Cheesey
//方法一：根据角度计算距离的方法稳定性好，但是精确度会逐渐下降
& & Distance1 =
(Sqr((Cheesex - ArruratePointx) ^ 2)) / cos((pai/180)*30)
& & //TracePrint
"计算得到距离为："&Distance1
//方法二：扫描确定Y坐标，精确度高但是稳定性差，在和Distance1差距不大的情况下选择Distance2，否则选择Distance1
& & 计算新积木纵坐标(topy)
& & Distance2 = Sqr((Cheesex
- ArruratePointx) ^ 2 + (Cheesey - ArruratePointy) ^ 2)
& & //TracePrint
"abs(Distance1 - Distance2)& = "&abs(Distance1
- Distance2)
& & If abs(Distance1 -
Distance2) & 30 Then&
& Distance = Distance2
& //TracePrint "选用方法一"
& Distance = Distance1
& //TracePrint "选用方法二"
& & End If
& & Rem 跳跃标记1
(Distance+dd)/speed
& & 随机按压(750,1500,t)
Sub 重新开始游戏
& & Dim IntX,IntY
& & FindColor
0,0,midx*2,midy*2,"77C700",0,1.0,intX,intY
& & If intX &-1
& 随机按压(intX,intY,100)
& & End If
& & Delay 2000
////////////////////////////复制以上内容/////////////////////////////////
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。手机按键精灵怎么修改脚本？_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：404,479贴子：
手机按键精灵怎么修改脚本？收藏
我用的安卓的手机按键精灵，录制好的脚本我想调一下。软件里只能改名脚本，无法编辑啊
你的肯定是被加密了的，所以编辑不了
登录百度帐号