网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵安卓版 正文
按键精灵手机版过滑块的源码
@78765403
Import "shanhai.lua" Dim intx,inty,文件路径1="/sdcard/.money/wx2.jpg",文件路径2="/sdcard/DCIM/wx2.jpg",ok=1 Do FindPic 112,959, 353,1101, "Attachment:滑块.png|Attachment:滑块1.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then // Delay 2000 xxk "滑块模拟" 滑块函数 End If FindPic 446,1705,616,1874, "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then ok = 1 End If FindPic 893,1823,1010,1907, "Attachment:登录成功_我.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then Dir.Copy 文件路径1, 文件路径2 Call ShanHai.UpdatePicture("/sdcard/DCIM/wx2.jpg") Delay 3000 If ok = 1 Then FindPic 218,71,554,169, "Attachment:后备份.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then xxk "开始任务" RunApp "com.tencent.mm", ".plugin.scanner.ui.BaseScanUI" Delay 3000 ok = 0 End If FindPic 415,70,755,157, "Attachment:后备份.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then RunApp "com.tencent.mm", ".plugin.scanner.ui.BaseScanUI" Delay 3000 ok = 0 End If End If End If FindPic 70,1824,199,1892, "Attachment:封面.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "封面" Tap 991,142 Delay 2000 End If FindPic 49,1745,466,1919, "Attachment:从相册.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "从相册" Tap intX,intY Delay 2000 End If FindPic 241,1835,326,1893, "Attachment:所有图片.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "所有图片" Tap 405,336'第一张图片 Delay 2000 Dim n=0 For n = 0 To 10 FindPic 148,1806,286,1909, "Attachment:红包墙.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then ok = 1 Tap 847, 1841 Delay 2000 Exit For End If Delay 500 FindPic 740,1071,911,1191, "Attachment:组件升级.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then Tap intX,intY End If Delay 500 FindPic 446,1705,616,1874, "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then ok = 1 Exit For End If Next End If FindPic 148,1806,286,1909, "Attachment:红包墙.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "红包墙" Tap 847,1841 ok = 1 End If FindPic 745,1193,882,1278, "Attachment:允许.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "允许" Tap intX,intY End If FindPic 740,1071,911,1191, "Attachment:组件升级.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "组件升级" Tap intX,intY End If FindPic 547,1333,697,1435, "Attachment:关闭.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "关闭" Tap intX,intY End If FindPic 28,267,267,392, "Attachment:附近的小程序.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "附近的小程序" Touch 126,572,1000 FindPic 79,217,333,512, "Attachment:删除小程序.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then Tap intX,intY End If FindPic 381,494,690,599, "Attachment:没有小程序.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "删除小程序完成了" Delay 2000 End If FindPic 73,467,129,514, "Attachment:没有小程序2.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "删除小程序完成了2" Delay 2000 End If ok = 1 End If FindPic 480,1769,606,1871, "Attachment:小程序界面.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "小程序界面" Tap 983,150 Delay 2000 ok = 1 End If FindPic 739,1784,960,1912, "Attachment:我的红包.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then // Dim n n = 0 For n = 0 To 5 FindPic 418,738,672,868, "Attachment:红包完成.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "红包完成啦" RunApp "com.tencent.mm", ".plugin.appbrand.ui.AppBrandLauncherUI" Delay 2000 Exit For End If Delay 1000 FindPic 446,1705,616,1874, "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then ok = 1 Exit For End If Next Tap 215,1861 Delay 2000 ok = 1 End If TracePrint ok Delay 1000 Loop Function 滑块函数() '颜色特征存放进数组里 Dim 特征1,特征2,特征3,特征4,特征5,特征6,滑动解锁 特征1 = Array(378,408,1012,936, "182931","-13|0|141F28,0|13|16282F,1|124|7098A6,-123|123|112F3A,-123|0|274448")//鸟 特征2 = Array(378,408,1012,936, "334D7A","-6|1|151E4C,-1|5|192848,0|124|4B618F,-123|123|1B253F,-124|0|43586A")//红色纱布 特征3 = Array(378,408,1012,936, "6A6564","-14|1|4D4847,0|14|4B4948,1|124|9C9A99,-123|123|383537,-123|0|6B6864")//企鹅 特征4 = Array(378,408,1012,936, "555352","-3|0|3B3938,0|5|434140,0|123|3B342B,-124|124|A5A098,-123|0|223247")//青草 特征5 = Array(378,408,1012,936, "A3EDF2","-2|10|28394A,-9|2|104242,0|127|BAB5A1,-127|127|C3BFAA,-127|0|E0E1D1")//黄沙 特征6 = Array(378,408,1012,936, "2B4D3C","-12|1|193022,0|14|273924,0|124|4A6662,-124|124|4B7065,-124|0|3B5C4E") //草地 滑动解锁 = False Call shanhai.TimeSign(1) Dim XX=Random(160,290) Dim XXX=XX-160+Random(-5,5) Dim cishu=Random(5, 10) Do If 多点找色(特征1) = True Then TracePrint intx TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 多点找色(特征2) = True Then TracePrint intx TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 多点找色(特征3) = True Then TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 多点找色(特征4) = True Then TracePrint intx TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 多点找色(特征5) = True Then TracePrint intx TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 多点找色(特征6) = True Then TracePrint intx TouchDown XX , Random(970, 1000), 1 For i=1 to cishu TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu) Delay Random(100, 300 ) Next Delay Random(100, 1000) TouchUp 1 滑动解锁 = True ElseIf 滑动解锁 = False Then ShowMessage "未匹配到方案" Delay 500 Tap 982, 1177 Delay 3500 End If If shanhai.Timer(1, 10) Then TracePrint "成功解锁" // Dim n // For n = 0 To 10 // FindPic 138,1135,269,1204, "Attachment:请对准.png", "000000", 0, 0.9, intX, intY // If intX > -1 And intY > -1 Then // ShowMessage "滑块错误" // Tap 982, 1177 // Delay 3500 // End If // Next Exit Do End If FindPic 138,1135,269,1204, "Attachment:请对准.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then ShowMessage "滑块错误" Tap 982, 1177 Delay 3500 End If Loop End Function Function xxk(str) ShowMessage "【提示】" & str, 100, 5, 1830 Delay 500 End Function Function 多点找色(特征数组) '多点找色函数 FindMultiColor 特征数组(0), 特征数组(1), 特征数组(2), 特征数组(3), 特征数组(4), 特征数组(5), 4, 0.8, intX, intY If intx > -1 Then 多点找色() = intx 多点找色 = True Else 多点找色 = False End If End Function Function Random(min, max)//随机数 Randomize Dim Random = 0 Random = Int((max - min + 1) * Rnd() + min) End Function
- 上一篇: 易语言对64位程序内存读写操作纯模块源码
- 下一篇: 动画框自绘滚动条 仿360纵向滚动条易语言源码
猜你喜欢
- 2019-03-16 按键精灵脚本源码 巨人拉车
- 2019-02-17 按键精灵手机版过滑块的源码
- 2018-08-06 按键精灵抖音引流脚本源码
- 2018-08-03 按键精灵抖音自动点赞评论脚本
- 2018-07-23 按键精灵微信针对性加人脚本源码
- 2018-07-23 按键精灵给APP加注册码授权码例程源码
- 2018-07-13 抖音自动发短视频脚本(智能依次发布已存储好的视频文件从1-6)
- 2018-06-10 最右App主题新帖自动发送私聊脚本
- 2018-06-04 最右APP主题成员群发脚本源码
- 2018-05-18 京东模拟人工注册按键精灵源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有53位网友发表了看法:
三叶网 评论于 [2019-03-07 10:52:51] 回复
手机按键精灵+检测提示框
访客 评论于 [2019-03-09 13:12:01] 回复
能下载就好了,不知道源码里图片是什么
易语言资源网站 评论于 [2019-03-22 10:48:19] 回复
手机版按键精灵向上滑动的代码
三叶资源网站 评论于 [2019-03-23 17:08:52] 回复
手机按键精灵滑块
三叶资源网站 评论于 [2019-03-23 17:09:33] 回复
按键精灵手机版自动过滑块验证码的源码
三叶资源网站 评论于 [2019-03-27 13:10:01] 回复
按键精灵滑块
三叶资源网站 评论于 [2019-03-28 19:52:32] 回复
按键精灵+滑块
三叶资源网站 评论于 [2019-04-02 16:14:56] 回复
按键精灵图片滑块的教程
源码网 评论于 [2019-04-22 00:32:55] 回复
易语言滑块模拟登录
易语言教程网站 评论于 [2019-05-10 17:27:57] 回复
按键精灵过滑块教程
模块官网 评论于 [2019-05-25 22:58:11] 回复
按键精灵安卓版滑块
易语言子程序 评论于 [2019-05-25 23:14:47] 回复
按键精灵手机版过滑块
易语言网站 评论于 [2019-06-23 20:45:57] 回复
过滑块验证安卓
易语言教程站 评论于 [2019-07-19 11:21:28] 回复
按键精灵如何过滑块
易语言教程站 评论于 [2019-07-19 14:22:08] 回复
手机按键精灵源码
易语言教程站 评论于 [2019-07-29 07:51:23] 回复
按键精灵京东滑块
易语言教程站 评论于 [2019-07-29 07:57:05] 回复
按键 滑块
易语言教程站 评论于 [2019-08-01 11:26:06] 回复
本地过滑块 按键精灵
易语言教程站 评论于 [2019-08-05 11:52:02] 回复
顶象滑块按键精灵怎么过
易语言TV 评论于 [2019-08-09 15:54:26] 回复
按键精灵闲鱼过滑块
易语言TV 评论于 [2019-08-09 15:54:42] 回复
按键手机怎么滑块
易语言教程站 评论于 [2019-08-18 11:35:39] 回复
按键精灵备份源码
易语言例程 评论于 [2019-08-29 10:31:47] 回复
手机按键精灵滑块
易语言例子 评论于 [2019-09-14 15:19:26] 回复
按键精灵无原图找滑块
易语言例子 评论于 [2019-09-14 15:39:13] 回复
按键精灵滑块
易语言例子 评论于 [2019-09-14 15:40:15] 回复
按键精灵无原图过滑块验证
易语言例子 评论于 [2019-09-14 15:40:32] 回复
自动精灵过滑块
易语言TV 评论于 [2019-09-14 16:53:46] 回复
手机按键精灵滑块验证
易语言TV 评论于 [2019-10-31 23:18:55] 回复
安卓按键精灵滑块
三叶网 评论于 [2019-11-02 22:56:53] 回复
按键精灵过联众滑块代码
易语言教程 评论于 [2019-11-12 20:03:21] 回复
手机按键精灵抖音过滑块
易语言例子源码 评论于 [2020-02-08 00:01:18] 回复
按键精灵过快手滑块验证
模块开发 评论于 [2020-02-17 23:59:06] 回复
安卓按键精灵教程+滑块
处理现行程序 评论于 [2020-02-18 01:01:42] 回复
按键精灵安卓版过滑块验证
编程助手 评论于 [2020-02-18 12:23:26] 回复
按键精灵touchmove源码
广大易友 评论于 [2020-02-23 21:47:10] 回复
按键精灵滑块验证源码
模块官网 评论于 [2020-03-04 17:13:57] 回复
按键精灵安卓版滑块轨迹
现行程序 评论于 [2020-03-13 12:09:44] 回复
联众对接按键精灵滑块移动
易语言子程序 评论于 [2020-03-17 13:11:20] 回复
android+自动滑块打码
目的代码 评论于 [2020-03-19 12:43:19] 回复
按键精灵滑块验证源码
目的代码 评论于 [2020-03-19 12:44:36] 回复
按键精灵过本地滑块
易语言 评论于 [2020-04-07 15:40:15] 回复
手机按键精灵+更新源码
易语言 评论于 [2020-04-17 20:31:51] 回复
手机版按键精灵滑块指令
sql语句 评论于 [2020-04-17 20:44:00] 回复
手机按键精灵滑块
易语言 评论于 [2020-04-17 21:45:30] 回复
按键精灵安卓过滑块验证
易语言 评论于 [2020-04-17 22:06:58] 回复
脚本的滑块怎么过
易语言 评论于 [2020-05-08 22:57:21] 回复
手机按键精灵向上滑动脚本
易语言 评论于 [2020-06-16 23:09:42] 回复
快手自动精灵过滑块
易语言 评论于 [2020-08-17 17:13:18] 回复
按键精灵如何处理滑块验证
易语言 评论于 [2020-09-08 09:31:17] 回复
安卓脚本精灵制作滑块验证
易语言教程站 评论于 [2020-09-10 20:31:30] 回复
按键精灵快手滑块源码
易语言教程站 评论于 [2020-09-10 20:32:37] 回复
按键精灵自动滑块脚本
源码资源库 评论于 [2021-04-26 22:22:01] 回复
咸鱼过滑块
多线程 评论于 [2021-05-28 16:47:46] 回复
按键精灵+滑块