注册模块-c盘或移动盘,移动盘当加密狗
本帖最后由 wzg356 于 2014-7-2 16:30 编辑学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);;退出
ZMB7211 发表于 2018-11-3 22:20
思路很好，感觉用处不大建议加入注册表再就是装系统后不变申请码
注册表重装也要重新注册，这个写入到其他盘，读取其他盘，重装也不用重新注册 思路很好，感觉用处不大建议加入注册表再就是装系统后不变申请码 错误：参数类型错误：numberp：nil
错误：参数类型错误：streamp：nil e大让我升级了，很荣幸啊！ 1、运行程序什么都不输一路按空格，也会提示程序注册成功并加载，不过也不可以用就是了；
2、移动盘的盘符能不能自动获取呢？
回复时候好像不可以打分，出去再打吧。。 本帖最后由 wzg356 于 2014-6-22 19:46 编辑
梦里水香 发表于 2014-6-22 19:24 static/image/common/back.gif
1、运行程序什么都不输一路按空格，也会提示程序注册成功并加载，不过也不可以用就是了；
2、移动盘的盘符 ...
移动盘符自动获取，注册文件“mytool注册码移动盘.txt"放在移动盘也可以识别。一路回车还没考虑过。
这句(alert "磁盘不存在或输入错误，程序退出")改为
(progn(alert "磁盘不存在或输入错误，程序退出")(exit))
我试了试可以是可以为什么重开CAD后又要注册呢 本帖最后由 wzg356 于 2014-7-2 16:33 编辑
love1030312 发表于 2014-7-2 15:47 static/image/common/back.gif
我试了试可以是可以为什么重开CAD后又要注册呢
注册后每次加载没问题的呀。
另外，在前面加这一句(vl-load-com) 建议加入到注册表、感谢分享 这么好的功能。回的人这么少 收藏了，慢慢看 学习一下