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

一、注册大漠插件

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

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

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

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

二、制作字库

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

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

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

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

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

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

三、文字识别

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

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

//释放“附件”中自己添加的文件到c:\dm目录中，释放Regdll.dll到plugin目录中
PutAttachment "c:\dm", "*.*"
PutAttachment ".\plugin", "Regdll.dll"//调用regdll.dll,注册大漠插件
Call Plugin.Regdll.reg("c:\dm\dm.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 intX
TracePrint intY
TracePrint dm_ret

3）识别文字的代码

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