• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 73
发新话题 回复该主题

[源码分享] 【果壳魔板V3.15】 [复制链接]

1#

欢迎加入果壳学院-按键课程视频教学群(终身免费课程学习、1对1贴心辅导)
果壳学院QQ群:①327610461) 群(465560580)

★福利:果壳学院按键教学课程视频免费收看



《果壳学院安卓按键课程》第一季免费视频(剑侠世界)进入收看

《果壳学院安卓按键课程》第二季免费视频(梦幻诛仙)进入收看
《果壳学院安卓按键课程》第三季免费视频(雷霆战机)进入收看
《果壳学院安卓按键课程》第四季免费教学视频(COC)进入收看
《果壳学院安卓按键课程》第五季免费教学视频(梦幻西游)进入收看
《果壳学院综合课外课》免费教学视频:进入收看

《GUOKE-HOT(果壳热) - 按键X第一季 - 梦幻西游内存大电影》免费教学视频进入收看
《GUOKE-HOT(果壳热) - 按键X第二季 - 多线程跳一跳大电影》免费教学视频进入收看

★特殊福利:
果壳编程模板的插件版本:果壳万能图色插件
果壳COC综合插件:COC插件

↓果壳编程模板完整源码下载(最新版本V3.15 - 更新日期:2017/12/28)↓
V3.13更新内容
修复模板在新版本按键精灵手机助手上无法正常运行的问题。
V3.15更新内容修复模板对找色、找图、找字、找色素和比色的点击TMEX、点击UBTMEX功能的BUG。

GKtemplate.zip (, 下载次数:8229)








//以下为利用果壳模板进行“找图找色找字”的演示示例:其中UB标识符表示“遍历对象”,即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到;TM标识符表示“等待对象出现”,即在限定时间内等待对象出现;EX标识符表示"直到对象消失",即找到对象后等待对象消失;UBEX标识符表示“遍历对象+直到对象消失”;UBTM标识符表示“遍历对象+等待对象出现”;TMEX标识符表示“等待对象出现+直到对象消失”;UBTMEX标识符表示“遍历对象+等待对象出现+直到对象消失”;NO标识符为组成模板的关键零部件,无法单独调用,不具备实际意义。注:此编程模板由果壳王子制作,QQ237154778
Function 比色示例 '对静态对象进行查找,使用固定坐标查找
Dim 对象 = {"找到对象":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
比色示例 = 比色点击(对象)
End Function
Function 比色EX示例 'EX方法说明:直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象
对象 = {"找到对象":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
比色EX示例 = 比色点击EX(对象)
End Function
Function 比色UB示例 'UB方法说明:即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到。
Dim 对象()
对象(0) = {"找到对象1":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
对象(1) = {"找到对象2":"366|211|214D10,341|188|3992BD,399|182|737973,330|235|52BAEF"}
比色UB示例 = 比色点击UB(对象)
End Function
Function 比色UBEX示例 'UBEX方法说明:遍历对象+直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象()
对象(0) = {"找到对象1":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
对象(1) = {"找到对象2":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
比色UBEX示例 = 比色点击UBEX(对象)
End Function
Function 比色TM示例 'TM方法说明:等待对象出现,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象 = {"找到对象":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
比色TM示例 = 比色点击TM(对象)
End Function
Function 比色UBTM示例 'UBTM方法说明:遍历对象+等待对象出现,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象()
对象(0) = {"找到对象1":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
对象(1) = {"找到对象2":"221|464|FFFFFF,234|452|28BA00,209|444|2CCEEB,197|471|DB9B0E,232|480|2628D8"}
比色UBTM示例 = 比色点击UBTM(对象)
End Function
Function 比色TMEX示例 'TMEX方法说明:等待对象出现+直到对象消失,即在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象 = {"找到对象":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
比色TMEX示例 = 比色点击TMEX(对象)
End Function
Function 比色UBTMEX示例 'UBTMEX方法说明:遍历对象+等待对象出现+直到对象消失,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象()
对象(0) = {"找到对象1":"310|422|D6DFD6,400|383|D6DFD6,368|215|398629"}
对象(1) = {"找到对象2":"221|464|FFFFFF,234|452|28BA00,209|444|2CCEEB,197|471|DB9B0E,232|480|2628D8"}
比色UBTMEX示例 = 比色点击UBTMEX(对象)
End Function
Function 找色示例 '对动态对象进行查找,使用范围坐标查找
Dim 对象 = {"找到对象":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找色示例 = 找色点击(对象)
End Function
Function 找色UB示例 'UB方法说明:即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
对象(1) = {"找到对象2":"205,444,449,683,214D10,-25|-23|3992BD,33|-29|737973,-36|24|52BAEF"}
找色UB示例 = 找色点击UB(对象)
End Function
Function 找色UBEX示例 'UBEX方法说明:遍历对象+直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象()
对象(0) = {"找到对象1":"351,945,476,1006,F3F3F3,175|-222|E5B533,255|-563|E5B533,116|-28|F3F3F3,176|-361|E5B533"}
对象(1) = {"找到对象2":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找色UBEX示例=找色点击UBEX(对象)
End Function
Function 找色EX示例 'EX方法说明:直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象 = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629","找到对象2":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找色EX示例 = 找色点击EX(对象)
End Function
Function 找色TM示例 'TM方法说明:等待对象出现,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象 = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629","找到对象2":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找色TM示例 = 找色点击TM(对象)
End Function
Function 找色UBTM示例 'UBTM方法说明:遍历对象+等待对象出现,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
对象(1) = {"找到对象2":"183,428,257,502,FFFFFF,13|-12|28BA00,-12|-20|2CCEEB,-24|7|DB9B0E,11|16|2628D8"}
找色UBTM示例 = 找色点击UBTM(对象)
End Function
Function 找色TMEX示例 'TMEX方法说明:等待对象出现+直到对象消失,即在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象 = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找色TMEX示例 = 找色点击TMEX(对象)
End Function
Function 找色UBTMEX示例 'UBTMEX方法说明:遍历对象+等待对象出现+直到对象消失,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
对象(1) = {"找到对象2":"183,428,257,502,FFFFFF,13|-12|28BA00,-12|-20|2CCEEB,-24|7|DB9B0E,11|16|2628D8"}
找色UBTMEX示例 = 找色点击UBTMEX(对象)
End Function
Function 找图示例 '查找指定对象的图片,对象坐标为范围坐标
Dim 对象 = {"找到对象":"0,0,0,0,Attachment:对象.png,000000"}
找图示例=找图点击(对象)
End Function
Function 找图UB示例 'UB方法说明:即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到。
Dim 对象()
对象(0) = {"找到对象1":"281,645,378,747,Attachment:图片1.png,000000"}
对象(1) = {"找到对象2":"491,641,592,742,Attachment:图片2.png|Attachment:图片3.png,000000"}
找图UB示例=找图点击UB(对象)
End Function
Function 找图EX示例 'EX方法说明:遍历对象,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象 = {"找到对象1":"281,645,378,747,Attachment:图片.png,000000"}
找图EX示例=找图点击EX(对象)
End Function
Function 找图UBEX示例 'UBEX方法说明:遍历对象+直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象()
对象(0) = {"找到对象1":"281,645,378,747,Attachment:图片1.png,000000"}
对象(1) = {"找到对象2":"491,641,592,742,Attachment:图片2|图片3.png,000000"}
找图UBEX示例=找图点击UBEX(对象)
End Function
Function 找图TM示例 'TM方法说明:等待对象出现,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象 = {"找到对象":"0,0,0,0,Attachment:图片.png,000000"}
找图TM示例 = 找图点击TM(对象)
End Function
Function 找图UBTM示例 'UBTM方法说明:遍历对象+等待对象出现,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象()
对象(0) = {"找到对象1":"185,428,257,506,Attachment:图片1.png,000000"}
对象(1) = {"找到对象2":"463,427,540,501,Attachment:图片2.png,000000"}
找图UBTM示例 = 找图点击UBTM(对象)
End Function
Function 找图TMEX示例 'TMEX方法说明:等待对象出现+直到对象消失,即在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象 = {"找到对象":"0,0,0,0,Attachment:图片.png,000000"}
找图TMEX示例 = 找图点击TMEX(对象)
End Function
Function 找图UBTMEX示例 'UBTMEX方法说明:遍历对象+等待对象出现+直到对象消失,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象()
对象(0) = {"找到对象1":"281,645,378,747,Attachment:图片1.png,000000"}
对象(1) = {"找到对象2":"491,641,592,742,Attachment:图片2.png,000000"}
找图UBTMEX示例 = 找图点击UBTMEX(对象)
End Function
Function 找色素示例 '查找颜色像素点,对象坐标为范围坐标
Dim 对象 = {"找到对象":"212,323,570,1103,D6DFD6|398629"}
找色素示例 = 找色素点击(对象)
End Function
Function 找色素EX例 'EX方法说明:遍历对象,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象 = {"找到对象":"212,323,570,1103,D6DFD6|398629"}
找色素EX例 = 找色素点击EX(对象)
End Function
Function 找色素UB示例 'UB方法说明:即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6|398629"}
对象(1) = {"找到对象2":"205,444,449,683,1103,398629"}
找色素UB示例 = 找色素点击UB(对象)
End Function
Function 找色素UBEX示例 'UBEX方法说明:遍历对象+直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6|398629"}
对象(1) = {"找到对象2":"469,288,522,342,5963F9"}
找色素UBEX示例 = 找色素点击UBEX(对象)
End Function
Function 找色素TM示例 'TM方法说明:等待对象出现,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象 = {"找到对象":"212,323,570,1103,D6DFD6|398629"}
找色素TM示例 = 找色素点击TM(对象)
End Function
Function 找色素UBTM示例 'UBTM方法说明:遍历对象+直到对象消失,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6"}
对象(1) = {"找到对象2":"469,288,522,342,398629"}
找色素UBTM示例 = 找色素点击UBTM(对象)
End Function
Function 找色素TMEX示例 'TMEX方法说明:等待对象出现+直到对象消失,即在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象 = {"找到对象":"212,323,570,1103,D6DFD6|398629"}
找色素TMEX示例 = 找色素点击TMEX(对象)
End Function
Function 找色素UBTMEX示例 'UBTMEX方法说明:遍历对象+等待对象出现+直到对象消失,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,D6DFD6"}
对象(1) = {"找到对象2":"469,288,522,342,398629"}
找色素UBTMEX示例 = 找色素点击UBTMEX(对象)
End Function
Function 找字示例 '查找对象文字,对象坐标为范围坐标
Dim 对象 = {"找到对象":"212,323,570,1103,长安|长寿村,9f2e3f-000000"}
UseDict(0)
找字示例 = 找字点击(对象)
End Function
Function 找字UB示例 'UB方法说明:即查找对象以数组方式进行遍历查找,找到其中一个数组成员则返回真,返回假的条件:所有数组成员都未能找到。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000"}
对象(1) = {"找到对象2":"309,264,599,653,长寿村,D6DFD6-000000"}
UseDict(0)
找字UB示例 = 找字点击UB(对象)
End Function
Function 找字UBEX示例 'UBEX方法说明:遍历对象+直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象()
对象(0) = {"找到对象1":"351,945,476,1006,F3F3F3,175|-222|E5B533,255|-563|E5B533,116|-28|F3F3F3,176|-361|E5B533"}
对象(1) = {"找到对象2":"212,323,570,1103,D6DFD6,90|-39|D6DFD6,58|-207|398629"}
找字UBEX示例=找字点击UBEX(对象)
End Function
Function 找字EX示例 'EX方法说明:直到对象消失,即先判断找到对象并点击对象,然后在限定时间内检测对象已消失,返回真。返回假的条件:1.首次查找对象未找到;2.找到对象后等待对象消失时间超时。
Dim 对象 = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000","找到对象2":"309,264,599,653,长寿村,D6DFD6-000000"}
UseDict(0)
找字EX示例 = 找字点击EX(对象)
End Function
Function 找字TM示例 'TM方法说明:等待对象出现,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象 = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000","找到对象2":"309,264,599,653,长寿村,D6DFD6-000000"}
UseDict(0)
找字TM示例 = 找字TM(对象)
End Function
Function 找字UBTM示例 'UBTM方法说明:遍历对象+直到对象消失,即在指定时间内查找对象(等待对象出现),找到返回真。返回假的条件:查找超时。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000"}
对象(1) = {"找到对象2":"212,323,570,1103,长寿村,9f2e3f-000000"}
UseDict(0)
找字UBTM示例 = 找字UBTM(对象)
End Function
Function 找字TMEX示例 'TMEX方法说明:等待对象出现+直到对象消失,即在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象 = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000","找到对象2":"309,264,599,653,长寿村,D6DFD6-000000"}
UseDict(0)
找字TMEX示例 = 找字点击TMEX(对象)
End Function
Function 找字UBTMEX示例 'UBTMEX方法说明:遍历对象+等待对象出现+直到对象消失,即以遍历数组成员方式在指定时间内查找对象(等待对象出现),找到后再等待其消失,则返回真。返回假的条件有:1.等待对象超时;2.对象在限定时间内未消失。
Dim 对象()
对象(0) = {"找到对象1":"212,323,570,1103,长安,9f2e3f-000000"}
对象(1) = {"找到对象2":"212,323,570,1103,长寿村,9f2e3f-000000"}
UseDict(0)
找字UBTMEX示例 = 找字点击UBTMEX(对象)
End Function
Function 读字示例 '以OCR方式读取对象文字,返回从字库中匹配到的文字
Dim 对象 = {"212,323,570,1103,9f2e3f-000000"}
UseDict (0)
读字示例 = 读字(对象)
End Function
Function 合成坐标示例 '以下是合成坐标及切换分辨率的写法,举例:通过任务文字偏移范围查找参加按钮 - 假设任务字对象的位置坐标为100,100,欲在此位置上进行相对位置偏移计算,实际使用时任务字对象应写为全局变量,其值由该对象所在位置实际坐标决定。
Dim 参加按钮(),xy(),合成坐标,任务字X=100,任务字Y=100
xy(0) = CStr(任务字X - 43) :xy(1) = CStr(任务字Y + 269) : xy(2) = CStr(任务字X + 11) : xy(3) = Cstr(任务字Y + 323)
合成坐标 = Join(xy, ",")
参加按钮(0) = {合成坐标&",参,E7EDF6-333333|C6CBD0-333333"}
参加按钮(1) = {合成坐标&",参,9AB2C9-333333|C5CAD0-333333"}
If 还原(10801920) Then
xy(0) = CStr(任务字X - 69) :xy(1) = CStr(任务字Y + 397) : xy(2) = CStr(任务字X + 34) : xy(3) = Cstr(任务字Y + 496)
合成坐标 = Join(xy, ",")
参加按钮(0) = {合成坐标&",参,BDC1C6-333333"}
参加按钮(1) = {合成坐标&",参,BCBEC2-333333"}
ElseIf 还原(540960) Then
ElseIf 还原(480854) Then
End If
UseDict(0)
合成坐标示例 = 找字点击UB(参加按钮)
End Function

    已有1评分我要评分查看所有评分

    最后编辑果壳王子 最后编辑于 2019-07-16 15:50:53
    本主题由 按键合作伙伴 果壳王子 于 2019/7/16 16:00:20 执行 提升/下沉主题 操作
    果壳学院 ● 疯狂编程①群:327610461 (编程从未如此性感)
    2#

    膜拜大神~

    3#


    最后编辑x7780618 最后编辑于 2016-11-21 21:43:38
    4#

    ASDFASDFADFADFADFAFD

    5#

    顶顶顶顶顶顶顶顶顶顶顶顶顶顶大大大的的

    6#

    前排围观

    7#

    学习来了

    8#

    看看

    9#

    大神威武

    10#


    11#

    fdsfds

    12#

    4654651315

    13#

    kk谢谢分享

    14#

    一直学习,感谢老师无私分享

    15#

    谢谢!!!

    16#

    厉害了,我的壳

    17#

    123333333333333333333333

    18#

    12333333333333333333334

    19#

    111111

    20#

    支持支持支持

    发新话题 回复该主题