调用：
功能 初始化()
//------第一步:初始化注册插件
// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
// 这个 插件版本 作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
插件版本 = "3.1233"
dm=大漠多开单停.注册大漠插件(辅助.获取资源路径("rc:"),插件版本)
ver = dm.Ver()
调试输出(ver)
功能结束
源码：
//一个标准的注册大漠插件的例子
功能 注册大漠插件(插件路径,插件版本)
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
//ws=com("Wscript.Shell")
//ws.run("regsvr32 atl.dll /s")
//ws=null
//上面的代码在TC里面调用貌似没什么反应 所以我们更改为下面代码
辅助.命令("regsvr32 atl.dll /s",false)
// 插件注册开始>>>>>>>>>>>>>>>>>>>
// 下面开始注册插件,先尝试用TC来注册.这里注意请勿把dm.dll释放在系统目录.以免造成版本错误.
辅助.注册插件(插件路径&"dm.dll",真)
// 这里判断是否注册成功
dm=com("dm.dmsoft")
如果(类型.获得类型(dm)!="插件")
dm = null
//如果上面的方法注册失败那么使用下面的方法进行注册
//再尝试用regsvr32 来注册. 这里注意请勿把dm.dll释放在系统目录.以免造成版本错误.
//ws=com("Wscript.Shell")
//ws.run("regsvr32 "&插件路径&"dm.dll /s")
//ws=null
//同样的 上面的代码木有反应我们改成下面的代码进行注册
是否成功=辅助.命令("regsvr32 "&插件路径&"dm.dll",false)
辅助.等待(500)
辅助.命令("taskkill /f /im regsvr32.exe",false)//注册成功后会弹出一个对话框,为了不影响后面的操作 我们直接调用命令结束掉这个对话框
如果结束
// 再判断插件是否注册成功
dm=com("dm.dmsoft")
如果(类型.获得类型(dm)=="插件")
ver = dm.Ver()
如果(ver != 插件版本)
//这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
辅助.消息框("插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()&"\n请关闭程序,重新打开本程序再尝试")
辅助.退出()
否则
//注册成功 并且版本 匹配 返回大漠插件对象
返回 dm
如果结束
否则
辅助.消息框("插件注册失败,重新打开本程序再尝试")
辅助.退出()
如果结束
功能结束 |
[复制链接]
/2 
发表于 2015-2-10 17:22:27
