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

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
授权码不可以是随机数的吧，不然你程序怎么算出你要的随机数？

不好意思。
截取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 编辑

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分

相关帖子

评分

点评