按键精灵大漠找字如何使用 100
因为新人刚开始学这个没找到合适的视频请大神说下找字的步骤吧详细点从头开始先是按键精灵添加附件然后注册大漠插件到按键精灵里PutAttachment"D:\软件\大漠插件"...
因为新人刚开始学这个没找到合适的视频
请大神说下找字的步骤吧详细点从头开始
先是按键精灵添加附件然后注册大漠插件到按键精灵里
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)
请问哪里错了 怎么找到 "第十七组词" 后点击呢 展开
请大神说下找字的步骤吧详细点从头开始
先是按键精灵添加附件然后注册大漠插件到按键精灵里
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)
请问哪里错了 怎么找到 "第十七组词" 后点击呢 展开
2个回答
展开全部
晕·楼上回答的跟本和题目无关嘛·如果是用大漠找字双击的话可以用下边这句:
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
前题是你要注册过大漠插件·不过你上边的程序能弹出找到的字,应该是已经正确注册过大漠了。
是否可以解决您的问题?
追问
哥们能远程看看不
展开全部
//创建大漠对象
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询