Vlisp 产生序列号源码

vlisp2012 · 发表于 2011-11-14 20:41:11

hyccai 发表于 2007-9-8 16:18
收下先

学习了！好东东啊！！！！！！！！！！！

qq229918602 · 发表于 2011-11-15 20:28:12

什么意思？

qq229918602 · 发表于 2011-11-15 20:29:46

什么意思？

urdiafa · 发表于 2011-11-16 17:06:12

謝謝,學習了....

haiyunzhou · 发表于 2012-2-7 20:13:52

学习了非常感谢

pslstar · 发表于 2012-2-9 11:39:58

crtrccrt · 发表于 2012-2-9 11:52:10

太感谢了
好程序

yxh1202 · 发表于 2012-2-18 15:52:38

怎么用啊
(defun cpuid (/ str)

  (setq str

  "Set objSWbemObject = GetObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")

  ret = objSWbemObject.ProcessorId

  'msgbox \"首枚CPU序列号：\" & ret" )

  (if (not *wsc)(setq *wsc (vlax-create-object "ScriptControl")))

  (vlax-put *wsc 'language "vbs")

  (vlax-invoke *wsc 'ExecuteStatement str)

  (vlax-invoke *wsc 'eval "ret")

)

teykmcqh · 发表于 2012-2-18 23:59:29

关键还是学习，加密属于高手范畴，一般程序只是为了工作方便，

yjr111 · 发表于 2012-2-19 09:27:54

加密一下学习

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

Vlisp 产生 序列号 源码

Vlisp 产生序列号源码