按键精灵---大漠完美注册

大漠完美注册

//↓↓↓↓↓↓↓↓↓↓↓大漠相关参数设置↓↓↓↓↓↓↓↓↓↓↓↓↓//
//切记将大漠的regdll.dll插件放到按键精灵安装目录的文件夹plugin里面。
//切记将dm.dll放到附件里。
//最后一个免费版3.1233大漠，联系qq595126490或微信15006551163下载。
Const BasePath = "C:\Script\紫猫大漠"//设置大漠所在路径
const need_ver="3.1233"
//↑↑↑↑↑↑↑↑↑↑↑大漠相关参数设置↑↑↑↑↑↑↑↑↑↑↑↑↑//
Call RegDM()






//↓↓↓↓↓↓↓↓↓↓↓大漠常用函数↓↓↓↓↓↓↓↓↓↓↓↓↓//
Sub RegDM()
	Dim PathArr, i, FatherPath, ver, base_path
	PathArr = Split(BasePath, "\")
	For i = 0 To UBound(PathArr)
		If i = 0 Then 
			FatherPath = PathArr(0)
		Else 
			FatherPath = FatherPath & "\" & PathArr(i)
			Call Plugin.file.CreateFolder(FatherPath)
			Delay 1000
		End If
	Next
	PutAttachment BasePath, "*.*"//释放大漠到BasePath中
	
	Set ws = createobject("Wscript.Shell")//创建ws对象
	ws.run "regsvr32 atl.dll /s"
	
	Call Plugin.RegDll.Reg(BasePath & "\dm.dll")//使用RegDll插件注册大漠
	Set dm = createobject("dm.dmsoft")//创建大漠对象
	ver = dm.ver()//得到dm大漠对象的版本，假如系统未注册大漠，ver为空，假如系统注册了大漠,得到的ver为系统已经注册号的版本号
	If ver <> need_ver Then 
		If ver <> "" Then 
			base_path = dm.GetBasePath()
			Set dm = nothing
			ws.run "regsvr32 /u /s" & base_path & "dm.dll"
			Delay 1000
			ver = ""
			Set dm = createobject("dm.dmsoft")
			ver = dm.ver()
			If ver = "" Then 
				TracePrint "卸载大漠成功"
			Else 
				TracePrint "大漠卸载失败，当前大漠版本为：" & ver & ", 当前大漠所在路径为：" & dm.GetBasePath()
				ExitScript
			End If
		End If
		ws.run "regsvr32" & basepath & "dm.dll /s"
		Delay 1000
		ver = ""
		Set dm = createobject("dm.dmsoft")
		ver = dm.ver()
		If ver <> need_ver Then 
			TracePrint  "大漠注册失败，当前大漠版本为：" & ver & ", 当前大漠所在路径为：" & dm.GetBasePath()
			ExitScript
		End If
		
	End If
	Set ws = nothing
	TracePrint "大漠注册成功，当前大漠版本为："&ver&",当前大漠所在路径为："&dm.GetBasePath()
	dm_ret = dm.SetPath(BasePath)
	
	
End Sub