社区 › AutoLISP/Visual LISP 编程技术 › 求完美下带注册码的插件。。。谢谢哪位老师

flytoday 发表于 2012-7-26 21:49:16

求完美下带注册码的插件。。。谢谢哪位老师

本帖最后由 flytoday 于 2012-7-28 18:24 编辑





麻烦哪位大师帮我改下。。没注册成功。。软件不能使用。。


麻烦大师了谢谢啦~~~~~~~~~~~~~~~~~~~~~~~~~~~~

preone 发表于 2012-8-1 19:47:47

有点难~~

soly2006 发表于 2012-7-26 21:58:11

授权码不可以是随机数的吧，不然你程序怎么算出你要的随机数？

soly2006 发表于 2012-7-26 22:32:40

soly2006 发表于 2012-7-26 21:58 static/image/common/back.gif
授权码不可以是随机数的吧，不然你程序怎么算出你要的随机数？

不好意思。
截取CPU号的前几个和后几个才具有隐蔽性

soly2006 发表于 2012-7-26 23:55:56

(setq cpusn (cpu))
(setq SJM (strcat (substr cpusn 2 3) (substr cpusn 6 3)));申请码前三个后三个

;;------------------------CPU--------------------------------
;;不明出处
(defun CPU (/ Vlist VObj lcom lExecQuery item)
(setq Vlist '())
(if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))
    (progn
      (SETQ lcom (VLAX-INVOKE
   VObj       'ConnectServer   "."
   "\\root\\cimv2"""   ""
   ""       ""128   nil
    ) ;_ 结束VLAX-INVOKE
      ) ;_ 结束SETQ
      (setq lExecQuery
      (vlax-invoke
      lcom
      'ExecQuery
      ;;"Select * From Win32_BIOS"
      "Select * from Win32_Processor"
      ) ;_ 结束vlax-invoke
      ) ;_ 结束setq
      (vlax-for item lExecQuery
(setq Vlist (vlax-get item 'ProcessorId) ;_ 结束cons
) ;_ 结束setq
      ) ;_ 结束vlax-for
      (vlax-release-object lExecQuery)       
      (vlax-release-object lcom)
      (vlax-release-object Vobj)
    )
)
Vlist
)

flytoday 发表于 2012-7-27 01:44:51

哥。。能不能帮我改到程序中去啊麻烦了。。我不会

flytoday 发表于 2012-7-27 03:47:27

本帖最后由 flytoday 于 2012-7-28 01:44 编辑

麻烦大师改下，，没注册成功软件不能使用谢谢~

njyulei 发表于 2012-7-27 08:44:19

要求一次提完吗

朽木大师 发表于 2012-7-27 10:00:16

做记号，一直等一个大侠全部搞定

flytoday 发表于 2012-7-27 17:49:28

自己顶起………………………

flytoday 发表于 2012-7-28 11:42:43

帖最后由 flytoday 于 2012-7-28 01:44 编辑

麻烦大师改下，，没注册成功软件不能使用谢谢~

查看完整版本: 求完美下带注册码的插件。。。谢谢哪位老师