|
楼主 |
发表于 2020-11-6 00:40:44
|
显示全部楼层
功能 设置路径和字库(参数_dm)
//参数_dm.SetPath(系统获取进程路径() & "资源")//置全局路径
参数_dm.SetPath(获取资源路径("rc:"))//置全局路径
参数_dm.SetDict(0, "zk.txt")
//参数_dm.SetDict(1, "zk1.txt")
结束
功能 免注册大漠插件(插件版本)
//第一步 解决有些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)
消息框("大漠插件,注册收费失败!")
退出()
结束
结束
//设置路径和字库(大漠)
返回 真
否则
消息框("大漠插件注册失败,请手动运行注册文件!")
退出()
结束
结束
//一个标准的注册大漠插件的例子
功能 注册大漠插件(插件版本, 插件路径)
注册插件(插件路径, 真)
变量 ver
// 这里判断是否注册成功
大漠 = 插件("dm.dmsoft")//大漠对象名,免费版的默认为:dm.dmsoft
如果(获取变量类型(大漠) != "com")
//如果上面的方法注册失败那么使用下面的方法进行注册
命令("regsvr32 " & 插件路径, 假)
等待(500)
命令("taskkill /f /im regsvr32.exe", 假)//注册成功后会弹出一个对话框,为了不影响后面的操作 我们直接调用命令结束掉这个对话框
结束
// 再判断插件是否注册成功
大漠 = 插件("dm.dmsoft")
如果(获取变量类型(大漠) == "com")
ver = 大漠.Ver()
调试输出("ver:" & ver)
如果(ver != 插件版本)
//这时,已经确认插件注册失败了。 弹出一些调试信息,以供分析.
消息框("插件版本错误,当前使用的版本是" & ver & ",插件所在目录是" & 大漠.GetBasePath() & "\n请关闭程序,重新尝试")
退出()
否则
返回 真
结束
否则
消息框("插件注册失败,重新尝试")
退出()
结束
结束
功能 大漠_注册收费(参数_dm,注册码,类型=1,ip="")
如果(类型 == 1)
返回 参数_dm.Reg(注册码,"")
否则
返回 参数_dm.RegEx(注册码,"",ip)
结束
结束
|
|