注册模块-c盘或移动盘,移动盘当加密狗

wzg356

          学lsp就几个月时间，花了几天模仿别人帖子 拼凑的（有点辛苦，好多函数还查字典，查别人的群聊记录慢慢理解语法，故用的都是简单的语句），欢迎改进。

       该模块是可以用的，下载了的请给个回复或指出不足，回答下面的2个问题，提高点积极性。

      常常没币下资料，币多的送点给我。

       6月22日补充配套注册机（可以记账的啊），补上2楼提出的漏洞。


;;;注册模块，移动盘=加密狗------------------------------------------

;;思路：以系统硬盘（仅针对C盘）或移动盘的为注册对象，移动盘注册后有点象加密狗啦！
;;申请码：系统硬盘（仅针对C盘）或移动盘序列号+算法变换
;;       （可自定，别让使用者想当然的认为是序列号）；
;;注册码：申请码+算法转换（可自定）；
;;注册文件：以txt保存在C盘或要注册的移动盘根目录。
;;           注册文件以”mytool注册码移动盘.txt“、”mytool注册码C盘.txt“区别；
;;;          菜鸟级的这样就够了，对注册理解不透的千万别去系统里面改。
;;特点：启动时自动指向C盘或移动盘（自动识别盘符）根目录搜索注册文件。
;;      如注册文件不存在或保存的注册码不正确，则请求注册。
;;      如有移动盘注册文件，无移动盘，提示插入检验。   
;;;需确认的几个问题：
;;     1、 系统硬盘（仅针对C盘）或移动盘序列号是否唯一。
;;         至少容量不同号码也会不同吧？。
;;     2、 系统硬盘（仅针对C盘）或移动盘序列号是全数字吗（这点最关键）。
;;         函数”提取指定盘序列号“是明经通道的，函数返回值是数字，这点没问题吧？



20140702注
;;;下面几句为测试样例
;; (vl-load-com)
;;(do-no);;运行注册文件
;;(princ "\n程序已注册并成功加载");;你的程序替换这一句
;;(princ);;退出

zj20190405

ZMB7211 发表于 2018-11-3 22:20
思路很好  ，感觉用处不大  建议加入注册表  再就是装系统后不变申请码

注册表重装也要重新注册，这个写入到其他盘，读取其他盘，重装也不用重新注册

ZMB7211

思路很好  ，感觉用处不大  建议加入注册表  再就是装系统后不变申请码

lengxiaxi

错误：参数类型错误：numberp：nil

错误：参数类型错误：streamp：nil

wzg356

e大让我升级了，很荣幸啊！

梦里水香

1、运行程序什么都不输一路按空格，也会提示程序注册成功并加载，不过也不可以用就是了；
2、移动盘的盘符能不能自动获取呢？
回复时候好像不可以打分，出去再打吧。。

wzg356

梦里水香 发表于 2014-6-22 19:24
1、运行程序什么都不输一路按空格，也会提示程序注册成功并加载，不过也不可以用就是了；
2、移动盘的盘符 ...

移动盘符自动获取，注册文件“mytool注册码移动盘.txt"放在移动盘也可以识别。一路回车还没考虑过。
这句(alert "磁盘不存在或输入错误，程序退出")改为
(progn(alert "磁盘不存在或输入错误，程序退出")(exit))

love1030312

我试了试  可以是可以  为什么重开CAD后又要注册呢

wzg356

love1030312 发表于 2014-7-2 15:47
我试了试  可以是可以  为什么重开CAD后又要注册呢

注册后每次加载没问题的呀。
另外，在前面加这一句(vl-load-com)

清山小石

建议加入到注册表、感谢分享

lxy_2080

这么好的功能。回的人这么少

479274135

收藏了，慢慢看

满山松叶

学习一下