|
发表于 2018-1-10 23:01:28
|
显示全部楼层
功能 注册大漠插件(&对象)
变量 电脑版本,大漠路径,插件免注册,ws,注册码,大漠插件版本号,Ret,控制开关 = 真
Ret = 是否注册("xx.xxx")
如果(Ret == 假)
电脑版本 = 系统获取版本号()
调试输出("[注册大漠插件] 系统版本: " & 电脑版本)
//Win8系统
如果(电脑版本 == 7 || 电脑版本 == 8 || 电脑版本 == 9 || 电脑版本 == 10)
//采用正常的注册方式
Ret = 注册插件(获取资源路径("rc:定制版.dll"),真)
调试输出("[注册大漠插件] 注册插件 Ret: " & Ret)
如果(Ret == 假)
调试输出("[注册大漠插件] 注册失败!")
控制开关 = 假
否则
如果(Ret = 真)
调试输出("[注册大漠插件] 注册成功!")
结束
结束
否则
//采用免注册
大漠路径 = 获取资源路径("rc:定制版.dll")
插件免注册 = 获取资源路径("rc:免注册.dll")
//解决xp系统Ghost版 atl.dll 被精简掉的问题
ws = com("Wscript.shell")
ws.run("regsvr32 atl.dll /s")
Ret = dllcall(插件免注册, "int", "SetDllPathA", "char *", 大漠路径, "int", 0)
如果(Ret == 1)
调试输出("[注册大漠插件] 免注册大漠插件成功")
否则
调试输出("[注册大漠插件] 免注册大漠插件失败")
控制开关 = 假
结束
结束
结束
如果(控制开关)
//这是公共对象
对象 = 插件("xx.xxx")
大漠插件版本号 = 对象.Ver()
调试输出("[注册大漠插件] 当前大漠插件版本号: " & 大漠插件版本号)
//开始注册收费功能
注册码 = 读取注册码("xxxxxxx")
Ret = 对象.Reg(注册码,"0001")
如果(Ret == 1)
调试输出("[注册大漠插件] 注册收费功能成功")
否则
调试输出("[注册大漠插件] 注册收费功能失败")
结束
结束
结束
//----------------------------读取注册码-------------------------//
功能 读取注册码(密码)
变量 内容,注册码
//读取资源内的文本文档
内容 = 文件读指定行(获取资源路径("rc:注册码.txt"),0)
如果(内容 != "")
注册码 = aes解密(内容,密码)
结束
返回 注册码
结束 |
|