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 100
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 300
Set dm = createobject("dm.dmsoft")
Delay 100
ver = dm.Ver()
If ver <>"3.1233" then
Verify = 60
//下面这两行是一句,按键精灵里面写成一行。
MessageBox "插件版本错误,当前使用的版本是:" &ver &",插件所在目录是:" & dm.GetBasePath() &Chr(10) &"请关闭程序,重新打开本程序再尝试"
End if
End If
End Sub
创建大漠对象,就是一句话,就是这句:Set dm = createobject("dm.dmsoft")
之后就可以用大漠插件里面的函数了,如果是线程,必须每个线程创建一个大漠。这句话的意思是,在线程里面,每个线程都要在前面写一句 Set dm = createobject("dm.dmsoft")
至于后台,那就是绑定,大漠帮助文件里面有一个后台设置的内容,你看那里有详细讲,至于后台用哪种方式比较好,效果行不行,这就不确定了,这要你自己测试才知道(有时候,大漠那么多模式都不合适的),要是这样,你就想其他办法咯。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)