|
发表于 2020-12-23 17:49:50
|
显示全部楼层
功能 免注册大漠插件(插件版本)
//第一步 解决有些XP系统把atl.dll精简掉的问题。
// 命令("regsvr32 atl.dll /s",false)
//第二步 把DmReg.dll和dm.dll放在同一目录下下面开始注册
//SetDllPathA 字符串(Ascii码表示插件所在的路径),整数(0表示STA,1表示MTA)
动态库调用(获取资源路径("rc:\\yf.dll"), "int", "SetDllPathA", "char *", 获取资源路径("rc:\\dm.dll"), "int", 0)//
等待(随机数(100, 1000))
大漠 = 插件("dm.dmsoft")//大漠对象名,免费版的默认为:dm.dmsoft,收费版请修改你的对象名称
如果(获取变量类型(大漠) == "com")
变量 当前版本 = 大漠.Ver()
调试输出("当前版本:" & 当前版本)
如果(当前版本 != 插件版本)
消息框("插件注册失败,版本不匹配\r\n请联系作者!!")
退出()
结束
如果(插件版本 != "3.1233")//如果是免费则不运行注册
变量 Reg_ret = 大漠.Reg("大漠注册码", "")//这里填写修改你的大漠注册码
调试输出("Reg_ret:" & Reg_ret)
如果(Reg_ret != 1)
消息框("大漠插件,注册收费失败!")
退出()
结束
结束
//设置路径和字库(大漠)
返回 真
否则
消息框("大漠插件注册失败,请手动运行注册文件!")
退出()
结束
结束 |
|