狼哥大神，请教一个问题，我在论坛搜的大漠注册代码进行注册，调... [复制链接]

• //[把dm.dll和RegDll.dll放到附件]
  
• PutAttachment "C:\大漠", "dm.dll"'是否大漠插件到到"C:\大漠"文件夹内
  
• PutAttachment ".\Plugin" ,"RegDll.dll"'释放RegDll插件到按键精灵安装目录下的Plugin[即插件]文件夹内
  
• Call Plugin.RegDll.Reg("C:\大漠\dm.dll")'采用RegDll插件的Reg命令进行大漠插件注册
  
• Set dm = createobject("dm.dmsoft")'创建大漠对象
  
• TracePrint dm.Ver()'输出大漠版本号
  

need_ver = "3.1233"

// 插件需要用到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

TracePrint dm.Ver()

这是我用的大漠3.1233内的注册例子 也是不能用。请教狼哥帮我看看。