|
发表于 2017-2-13 15:16:19
|
显示全部楼层
江西省南昌市
.版本 2
.DLL命令 免注册, , "dmreg.dll", "SetDllPathA"
.参数 插件路径, 文本型
.参数 mode, 整数型
.版本 2
.支持库 spec
.子程序 注册大漠, 逻辑型, 公开
.参数 参数_大漠, 中文大漠
.参数 参数_全局路径, 文本型
.参数 参数_收费注册, 文本型, 可空, 为注册码 可空 空默认不注册收费版
.参数 参数_附加信息, 文本型, 可空
.如果真 (文件是否存在 (取运行目录 () + “\dm.dll”) = 假)
写到文件 (取运行目录 () + “\dmreg.dll”, #免注册)
写到文件 (取运行目录 () + “\dm.dll”, #大漠)
.如果真结束
.如果真 (参数_大漠.取插件版本 () ≠ #插件版本)
免注册 (取运行目录 () + “\dm.dll”, 0)
参数_大漠.创建 ()
.如果真结束
.如果真 (参数_大漠.取插件版本 () ≠ #插件版本)
信息框 (“注册失败请关闭杀软检查版本号和插件路径是否正确!!!”, #警告图标, “温馨提示”, )
调试输出 (参数_大漠.取插件版本 ())
返回 (假)
.如果真结束
.如果真 (是否为空 (参数_收费注册) = 假)
参数_大漠.收费注册 (参数_收费注册, 参数_附加信息)
.如果真结束
参数_大漠.置全局路径 (参数_全局路径)
返回 (真) |
|