（2019.5.27上传优化版示例-仅供参考）全盘符选择注册加密代码(2017年9月4日 16:20...

fangmin723

刚刚完成的注册加密程序，总结前辈们的经验，紧随前辈们步伐辛苦之作！

支持电脑注册、移动盘同时可见性注册加密！

搭配《多功能注册机 V1.2》使用更佳！

如果觉得好，请点个赞或捐个币支持一下！非常感谢！！！

交流探讨QQ群：663130417；特别提醒：入群须付费10元，扫群头像里面的二维码付费，记得备注QQ号，付费后入群密码会以临时会话的消息发送至QQ号上，收到密码后，请及时入群，另外说明：付费密码是一次性的，切勿告知他人！

MD5 by-  V1.1 2016-03-27  -  Lee Mac

2018.12.5在本帖内新增获取CPU和主板序列号。

注：程序代码内还是获取C盘序列号，需要的话，可以根据自己的需求进行替换更改！
另注：有很多人反应，不同的电脑，C盘的序列号有相同的情况！这点需特别注意！！！

1. (defun test();获取CPU序列号
   
2.   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
   
3.   (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
   
4.   (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Processor" nil nil nil ))
   
5.   (vlax-for n meth2
   
6.     (print (vlax-get n 'name))
   
7.     (print (vlax-get n 'ProcessorId))
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    
12. (defun test();获取主板序列号
    
13.   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
    
14.   (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
    
15.   (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))
    
16.   (vlax-for n meth2
    
17.     (print (vlax-get n 'name))
    
18.     (print (vlax-get n 'SerialNumber))
    
19.   )
    
20.   (princ)
    
21. )

(defun test();获取CPU序列号<br />   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))<br />   (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Processor" nil nil nil ))<br />   (vlax-for n meth2<br />     (print (vlax-get n 'name))<br />     (print (vlax-get n 'ProcessorId))<br />   )<br />   (princ)<br /> )<br /> <br /> (defun test();获取主板序列号<br />   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))<br />   (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))<br />   (vlax-for n meth2<br />     (print (vlax-get n 'name))<br />     (print (vlax-get n 'SerialNumber))<br />   )<br />   (princ)<br /> )

asen

硬盘的逻辑号会在格式化后改变, 用special number硬盘物理号是不变的

yanhongguang202

很给力啊很给力啊很给力啊

hebps

如果您要查看本帖隐藏内容请回复

fangmin723

d1742647821 发表于 2021-12-16 19:08
我测10个人我们公司，用(vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber")序 ...

在帖子中我也提到了这个问题，而且帖子里有提供主板和CPU序列号的获取源码，自己可以修改使用！

clh521

i不错，收下了，谢谢

liwen888888

谢谢分享这么好的源码，好好学习一下

盐水鹅大麦粥

非常棒，感谢

xyz002

谢谢分享这么好的源码

水吉空

谢谢楼主分享!

hhh454

啥也不说了，感谢楼主分享哇！

我爱lisp

源码不加密，不等于白费功夫吗

fangmin723

我爱lisp 发表于 2017-9-5 15:18
源码不加密，不等于白费功夫吗

里面可以改的东西有很多，看你个人发挥喽！

flowerson

win 10 cad2016 闪退。 ; 错误: 参数类型错误: (or stringp symbolp): nil