弱弱的问一句.怎么卸载大漠

注销大漠 右键单击目录下的"注册大漠插件到系统.bat"，选"编辑"

把 regsvr32 /u dm.dll 复制到里边，替换掉里边原本的东西，保存，退出。

运行 "注册大漠插件到系统.bat"

不用每次注册，注册是一次，不过要每个线程创建大漠对象（就是写上Set dm = createobject("dm.dmsoft")这句）。下面代码是按键精灵大漠插件注册，注册大漠最简单是4句，不过我不建议那样做，那样不可靠，我下面的代码虽然比较多，但是相对来说比较完整。在WinXP，Win7旗舰版，Win10专业版和企业版这几个 *** 作系统都试过，是可以注册成功的。

//大漠注册

Function Register_dm

Dim Ver, dm_Ver

dm_Ver = "3.1232"  '大漠版本

Register_dm = 1 '初始化注册返回值，0表示未注册成功，1表示注册成功。

'默认已注册

PutAttachment ".\", "dm.dll"

PutAttachment ".\plugin", "RegDll.dll"

Delay 200

Set dm = createobject("dm.dmsoft")

Ver = dm.Ver()

If Ver = "" Then   '如果没有注册大漠

Set ws=createobject("Wscript.Shell")

ws.run "regsvr32 atl.dll /s"

Set ws=nothing

Set dm = nothing

Call Plugin.RegDll.Reg(".\dm.dll")

Delay 300

Set dm = createobject("dm.dmsoft")

Ver = dm.Ver()

End If

If Ver <> dm_Ver Then '如果大漠版本不正确

PutAttachment ".\", "卸载大漠注册.bat" 

'附件添加这个卸载大漠注册bat文件。

Delay 200

RunApp ".\卸载大漠注册.bat"

Delay 200

Call Plugin.RegDll.Reg(".\dm.dll")

Delay 200

Set dm = createobject("dm.dmsoft")

Ver = dm.Ver()

If Ver <> dm_Ver Then 

Register_dm = 0 '注册失败，返回0

End If

End If

End Function

'调用方法：

IsReg = Register_dm

If IsReg = 1 Then 

MessageBox "大漠插件注册成功"

Else 

MessageBox "大漠插件注册失败，可能是电脑防火墙或者杀毒软件拦截，请关闭它们再重新打开小精灵。"

End If

附件文件制作：新建文本文档.txt，里面写上如下图内容：

保存，文件名改为“卸载大漠注册.bat”，然后添加到附件即可

---