第一步,在附件中添加大漠插件文件夹中的dm.dll和RegDll.dll文件。
第二步,复制以下代码注册并绑定窗口,D:/path是大漠插件文件夹,可以修改自定义其他目录。
Sub 窗口绑定() Call 注册大漠() Call 窗口绑定() Call 发布流程() Sub 发布流程() //这里放你的代码 End Sub Sub 窗口绑定() hwnd = dm.GetMousePointWindow() TracePrint hwnd dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0) Delay 1000 End Sub Sub 注册大漠() need_ver = "3.1233" set ws=createobject("Wscript.Shell") ws.run "regsvr32 atl.dll /s" set ws=nothing PutAttachment "D:\path","*.*" PutAttachment ".\Plugin" ,"RegDll.dll" Call Plugin.RegDll.Reg("D:\path\dm.dll") set dm = createobject("dm.dmsoft") ver = dm.Ver() if ver <> need_ver then set dm = nothing set ws=createobject("Wscript.Shell") ws.run "regsvr32 D:\path\dm.dll /s" set ws=nothing Delay 1500 set dm = createobject("dm.dmsoft") ver = dm.Ver() if ver <> need_ver then messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath() messagebox "请关闭程序,重新打开本程序再尝试" endscript end if End If If ver = need_ver Then TracePrint "恭喜你注册成功!插件所在目录是:"&dm.GetBasePath() End If dm.SetPath "D:\path" Delay 500 End Sub Sub OnScriptExit()  %3
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。