TC官方合作论坛

 找回密码
 立即注册
查看: 3080|回复: 4

[已解决] 求个7.0版本的大漠免注册代码

[复制链接]
发表于 2020-8-4 07:14:57 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
网上的大漠免注册方式,大体有三种,都是比较早的方式,不过也是能注册成功的,但是!!!仅仅是输出信息是注册成功的,可我用到大漠的VIP功能 却不能用。。。。
折腾了我一天,实在无力。。。
求大神 给个现在的7.0版本 能用的代码吧
免注册和注册收费功能合在一起的那种~
万分感谢!!!
回复

使用道具 举报

发表于 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)
                消息框("大漠插件,注册收费失败!")
                退出()
            结束
            
        结束
        //设置路径和字库(大漠)
        返回 真
    否则
        消息框("大漠插件注册失败,请手动运行注册文件!")
        退出()
    结束
结束
回复 支持 1 反对 0

使用道具 举报

发表于 2020-12-22 12:13:29 | 显示全部楼层
你这个要求有点厉害~!!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-12-26 17:32:13 | 显示全部楼层
很早我就自己写出来了,都忘记有求救过了 ~
回复 支持 反对

使用道具 举报

发表于 2021-2-20 01:06:06 | 显示全部楼层
420130 发表于 2020-12-23 17:49
功能 免注册大漠插件(插件版本)
    //第一步 解决有些XP系统把atl.dll精简掉的问题。  
    //    命令("r ...

的朋友记得顶一个哈
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-29 14:09 , Processed in 0.041772 second(s), 24 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表