按键精灵里使用 大漠插件。提示缺少DM 对象是什么意思
答案:2 悬赏:60 手机版
解决时间 2021-01-22 23:10
- 提问者网友:
- 2021-01-22 08:53
按键精灵里使用 大漠插件。提示缺少DM 对象是什么意思
最佳答案
- 五星知识达人网友:轻熟杀无赦
- 2021-01-22 09:53
在使用大漠之前,先注册大漠,这里我以插件版本3.1233为例(如果是其他版本你自己修改),代码如下:
Call Register_dm
Sub Register_dm
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws=nothing
PutAttachment ".", "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg(".\dm.dll")
Delay 200
Set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> "3.1233" then
Set dm = nothing
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 .\dm.dll /s"
Set ws=nothing
Delay 1000
Set dm = createobject("dm.dmsoft")
Delay 200
ver = dm.Ver()
If ver <> "3.1233" then
MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath() & Chr(10) & "请关闭程序,重新打开本程序再尝试"
End if
End If
End Sub
大漠注册成功后,如果你开启线程,在线程里面前还要加一句Set dm = createobject("dm.dmsoft")
创建大漠对象,这样,你的问题就解决了。
Call Register_dm
Sub Register_dm
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws=nothing
PutAttachment ".", "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg(".\dm.dll")
Delay 200
Set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> "3.1233" then
Set dm = nothing
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 .\dm.dll /s"
Set ws=nothing
Delay 1000
Set dm = createobject("dm.dmsoft")
Delay 200
ver = dm.Ver()
If ver <> "3.1233" then
MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath() & Chr(10) & "请关闭程序,重新打开本程序再尝试"
End if
End If
End Sub
大漠注册成功后,如果你开启线程,在线程里面前还要加一句Set dm = createobject("dm.dmsoft")
创建大漠对象,这样,你的问题就解决了。
全部回答
- 1楼网友:像个废品
- 2021-01-22 10:41
大漠插件注册失败,重新注册。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
正方形一边上任一点到这个正方形两条对角线的 |
阴历怎么看 ? |