（2019.5.27上传优化版示例-仅供参考）全盘符选择注册加密代码(2017年9月4日 16:20...
本帖最后由 fangmin723 于 2022-10-10 08:33 编辑刚刚完成的注册加密程序，总结前辈们的经验，紧随前辈们步伐辛苦之作！
支持电脑注册、移动盘同时可见性注册加密！
搭配《多功能注册机 V1.2》使用更佳！
如果觉得好，请点个赞或捐个币支持一下！非常感谢！！！
交流探讨QQ群：663130417；特别提醒：入群须付费10元，扫群头像里面的二维码付费，记得备注QQ号，付费后入群密码会以临时会话的消息发送至QQ号上，收到密码后，请及时入群，另外说明：付费密码是一次性的，切勿告知他人！
MD5 by-V1.1 2016-03-27-Lee Mac
2018.12.5在本帖内新增获取CPU和主板序列号。
注：程序代码内还是获取C盘序列号，需要的话，可以根据自己的需求进行替换更改！
另注：有很多人反应，不同的电脑，C盘的序列号有相同的情况！这点需特别注意！！！
(defun test();获取CPU序列号
(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
(setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Processor" nil nil nil ))
(vlax-for n meth2
(print (vlax-get n 'name))
(print (vlax-get n 'ProcessorId))
)
(princ)
)
(defun test();获取主板序列号
(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
(setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))
(vlax-for n meth2
(print (vlax-get n 'name))
(print (vlax-get n 'SerialNumber))
)
(princ)
)
硬盘的逻辑号会在格式化后改变, 用special number硬盘物理号是不变的 很给力啊很给力啊很给力啊 如果您要查看本帖隐藏内容请回复 d1742647821 发表于 2021-12-16 19:08
我测10个人我们公司，用(vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber")序 ...
在帖子中我也提到了这个问题，而且帖子里有提供主板和CPU序列号的获取源码，自己可以修改使用！ i不错，收下了，谢谢 谢谢分享这么好的源码，好好学习一下 非常棒，感谢 谢谢分享这么好的源码 谢谢楼主分享! 啥也不说了，感谢楼主分享哇！ 源码不加密，不等于白费功夫吗 我爱lisp 发表于 2017-9-5 15:18
源码不加密，不等于白费功夫吗
里面可以改的东西有很多，看你个人发挥喽！ win 10 cad2016 闪退。 ; 错误: 参数类型错误: (or stringp symbolp): nil