lph960405 发表于 2007-7-24 22:07:00

[求助]lisp写注册程序求助

本帖最后由 作者 于 2007-7-27 0:31:23 编辑 <br /><br /> <div align="right" style="FLOAT: right;"><a title="评分 0" href="http://www.3dportal.cn/discuz/misc.php?action=viewratings&amp;tid=323665&amp;pid=1449522"></a></div>lisp写注册程序?<br/><div class="t_msgfont" id="message1449522"><br/>;;谢谢!<br/></div>

TLHMQH 发表于 2007-7-24 23:55:00

<p>请阅：</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=59084">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=59084</a></p>

onlynight 发表于 2007-7-25 13:42:00

<p>这个值应该是你电脑的硬盘号</p>(defun find_sn( / FilSys DrvObj)<br/>&nbsp; (vl-load-com)<br/>&nbsp; (setq FilSys (vlax-create-object "Scripting.FileSystemObject"))<br/>&nbsp; (setq DrvObj (vlax-invoke FilSys "GetDrive" "C"))<br/>&nbsp; (vlax-get DrvObj "SerialNumber")<br/>);end defun<p>试试这个，会不会取到 "81941805" 。</p>
页: [1]
查看完整版本: [求助]lisp写注册程序求助