因为新人刚开始学这个没找到合适的视频
请大神说下找字的步骤吧详细点从头开始
先是按键精灵添加附件然后注册大漠插件到按键精灵里
PutAttachment "D:\软件\大漠插件", "dm.dll"
PutAttachment "D:\软件\大漠插件", "RegDll.dll"
Plugin.RegDll.Reg "D:\软件\大漠插件\dm.dll" '注册大漠插件，参数为大漠插件所在的位置
set dm = createobject("dm.dmsoft")'创建大漠对象
然后呢
我的字库是在 D:\软件\大漠插件\XP.txt
要找的字是 "第十七组词"
dm.SetPath "D:\软件\大漠插件"
dm_ret = dn.SetDict(0, "0.txt")
dm_ret = dn.SetDict(0, "字库XP.txt")
dm_ret = dm.UseDict(0)
ss = dm.Ocr(0,0,2000,2000,"FFFFFF-000000",1.0)
dm_ret = dm.UseDict(0)
s = dm.Ocr(0,0,2000,2000,"9f2e3f-000000",1.0)
请问哪里错了 怎么找到 "第十七组词" 后点击呢
晕·楼上回答的跟本和题目无关嘛·如果是用大漠找字双击的话可以用下边这句：
dm.FindStr(0, 0, 0, 0, “你要找的字", "000000-000000", 1.0, intX, intY)
你的程序可以这样改：
Set dm = createobject("dm.dmsoft")
TracePrint dm.Ver()
dm.setPath "E:\bmp"
dm.setDict 0,"dm_soft.txt"
hp = dm.Ocr(50, 607, 77, 627, "ffffff-000000", 1.0)
//====================================加的下边的
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
call dm.FindStr(50, 607, 77, 627, hp, "ffffff-000000", 1.0, intX, intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY //这里找到的坐标的字的左上角，你可以加偏移量比如intX+5,intY+5
LeftDoubleClick 1
End If
前题是你要注册过大漠插件·不过你上边的程序能弹出找到的字，应该是已经正确注册过大漠了。
是否可以解决您的问题？追问
dm.FindStr(0, 0, 0, 0, “你要找的字", "000000-000000", 1.0, intX, intY)
你的程序可以这样改：
Set dm = createobject("dm.dmsoft")
TracePrint dm.Ver()
dm.setPath "E:\bmp"
dm.setDict 0,"dm_soft.txt"
hp = dm.Ocr(50, 607, 77, 627, "ffffff-000000", 1.0)
//====================================加的下边的
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
call dm.FindStr(50, 607, 77, 627, hp, "ffffff-000000", 1.0, intX, intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY //这里找到的坐标的字的左上角，你可以加偏移量比如intX+5,intY+5
LeftDoubleClick 1
End If
前题是你要注册过大漠插件·不过你上边的程序能弹出找到的字，应该是已经正确注册过大漠了。
是否可以解决您的问题？追问
哥们能远程看看不
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-07-31
//创建大漠对象
Set dm = createobject("dm.dmsoft")
//设置全局路径
kk = dm.setpath("D:\软件\大漠插件")
//设置字库
ll = dm.SetDict(0, "字库XP.txt")
ss = dm.FindStr(0,0,2000,2000,"第十七组词","FFFFFF-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY
End If
Set dm = createobject("dm.dmsoft")
//设置全局路径
kk = dm.setpath("D:\软件\大漠插件")
//设置字库
ll = dm.SetDict(0, "字库XP.txt")
ss = dm.FindStr(0,0,2000,2000,"第十七组词","FFFFFF-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY
End If
