按键精灵插件工具大漠-大漠注册

// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
need_ver = "4.1336"
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
// 释放附件>>>>>>>>>>>>>>>>>>>
// 这里选择c盘的test _game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
PutAttachment "c:\test_game","*.*"
// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
PutAttachment ".\Plugin" ,"RegDll.dll"
// 插件注册开始>>>>>>>>>>>>>>>>>>>
// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
// 这里判断是否注册成功
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
// 先释放先前创建的dm
set dm = nothing
// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\test_game\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
// 插件注册结束<<<<<<<<<<<<<<<
// 收费注册开始,简单游作者也必须要加这一段. 不会重复扣费.
// ok,这里已经确认插件注册成功，并且创建了对象,下面开始注册收费服务.
// 当然这里也可以使用高级的RegEx函数.
dm_ret = dm.Reg("abcdefg","0001") // abcdefg是您的注册码. 在大漠插件网站后台可以直接获取.
if dm_ret <> 1 then
messagebox "注册失败,返回值是:"&dm_ret
endscript
end if
// 收费注册结束<<<<<<<<<<<<<<<<
//这里设置插件基本目录
dm.SetPath "c:\test_game"
// 获取句柄
hwnd = dm.GetMousePointWindow()
// 绑定
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
// 检测绑定返回值
if dm_ret = 0 then
last_error = dm.GetLastError()
// 如果是WIN7 WIN8 VISTA WIN2008系统,检测当前系统是否有开启UAC
if dm.GetOsType() = 3 or dm.GetOsType() = 4 or dm.GetOsType() = 5 then
// 有开启UAC的话，尝试关闭
if dm.CheckUAC() = 1 then
if dm.SetUAC(0) = 1 then
// 关闭UAC之后，必须重启系统才

可以生效
messagebox "已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统"
dm.ExitOs 2
Delay 2000
endscript
end if
end if
end if
// 具体错误码的含义，可以参考函数GetLastError的说明.
messagebox "绑定失败，错误码是:"&last_error
messagebox "如果确定关闭了UAC,很可能是系统的防火墙拦截插件，请暂时关闭360等安全防火墙再尝试"
endscript
end if
// 下面就是脚本部分了 省略
// 下面这是脚本结束时执行的部分
Sub OnScriptExit()
dm.UnBindWindow
set dm = nothing
End Sub
// 线程结束时调用
Sub OnThreadExit()
dm.UnBindWindow
set dm = nothing
End Sub
// 结束