无意中看到按键精灵出Android版了,想了解一下,所以加入了内测,

由于脚本语法和VB差不多,所以上手很快,写了个天天爱消除的脚本来练习一下,

很早就知道按键精灵了,但一直没写过其脚本,这个算是我的第一个按键精灵脚本吧!

/****
测试手机 小米1S
分辨率   480*854
游戏方格 68*68
起始点   3,223
**/Dim baseX,baseY,boxW,boxH
Dim I,X,Y,maxX,maxY,ret,Box(8, 8)baseX = 3
baseY = 223
boxW  = 68
boxH  = 67.5
maxX  = 7
maxY  = 7
ret = 0KeepScreen(true)
TracePrint "开始消除。。。"'还没加入判断开始与结束的条件,使用时手工点停止
For I = 1 To 200'TracePrint ICall ReadBox()For Y = 1 To maxYFor X = 1 To maxXret = CheckMove(X, Y, maxX, maxY)Select Case retCase 1 '上移Tap baseX+(X-1)*boxW+30,baseY+(Y-1)*boxH+30Tap baseX+(X-1)*boxW+30,baseY+(Y-2)*boxH+30Case 2 '右移Tap baseX+(X-1)*boxW+30,baseY+(Y-1)*boxH+30Tap baseX+X*boxW+30,baseY+(Y-1)*boxH+30Case 3 '下移Tap baseX+(X-1)*boxW+30,baseY+(Y-1)*boxH+30Tap baseX+(X-1)*boxW+30,baseY+(Y)*boxH+30Case 4 '左移Tap baseX+(X-1)*boxW+30,baseY+(Y-1)*boxH+30Tap baseX+(X-2)*boxW+30,baseY+(Y-1)*boxH+30End SelectNextNextNextTracePrint "消除结束!!!"
KeepScreen(false)
EndScript'确定方块往哪个方向移动(返回:0-无,1-上,2-右,3-下,4-左)
Function CheckMove(x, y, maxX, maxY)Dim retret = 0'往上移If ret=0 And y>1 ThenIf x>2 And BoxMatch(x-2,y-1, x-1,y-1, x,y) Thenret = 1End IfIf x>1 And x<maxX And BoxMatch(x-1,y-1, x,y, x+1,y-1) Thenret = 1End IfIf x<maxX-1 And BoxMatch(x,y, x+1,y-1, x+2,y-1) Thenret = 1End IfIf y>3 And BoxMatch(x,y-3, x,y-2, x,y) Thenret = 1End IfEnd If'往右移If ret=0 And x<maxX ThenIf y>2 And BoxMatch(x+1,y-2, x+1,y-1, x,y) Thenret = 2End IfIf y>1 And y<maxY And BoxMatch(x+1,y-1, x,y, x+1,y+1) Thenret = 2End IfIf y<maxY-1 And BoxMatch(x,y, x+1,y+1, x+1,y+2) Thenret = 2End IfIf x<maxX-2 And BoxMatch(x,y, x+2,y, x+3,y) Thenret = 2End IfEnd If'往下移If ret=0 And y<maxY ThenIf x>2 And BoxMatch(x-2,y+1, x-1,y+1, x,y) Thenret = 3End IfIf x>1 And x<maxX And BoxMatch(x-1,y+1, x,y, x+1,y+1) Thenret = 3End IfIf x<maxX-1 And BoxMatch(x,y, x+1,y+1, x+2,y+1) Thenret = 3End IfIf y<maxY-2 And BoxMatch(x,y, x,y+2, x,y+3) Thenret = 3End IfEnd If'往左移If ret=0 And x>1 ThenIf y>2 And BoxMatch(x-1,y-2, x-1,y-1, x,y) Thenret = 4End IfIf y>1 And y<maxY And BoxMatch(x-1,y-1, x,y, x-1,y+1) Thenret = 4End IfIf y<maxY-1 And BoxMatch(x,y, x-1,y+1, x-1,y+2) Thenret = 4End IfIf x>3 And BoxMatch(x-3,y, x-1,y, x,y) Thenret = 4End IfEnd IfCheckMove = ret
End Function'判断三个方块能否连线
Function BoxMatch(x1, y1, x2, y2, x3, y3)Dim b1, b2, b3b1 = Box(x1, y1)b2 = Box(x2, y2)b3 = Box(x3, y3)If BoxEquals(b1, b2) And BoxEquals(b1, b3) ThenBoxMatch = TrueElseBoxMatch = FalseEnd If
End Function'判断两个方块是否一样
Function BoxEquals(box1, box2)If ColorDiff(box1,box2)<50 ThenBoxEquals = TrueElseBoxEquals = FalseEnd If
End Function'读入方块布局
Sub ReadBox()KeepCaptureDim X,YFor Y = 1 To maxYFor X = 1 To maxXBox(X,Y)=GetPixelColor(baseX+(X-1)*boxW+30, baseY+(Y-1)*boxH+30)NextNextReleaseCapture
End Sub

天天爱消除辅助-按键精灵手机安卓版-天天爱消除辅助Android源码-按键精灵脚本相关推荐

  1. Q版疯狂大炮游戏android源码下载

    给大家分享一款非常不错的Q版疯狂大炮游戏android源码下载,喜欢的朋友可以下载. 项目源码下载:http://code.662p.com/view/2314.html <ignore_js_ ...

  2. 安卓系统定制脱壳之android源码增加产品

    目录 source envsetup.sh lunch 选择 make -j 编译 增加产品 一.source envsetup.sh 在自己同步源码目录运行 source envsetup.sh 或 ...

  3. 安卓java编辑器eclipse_Eclipse开发Android源码的详细教程

    用eclipse + ADT作为android开发工具,可以说是很方便的,在HelloActivity小程序里我们就感觉到eclipse功能的强大. 1.可以使用eclipse来编辑JAVA程序.检查 ...

  4. utorrent android,utorrent手机安卓版

    utorrent手机安卓版是一款安卓手机上的非常不错的BT下载工具,BT下载是我们下载影视.音乐等资源非常常见的方式,uTorrent在PC平台可以说是非常知名,现在可以uTorrent安卓版让你可以 ...

  5. 城市天际线 android,城市天际线手机安卓版

    城市天际线手机安卓版是一款非常好玩的模拟经营类游戏,玩家们在这款游戏中将不再只是为了城市的运输系统而忙碌,而是要管理好各个方面的事务.在游戏中有着大量的mod工具,玩家可以创建出从自己的角度看起来最为 ...

  6. 0.6闪光灯二进制编码通信android源码手电筒手机密码器频率控制 as4.0版 密码123456 支持所有android2.2到10及以上系统 Android7.0以前和7.0以后开启闪光灯

    演示:0.6闪光灯二进制编码通信android源码手电筒手机密码器频率控制 as4.0版 密码123456.apk http://6.wjsou.com/uploads/1594994912599.a ...

  7. PHP自适应手机版自动发卡平台系统源码

    PHP自适应手机版自动发卡平台系统源码 独特售卡页面 MYSQL数据库+php5.6部分服务器需要设置伪静态 将源码放置自己的服务器或虚拟主机,访问域名进行安装 填写数据库信息 安装完成 后台账号:a ...

  8. 在线教育丨在线课堂丨知识付费系统丨自适应手机版虚拟资源下载php源码

    源码简介: 这是一款知识付费系统,后台可上传本地视频,批量上传视频连接,视频后台可设计权限观看,免费试看时间时长,会员等级观看,付费观 看等功能,也带软件app权限下载,帮助知识教育和软件推广企业提升 ...

  9. 《深入理解Android内核设计思想(第2版)(上下册)》之Android源码下载及编译

    本文摘自人民邮电出版社异步社区<深入理解Android内核设计思想(第2版)(上下册)> 购书地址:http://item.jd.com/12212640.html 试读地址:http:/ ...

最新文章

  1. 201771010111李瑞红《面向对象的程序设计》第八周实验总结
  2. Innodb与MySQL各自功能
  3. swift 笔记 (十二) —— 下标
  4. Float构建三栏DIV CSS网页布局
  5. Form表单提交按钮图片IE6下背景透明(js提交)
  6. window.open 弹出居中窗口
  7. Go语言并发的设计模式和应用场景
  8. GitHub上Star 量最高的 5 个机器学习项目
  9. echarts 获取点击的y轴数值_ECharts关系图
  10. inux系统磁盘管理基础知识及总结
  11. 画出使用回溯法解0/1背包问题的解空间树
  12. 用html和css实现字体发光效果
  13. mac下安装photoshop
  14. python保存图片格式_python 存储网页图片格式
  15. Delphi RAD Studio 10.4.2 Sydney的新增与改进介绍原版全文
  16. 大学生c++实训之职工管理系统设计
  17. #SATA# 浅析SATA链路建立过程
  18. 【OpenPose-Windows】OpenPose1.4.0+VS2017+CUDA9.2+cuDNN9.2+Windows配置教程
  19. OSI模型、TCP/IP模型、数据封装与解封装-----网络通信原理
  20. 橘子平台origin安装闪退?

热门文章

  1. 一款告诉你历史价格的插件,双11购物神器!
  2. 如何在Mac上查看系统日志
  3. 中科院心理咨询师基础培训合格证书(2019年07月)
  4. 中柏pad7安装linux,接个键盘就是电脑 中柏EZpad 7改变移动办公体验
  5. 如何将MP3文件转成OGG?
  6. border-box和content-box最直观的区别和解释【不理解包赔】
  7. Xbox Game Bar 实时显示帧数方法| Win10开启自带FPS显示
  8. Linux操作系统——定制自己的 Linux 系统
  9. 图像分类篇-2:AlexNet
  10. 广色域图片Android,广色域手机屏幕科普解析:所见不一定为实