TC官方合作论坛

标题: 求教5.0版本怎么写大漠免注册 [打印本页]
作者: malaigou    时间: 2015-11-26 20:59
标题: 求教5.0版本怎么写大漠免注册
啊怎么写都不对求个大大会的来教教
作者: malaigou    时间: 2015-11-26 21:00
现在用得都是接口注册
作者: 九州烟雨    时间: 2015-11-26 21:49
本帖最后由 九州烟雨 于 2015-11-26 21:52 编辑
  1. 功能 注册大漠插件(&对象)
  2.     变量 电脑版本,大漠路径,插件免注册,ws,注册码,大漠插件版本号,Ret,控制开关 = 真
  3.     Ret = 是否注册("xx.xxx")
  4.     如果(Ret == 假)
  5.         电脑版本 = 系统获取版本号()
  6.         调试输出("[注册大漠插件] 系统版本: " & 电脑版本)
  7.         //Win8系统
  8.         如果(电脑版本 == 7 || 电脑版本 == 8 || 电脑版本 == 9 || 电脑版本 == 10)
  9.             //采用正常的注册方式
  10.             Ret = 注册插件(获取资源路径("rc:定制版.dll"),真)
  11.             调试输出("[注册大漠插件] 注册插件 Ret: " & Ret)
  12.             如果(Ret == 假)
  13.                 调试输出("[注册大漠插件] 注册失败!")
  14.                 控制开关 = 假
  15.             否则
  16.                 如果(Ret = 真)
  17.                     调试输出("[注册大漠插件] 注册成功!")
  18.                 结束
  19.             结束
  20.         否则
  21.             //采用免注册
  22.             大漠路径 = 获取资源路径("rc:定制版.dll")
  23.             插件免注册 = 获取资源路径("rc:免注册.dll")
  24.             //解决xp系统Ghost版 atl.dll 被精简掉的问题
  25.             ws = com("Wscript.shell")
  26.             ws.run("regsvr32 atl.dll /s")
  27.             Ret = dllcall(插件免注册, "int", "SetDllPathA", "char *", 大漠路径, "int", 0)
  28.             如果(Ret == 1)
  29.                 调试输出("[注册大漠插件] 免注册大漠插件成功")
  30.             否则
  31.                 调试输出("[注册大漠插件] 免注册大漠插件失败")
  32.                 控制开关 = 假
  33.             结束
  34.         结束
  35.     结束
  36.     如果(控制开关)
  37.         //这是公共对象
  38.         对象 = 插件("xx.xxx")
  39.         大漠插件版本号 = 对象.Ver()
  40.         调试输出("[注册大漠插件] 当前大漠插件版本号: " & 大漠插件版本号)
  41.         //开始注册收费功能
  42.         注册码 = 读取注册码("xxxxxxx")
  43.         Ret = 对象.Reg(注册码,"0001")
  44.         如果(Ret == 1)
  45.             调试输出("[注册大漠插件] 注册收费功能成功")
  46.         否则
  47.             调试输出("[注册大漠插件] 注册收费功能失败")
  48.         结束
  49.     结束
  50. 结束
  51. //----------------------------读取注册码-------------------------//
  52. 功能 读取注册码(密码)
  53.     变量 内容,注册码
  54.     //读取资源内的文本文档
  55.     内容 = 文件读指定行(获取资源路径("rc:注册码.txt"),0)
  56.     如果(内容 != "")
  57.         注册码 = aes解密(内容,密码)
  58.     结束
  59.     返回 注册码
  60. 结束
复制代码

作者: 九州烟雨    时间: 2015-11-26 22:03
本帖最后由 九州烟雨 于 2015-11-26 22:25 编辑

作者: malaigou    时间: 2015-11-27 20:12
九州烟雨 发表于 2015-11-26 22:03

大神很感谢你 但是我依旧看不懂   因为我学的那个教程有公共库 是直接复制或者直接调用写好的免注册 是4.0版本的 5.0我是真写不出  求简化直接复制注册码的那种免注册  大神考虑因素太多了   新手挺笨的 求大神见谅
作者: malaigou    时间: 2015-11-27 20:22
九州烟雨 发表于 2015-11-26 22:03

我只知道要把那免注册文件和dm.dll放进资源目录 的免注册 用了随风大神的模块虽然注册成功 但是一运行就未响应
作者: malaigou    时间: 2015-11-27 20:33
九州烟雨 发表于 2015-11-26 22:03

大神 再次感谢你了我已经弄成了
作者: yunqi666    时间: 2015-12-31 15:46
九州烟雨 发表于 2015-11-26 21:49

大神  你的  xx.xxx   填什么啊
作者: 九州烟雨    时间: 2015-12-31 16:44
yunqi666 发表于 2015-12-31 15:46
大神  你的  xx.xxx   填什么啊

对象接口，我的是定制的，一般默认都是：dm.dmsoft
作者: yunqi666    时间: 2015-12-31 19:26
九州烟雨 发表于 2015-11-26 21:49

&对象   说这里出错误   不知道怎么回事



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1