明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 65969|回复: 603

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

    [复制链接]
发表于 2017-9-4 14:00 | 显示全部楼层 |阅读模式
本帖最后由 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盘的序列号有相同的情况!这点需特别注意!!!

  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. (defun test();获取主板序列号
  12.   (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
  13.   (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
  14.   (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))
  15.   (vlax-for n meth2
  16.     (print (vlax-get n 'name))
  17.     (print (vlax-get n 'SerialNumber))
  18.   )
  19.   (princ)
  20. )






本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 17明经币 +13 金钱 +171 收起 理由
d1742647821 + 20 谢谢前辈
baitang36 + 1 很给力!
muwind + 1 很给力!
foolishzy + 1 淡定
spp_wall + 1 + 50 很给力!
liu903758379 + 16 很给力!
KMCM_JET + 10 很给力!
tangjunasd58 + 1 很给力!
00放飞梦想00 + 20 谢谢楼主!很棒!!!!!!
lucas_3333 + 1 神马都是浮云

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2022-7-28 11:38 | 显示全部楼层
很给力啊很给力啊很给力啊
回复 支持 1 反对 0

使用道具 举报

发表于 2022-6-27 13:08 | 显示全部楼层
如果您要查看本帖隐藏内容请回复
回复 支持 0 反对 1

使用道具 举报

 楼主| 发表于 2021-12-17 07:41 | 显示全部楼层
d1742647821 发表于 2021-12-16 19:08
我测10个人我们公司,用(vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber")序 ...

在帖子中我也提到了这个问题,而且帖子里有提供主板和CPU序列号的获取源码,自己可以修改使用!
回复 支持 1 反对 0

使用道具 举报

发表于 2017-9-4 19:05 | 显示全部楼层
i不错,收下了,谢谢
发表于 2017-9-5 09:15 | 显示全部楼层
谢谢分享这么好的源码,好好学习一下
发表于 2017-9-5 10:06 | 显示全部楼层
非常棒,感谢
发表于 2017-9-5 11:11 | 显示全部楼层
谢谢分享这么好的源码
发表于 2017-9-5 13:42 | 显示全部楼层
谢谢楼主分享!
发表于 2017-9-5 13:53 | 显示全部楼层
啥也不说了,感谢楼主分享哇!
发表于 2017-9-5 15:18 | 显示全部楼层
源码不加密,不等于白费功夫吗
 楼主| 发表于 2017-9-5 17:22 | 显示全部楼层
我爱lisp 发表于 2017-9-5 15:18
源码不加密,不等于白费功夫吗

里面可以改的东西有很多,看你个人发挥喽!
发表于 2017-9-5 18:51 | 显示全部楼层
win 10 cad2016 闪退。 ; 错误: 参数类型错误: (or stringp symbolp): nil
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 16:48 , Processed in 0.283255 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表