//正常方式注册大漠插件,实际上是注册到了系统内部
功能 注册大漠插件(&对象,插件类型="免费")
变量 版本,返回值,注册码
如果(注册插件("rc:dm.dll",真))
调试输出("大漠插件注册成功")
//创建大漠对象
对象 = com("dm.dmsoft")
//输出版本号
版本 = 对象.Ver()
调试输出("当前大漠版本: " & 版本)
//注册收费功能
//注册码 = 解密(注册码,"jkl")
如果(插件类型 == "收费")
注册码 = 读取注册码("jkl")
返回值 = 对象.Reg(注册码,"0001")
如果(返回值 == 1)
调试输出("大漠收费功能注册成功")
否则
调试输出("大漠收费功能注册失败")
结束
结束
否则
调试输出("大漠插件注册失败")
结束
结束
功能 免注册大漠插件(&对象)
变量 路径,返回值,版本,注册码
//获取大漠插件所在的路径
路径 = 获取资源路径("rc:dm.dll")
返回值 = dllcall(获取资源路径("rc:DmReg.dll"),"int","SetDllPathA","char *",路径,"int",0)
如果(返回值 == 1)
调试输出("免注册大漠插件成功")
//创建大漠对象
对象 = com("dm.dmsoft")
版本 = 对象.Ver()
调试输出("当前大漠版本: " & 版本)
//注册收费功能
注册码 = 读取注册码("jkl")
返回值 = 对象.Reg(注册码,"0001")
如果(返回值 == 1)
调试输出("大漠收费功能注册成功")
否则
调试输出("大漠收费功能注册失败")
结束
否则
调试输出("免注册大漠插件失败")
结束
结束 |