按键精灵（大漠插件）识别屏幕上的文字

一、注册大漠插件

1）首先下载按键精灵，新建一个脚本。

2）下载大漠插件，如下为安装目录

3）将dm.all,RegDll.dll拖到附件中，注册大漠插件

123456789101112131415161718//释放“附件”中自己添加的文件到c:dm目录中，释放Regdll.dll到plugin目录中PutAttachment “c:dm”, “*.*”PutAttachment “.plugin”, “Regdll.dll”//调用regdll.dll,注册大漠插件Call Plugin.Regdll.reg(“c:dmdm.dll”)//创建一个大漠对象Set dm = createobject(“dm.dmsoft”)//检查是否创建成功ver = dm.ver()If len(ver) = 0 Then    MessageBox “插件注册失败,检查系统是否禁用了vbs脚本权限”    EndScriptElse    MessageBox “插件注册成功,当前使用的版本是:”&verEnd If

二、制作字库

打开大漠综合工具，如下图所示

1）点击抓图，截取要做成字库的文字

2）多点找色，通过选取截图上不同颜色的点，使二值化区域窗口能够成功显示目标文字

3）点击提取点阵（单个），使下方空白区域显示目标文字

4）点击提取点阵（多个），设置合适的行列间距，定义文字，回车，点击新建字库建立新的字库或者点击编辑字库修改已有字库。

5）点击按钮可以拷贝相应的代码。

三、文字识别

1）将上一步制作的字库拖入到附件中。

2）查找文字所在坐标的代码。

123456789101112131415161718//释放“附件”中自己添加的文件到c:dm目录中，释放Regdll.dll到plugin目录中PutAttachment “c:dm”, “*.*”PutAttachment “.plugin”, “Regdll.dll”//调用regdll.dll,注册大漠插件Call Plugin.Regdll.reg(“c:dmdm.dll”)//以下为第5步中通过点击FindStr拷贝的代码set dm = createobject(“dm.dmsoft”)base_path = dm.GetBasePath()dm_ret = dm.SetPath(base_path)dm_ret = dm.SetDict(0,”w4.txt”)  //设置字库dm_ret = dm.FindStr(668,738,689,763,”上”,”4f4f76-000000|4f4f4f-000000|d1974f-000000|b57676-000000|4f76b5-000000|764f4f-000000″,1.0,intX,intY)  //”上”为需要识别的文字//坐标,为-1表示没有找到TracePrint intXTracePrint intYTracePrint dm_ret

3）识别文字的代码

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950//释放“附件”中自己添加的文件到c:dm目录中，释放Regdll.dll到plugin目录中PutAttachment “c:dm”, “*.*”PutAttachment “.plugin”, “Regdll.dll”//调用regdll.dll,注册大漠插件Call Plugin.Regdll.reg(“c:dmdm.dll”)//创建一个大漠对象Set dm = createobject(“dm.dmsoft”)Call dm.SetPath(dm.GetBasePath())Call dm.SetDict(0, “w4.txt”) //设置0号字库Dim YanZhengMa// GetStr(), 第一个参数表示几号字库，2-5个参数表示识别范围，最后一个参数通过多点找色获得（可以通过第5步中点击FindStr拷贝）YanZhengMa = GetStr(0, 0, 0, Plugin.Sys.GetScRX , Plugin.Sys.GetScRY , “4f4f76-000000|4f4f4f-000000|d1974f-000000|b57676-000000|4f76b5-000000|764f4f-000000”)TracePrint “识别到的信息：” & YanZhengMaEndScriptFunction GetStr(dic, a, b, c, d, col)’范围获取所有字库可识别字符，返回信息看大漠说明    dm.UseDict dic’选择字库，当前为0号字库    Dim temp_txt, temp_number, temp    temp_txt = dm.GetWords(a, b, c, d, col, 1.0)’x|y|str   识别这个范围内所有满足条件的词组        TracePrint temp_txt        If temp_txt = “” Then         GetStr = temp_txt        Exit Function    End If    temp_number = dm.GetWordResultCount(temp_txt)    TracePrint temp_number        For i = 0 To temp_number – 1        dm_ret = dm.GetWordResultPos(temp_txt, i, intX, intY)’获得该数字确切坐标        If i = 0 Then             GetStr = dm.GetWordResultStr(temp_txt, i)        Else             GetStr = GetStr & “|” & dm.GetWordResultStr(temp_txt, i)        End If    Next    If GetStr vbNullString Then         dm.GetWordResultPos temp_txt, 0, intX, intY’获取第一段字符坐标    Else         intX = – 1  : intY = – 1     End IfEnd Function