大漠模块提取类,免注册6.0插件

易语言 2020-07-04 13:51:48

.子程序 初始化_高级_Mac, 整数型, 公开, 调用此函数来注册,从而使用插件的高级功能, 可以根据指定的IP列表来注册, 新手不建议使用; 返回信息:0、失败 (未知错误);1、成功;2、你的机器或者IP在黑名单列表中或者不在白名单列表中;3、你的插件版本不符;4、无法连接网络;5、进程没有以管理员方式运行;6、附加信息长度超过了10;7、附加信息里包含了非法字母;8、大漠插件未找到;
.参数 参_DLL文件名, 文本型, , 大漠dll文件地址,如果dll在程序运行目录,提供名称即可,否则提供全路径。
.参数 参_大漠版本, 文本型, , 当前使用的大漠插件版本
.参数 参_免注册, 逻辑型, 可空, 是否注册大漠插件到系统,可空 默认 真、免注册;假、注册,只支持3.1235以后版本
.参数 参_注册码, 文本型, 可空, 你注册的大漠后台注册码;可空 如为空,既不注册大漠收费功能。
.参数 参_附加信息, 文本型, 可空, 大漠后台查看识别软件的附加信息,可以为空
.参数 参_IP串, 文本型, 可空, 注册码为空时可为空;插件注册的ip地址,可以用|来组合,依次对ip中的地址进行注册,直到成功,
.参数 参_对象类型, 文本型, 可空, 默认“dm.dmsoft” 大漠插件修改后的对象类型,针对4.1318版
.局部变量 返回值, 整数型
.局部变量 局_免注册插件, 文本型

.如果真 (是否为空 (参_对象类型))
参_对象类型 = “dm.dmsoft”
.如果真结束
.如果真 (取反 (文件是否存在 (取运行目录 () + “\” + 参_DLL文件名)))
参_DLL文件名 = 取运行目录 () + “\” + 参_DLL文件名
.如果真结束
.判断开始 (取反 (文件是否存在 (参_DLL文件名)))
返回 (8)
.判断 (是否为空 (参_免注册) = 真 或 参_免注册 = 真)
运行 (“regsvr32 /u /s ” + 参_DLL文件名, 假, )
局_免注册插件 = 取文本左边 (参_DLL文件名, 倒找文本 (参_DLL文件名, “\”, , 假))
置DLL装载目录 (局_免注册插件)
.如果真 (取反 (文件是否存在 (局_免注册插件 + “Reg.dll”)))
写到文件 (局_免注册插件 + “Reg.dll”, #免注册dll)
.如果真结束
大漠免注册 (参_DLL文件名, 1)
.默认
运行 (“regsvr32 /s atl.dll”, 真, 1)
运行 (“regsvr32 /s ” + 参_DLL文件名, 真, 1)
.判断结束
.判断开始 (初始化对象.创建 (参_对象类型, ))