【刀塔传奇】分享这两天研究成果 & OCR数字识别demo 源码，欢迎拍砖 _ 按键精灵手机版 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 10826|回复: 4
[源码分享]
先分享成果：====================你是否还在为宝藏没来得及领取，而被大量抢走遗憾？你是否当你远征掉了梦寐以求的英雄，为了迫切排英雄上战场，但是却为技能点却不够点，为此而闹心“？你是否还沉陷在每日消耗大量时间在：刷英雄试炼、时光之穴等任务上？你是否。。。。也许你还有更多的烦恼，但是因为你如此深深的爱上刀塔传奇，让自己在JJC中一展雄风，看着自己心爱的英雄成长而割舍不下刀塔传奇？此时此刻，我想你应该非常盼望：**一个”小二“傻傻的秘书，帮你安排一些日常任务，让你更多的精力去享受游戏中的最大乐趣！！是的！！刀塔传奇小二，就是这个”傻傻的秘书“。==============================================================================================“刀塔传奇小二”致力于打造最安全的刀塔传奇辅助工具，让游戏者更快乐于游戏本身，并且坚决抵制一切破坏游戏平衡的“**”。本辅助工具有以下特点：1、非**！本软件，基于为了保护用户的利益，防止被官方判断**封号，因此采用了完全模拟用户操作，而非进行数据侵入或对游戏进行篡改；因此根据中国人名共和国法律，游戏辅助不算**。2、功能多！支持功能有：1、宝藏自动智能掠夺2、挖矿3、自动升级技能4、自动刷英魂石5、公会任务：膜拜、佣兵、副本6、签到7、点金手8、JJC9、任务奖励领取10、活动奖励11、召唤法师12、商店13、地精商人14、黑市老大15、。。。16、最后，还提供了“自动刷副本”功能。3、无人值守！本软件可以无人值守自动执行您设置的任务。由于软件是侵入式“**”应用，所以在使用上需要特殊注意几个限制：1、本软件需要root权限2、请注意手机需要正反（否则可能会出错）：home建在右手边3、启动软件前，进入刀塔传奇游戏主界面4、最好关闭：短信弹窗提示，否则可能造成误操作。下载二维码：(19.29 K) 0:10:50软件截图：(113.27 K) 0:11:07(121.05 K) 0:11:14(127.06 K) 0:11:20申明：A）效果经使用人反馈，每天至少节约1小时B）软件只是模拟用户操作，帮你做日常任务C）按键精灵实现，无法读取用户数据，安全可靠，可病毒扫描检测=============================================最后分享，OCR数字识别的源码：//////////////////////图像数字识别///////////////////////////////////////
//识别数字
//使用方法：recoNum(174,307,34,70)
//返回值：-1 失败，其它成功
Function recoNum(point_x, pint_y, x_length, y_length)
KeepCapture
&&&&Dim res= threshold2(capture2gray(point_x,pint_y,x_length,y_length)),num=0,digit=0
&&&&printArray(res)
&&&&res = cut(res)
&&&&For Each temp In res
&&&&&&&&digit = recoOneDigit(temp)
&&&&&&&&If digit = -1 Then
&&&&&&&&&&&&recoNum = -1
&&&&&&&&&&&&Exit Function
&&&&&&&&End If
&&&&&&&&num = num *10+digit
&&&&recoNum = num
End Function
//识别单个数字
//输入：二值化数组
Function recoOneDigit(arr)
&&&&Dim templete=array(_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(0,1,1,1,0,1,1,0),array(1,1,1,0,0,0,1,1),array(1,1,0,0,0,0,1,1),array(1,1,0,0,0,0,1,1),array(1,1,0,0,0,0,1,1),array(0,1,1,0,0,1,1,1),array(0,1,1,1,1,1,1,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,0,0,1,1,1,1),array(1,1,1,1,1,1,1,1),array(0,0,0,1,1,1,1,1),array(0,0,0,1,1,1,1,1),array(0,0,0,1,1,1,1,1),array(0,0,0,1,1,1,1,1),array(0,0,0,1,1,1,1,1),array(0,0,0,1,1,1,1,1)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(1,1,0,0,0,1,1,0),array(1,0,0,0,0,1,1,1),array(0,0,0,0,1,1,1,0),array(0,0,0,0,1,1,0,0),array(0,0,0,1,0,0,0,0),array(0,1,1,0,0,0,0,0),array(1,1,1,1,1,1,1,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(0,1,1,0,0,0,1,0),array(0,0,0,0,0,0,1,0),array(0,0,0,1,1,1,1,0),array(0,0,0,1,1,1,1,0),array(0,0,0,0,0,0,1,1),array(1,1,0,0,0,0,1,1),array(0,1,1,1,1,1,1,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,0,0,0,1,0,0),array(0,0,0,0,1,1,0,0),array(0,0,1,1,1,1,0,0),array(0,0,1,0,0,1,0,0),array(0,1,0,0,0,1,0,0),array(1,1,0,0,1,1,0,0),array(0,0,0,0,1,1,0,0),array(0,0,0,0,0,1,0,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,1,1,1,1,1,1,0),array(1,1,0,0,0,0,0,0),array(1,1,0,0,0,0,0,0),array(1,1,1,1,1,1,1,0),array(1,1,0,0,0,1,1,1),array(0,0,0,0,0,0,1,1),array(1,1,0,0,0,1,1,1),array(1,1,1,1,1,1,1,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(0,1,1,0,0,0,1,1),array(0,1,0,0,0,0,0,0),array(1,1,1,1,1,1,1,0),array(1,1,0,0,0,0,1,0),array(1,1,0,0,0,0,1,1),array(0,1,0,0,0,0,1,1),array(0,0,1,1,1,1,1,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,1,1,1,1,1,1,1),array(0,0,0,0,0,1,1,1),array(0,0,0,0,1,1,0,0),array(0,0,0,0,1,0,0,0),array(0,0,0,0,1,0,0,0),array(0,0,0,1,0,0,0,0),array(0,0,0,1,0,0,0,0),array(0,0,0,1,0,0,0,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(0,1,0,0,0,1,1,0),array(0,1,0,0,0,0,1,0),array(0,0,1,1,1,1,0,0),array(0,1,1,1,1,1,0,0),array(1,1,0,0,0,0,1,0),array(1,1,0,0,0,0,1,0),array(0,1,1,1,1,1,0,0)),_
&&&&&&&&&&&&&&&&&&&&&&&&array(array(0,0,1,1,1,1,0,0),array(0,1,1,0,0,0,1,0),array(1,1,0,0,0,0,1,1),array(0,1,0,0,0,0,1,1),array(0,1,1,0,0,1,1,1),array(0,0,1,1,1,1,1,1),array(0,0,0,0,0,0,1,0),array(0,1,1,1,1,1,1,0))_
&&&&&&&&&&&&&&&&
&&&&Dim res= 0 ,digit = 0,i=0
&&&&For Each temp In templete
&&&&&&&&dim t = computeSimilar(temp,zoom(arr,8,8),8,8)
&&&&&&&&If t > res Then
&&&&&&&&&&&&res = t
&&&&&&&&&&&&digit = i
&&&&&&&&End If
&&&&&&&&i =i+1
&&&&If res < 0.65 Then
&&&&&&&&digit = -1
&&&&End If
//&&&&打印 res,digit
&&&&recoOneDigit = digit
End Function
Function myfloor(data)
&&&&Dim i= int(data)
&&&&If (data - i) >= 0.5 Then
&&&&&&&&i = i +1
&&&&End If
&&&&myfloor = i
End Function
Function zoom(arr, max_x, max_y)
zoom = array()
Dim arr_x=arrayLength(arr),arr_y=arrayLength(arr(0)),i,j,res=array()
&&&&Dim src_i=0,src_j=0
For i = 0 To max_x-1 Step 1
Dim temp = array()
&&&&For j = 0 To max_y-1 Step 1
&&&&&&&&src_i = myfloor((i * arr_x) / max_x)
&&&&&&&&src_j = myfloor((j * arr_y) / max_y)
&&&&&&&&If src_i >= arr_x or src_j >= arr_y Then
&&&&&&&&&&&&temp(j) = 0
&&&&&&&&Else
temp(j) = arr(src_i,src_j)
&&&&&&&&End If
&&&&res(i) = temp
zoom = res
End Function
//快照抓换到数组中
Function capture2array(point_x, pint_y, x_length, y_length)
Dim result = array(),i,j
For i = 0 To x_length Step 1
Dim tmp = array()
&&&&For j = 0 To y_length Step 1
&&&&&&&&tmp(j) = GetPixelColor(i+point_x, j+pint_y)
&&&&result(i)=tmp
&&&&capture2array = result
End Function
//快照灰度化后，转换到数组中
Function capture2gray(point_x,pint_y,x_length,y_length)
Dim result = array(),i,j
For i = 0 To x_length Step 1
Dim tmp = array()
&&&&For j = 0 To y_length Step 1
&&&&&&&&tmp(j) = color2gray(GetPixelColor(i+point_x, j+pint_y))
&&&&result(x_length-i)=tmp
&&&&capture2gray = result
End Function
//彩色=》灰度
Function color2gray(color)
Dim R=0,G=0,B=0
ColorToRGB color, R, G, B
&&&& color2gray = (R * 299 + G * 587 + B * 114 + 500) / 1000
End Function
//灰度二值化
Function threshold(grayArray)
&&&&Dim result = array(),i=0,j=0
&&&&For Each tmp In grayArray
Dim neibu = array()
&&&&For Each tmp2 In tmp
&&&&&&&&If tmp2 > 127 Then
&&&&&&&&&&&&neibu(j) = 1
&&&&&&&&Else
&&&&&&&&&&&&neibu(j) = 0
&&&&&&&&End If
&&&&&&&&j=j+1
&&&&result(i)=neibu
threshold=result
End Function
//自适应的灰度二值化
Function threshold2(grayArray)
&&&&Dim res= array(),i=0,j=0
dim tmpArray = threshold(grayArray)
dim sum = countSum(tmpArray)
Dim max_x= arrayLength(grayArray),max_y=arrayLength(grayArray(0))
打印 sum&" "&(max_x * max_y)
If (sum / (max_x * max_y)) > 0.5 Then
&&&&For Each tmp In tmpArray
&&&&&&&&For Each tmp2 In tmp
&&&&&&&&&&&&tmpArray(i, j) = 1 - tmp2
&&&&&&&&&&&&j = j +1
&&&&&&&&Next
&&&&&&&&i = i +1
threshold2 = tmpArray
End Function
//计算数组长度
Function arrayLength(arr)
&&&&Dim length=0,t
&&&&For Each t In arr
&&&&&&&&length = length+1
&&&&arrayLength = length
End Function
//数组截取
Function subArray(arr, x, y, x_length, y_length)
&&&&Dim result = array(),i=0,j=0
&&&&For i = x To x+x_length-1 Step 1
Dim temp = array()
&&&&&&&&For j = y To y+y_length-1 Step 1
&&&&&&&&&&&&temp(j - y ) = arr(i,j)
&&&&&&&&Next
&&&&&&&&result(i-x) = temp
&&&&subArray = result
End Function
//垂直切割
Function hcut(bitArray)
&&&&Dim hcount = array(),result = array(),j=0,i=0,count=0
&&&&Dim max_x = arrayLength(bitArray)
&&&&Dim max_y = arrayLength(bitArray(0))
&&&&For j = 0 To max_y-1 Step 1
&&&&&&&&For i = 0 To max_x-1 Step 1
sum = sum + bitArray(i, j)
&&&&&&&&Next
&&&&&&&&hcount(j) = sum
//&&&&&&&&打印 sum
&&&&Dim temp =0,last = 0,last_j=0
&&&&For Each temp In hcount
If temp > 0 Then
&&&&temp = 1
这种贴要就别发了，代码故意搞个不完整，在论坛赚点人气王自己脸上贴金而已，PS
跪求这个数字识别的源码
最后缺一段啊最后缺一段啊最后缺一段啊最后缺一段啊最后缺一段啊最后缺一段啊
闽网文 (-037号关于从图片上识别数字的问题
[问题点数：20分]
本版专家分：0
CSDN今日推荐
本版专家分：0
本版专家分：0
本版专家分：0
本版专家分：0
匿名用户不能发表回复！|
CSDN今日推荐用大漠ocr找字结果显示为
实际数字是，25.18.08.47请问用什么方法分割出来【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：403,647贴子：
用大漠ocr找字结果显示为
实际数字是，2收藏
用大漠ocr找字结果显示为
实际数字是，25.18.08.47请问用什么方法分割出来，然后对比四组数字的大小，提取最大的一个数。字库是没有问题的单点阵。有好心人求发个源码，感谢?。 其实这些我之前都是会的，8 9年没碰过按键忘光光连怎么定义都模糊，呵呵?勿喷感谢万分。
全自动挂机app引流脚本工作室,别人主动来加你好友,新一代微商软件,精准男粉女粉流量,多款微商app引流脚本软件工作室,可任意定位加附近的人
吧点也加进字库，用点分割，
模糊度为1精准识别，把点加进字库，如果为0.9容易把其他也识别成点，具体情况还看有没有偏色等因素
登录百度帐号读取不到界面 null _ 按键精灵手机版 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 1459|回复: 7
界面1:{&&&&多选框:&&&&{&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,&&&&&&&&名称:&x&,&&&&&&&&提示内容:&提示用户的文字内容&,&&&&&&&&选中:false,&&&&&&&&文字大小:0,&&&&&&&&高度:0,&&&&&&&&宽度:0&&&&},&&&&&&&&多选框:&&&&{&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,&&&&&&&&名称:&y&,&&&&&&&&提示内容:&提示用户的文字内容&,&&&&&&&&选中:true,&&&&&&&&文字大小:0,&&&&&&&&高度:0,&&&&&&&&宽度:0&&&&},&&&&}Dim a, ba = ReadUIConfig(&x&)TracePrint ab = ReadUIConfig(&y&)TracePrint b您的脚本在运行过程中产生如下信息：当前脚本第330行：null当前脚本第332行：null脚本运行结束换来换去都是null， 少了什么吗？
Dim a, ba = ReadUIConfig(&x&)TracePrint &a&b = ReadUIConfig(&y&)TracePrint &b&
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
您好 , 界面设置 好后必须保存
回复 有啊，我先保存后调试，而且我发现一个问题，兄弟工程师13的ui界面视频里，他更改了代码后按预览，模拟器直接显示出了结果我的却不能，我必须在模拟器里的按键精灵按一下左上方箭头回去上一页到我的脚本页面，然后再电脑版按预览才能显示我新更改的代码，预览了有更改又必须手动回去上一页才能按预览，不回去上一页按预览没反应。
你得做成小精灵后界面输入的信息才有用,直接用脚本调试是没有用的
剑侠勋章剑侠世界公测活动勋章按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
Dim a, ba = ReadUIConfig(&x&,&&)TracePrint ab = ReadUIConfig(&y&,&&)TracePrint b
按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com
保存，不是保存代码，而是在界面上点预览，预览之后手机或者模拟器上会有手机版按键精灵的界面弹出来，跟你设计的界面同步的，然后你在手机预览的界面下方点保存，之后再在电脑上调试就有结果了。
承接各类网页、办公、网游、鼠键脚本制作。接单QQ：
seiphitina
回复 请问你这个问题解决了没？我也碰到这个问题，纠结2天了，一直解决不了
闽网文 (-037号用OCR找到字后，怎么判断然后执行、求答案可红包 _ 按键精灵手机版 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 589|回复: 5
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
找到字后为1，怎么去判断然后执行其它语句？判断语句怎么写。racePrint SetDictEx(0, &Attachment:s1.txt&)//设置附件中的s1.txt文档为1号字库TracePrint UseDict(0)//使用1号字库文件，之后的找字、识别都在这个文件点阵中匹配Dim 识别文字识别文字 = Ocr(0,0,0,0,&9f2e3f-d3f2f-f9e4d-.9)Traceprint 识别文字======================IF
中间这里怎么写
THENEND IF
黄金之翼黄金之翼勋章骨灰级按键用户3年以上的按键论坛用户按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com
回复 按键认证3级不会判断语句
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
回复 我的意思是，找到结果为1.怎么判断找到独立的数字“”就是“”1，而没有包含其它数字。数字是变化的。我要的是 在范围内只有1.有其它数字，则不执行。识别数字 = Ocr(0,0,0,0,&9f2e3f-d3f2f-f9e4d-.9)怎么判断 识别数字
就是找到的字，
HACKHY110 最后编辑于
黄金之翼黄金之翼勋章骨灰级按键用户3年以上的按键论坛用户按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com
回复 把会出现的数字都加入字库识别
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
SetRowsNumber(0)
//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中
TracePrint SetDictEx(0, &Attachment:1.txt&)
TracePrint UseDict(0)
//以上两句脚本只需要调用一次
数字=Ocr(448,954,481,1041,&ADBAC0-CFD6-C1C8-.9)
Traceprint 数字
If 数字 = 2000 Then
TracePrint &找到2000&
Tap 460, 980
TracePrint &没找到2000&
End If显示找到了，但是判断不是2000都加了，。这个只是测试
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
您好 , 请 认真看 命令说明 . Ocr 的返回值 是
字符串类型 所以 只有 可能
数字 = &2000&
永远不可能
数字 = 2000
闽网文 (-037号}