abcxyz0517 发表于 2006-10-24 08:42:00

给你的LISP程序加一个期限

<P>如题,编了一个LISP用一段时间, <BR>然后要求你注册, <BR>否则就不能用或者加载不了 </P>

dnnlog 发表于 2006-10-24 09:13:00

可以

可以..............................

wei209 发表于 2006-10-24 09:51:00

<P>用VB吧</P>

jdhszh 发表于 2006-10-24 20:46:00

<P>&nbsp;&nbsp; (setq cdate (fix (getvar "date")))<BR>&nbsp;&nbsp; (setq rq(vl-registry-read "HKEY_CURRENT_USER\\zc\\REG" "1"))<BR>&nbsp;&nbsp; (setq ct(atoi rq))<BR>&nbsp; (if (&gt; cdate ct)<BR>&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp; (alert "对不起，程序已无过有效期，如还想使用请申请注册!\")<BR>&nbsp;&nbsp; (exit)<BR>&nbsp;&nbsp; ))</P>
<P>限制时间先用程序写入注册表</P>

abcxyz0517 发表于 2006-10-25 08:11:00

<P>; 错误: 输入的字符串有缺陷</P>
<P>限制时间先用程序写入注册表</P>
<P>限制时间怎么写呀?</P>
<P>vl-registry-write函数?</P>

jdhszh 发表于 2006-10-28 17:25:00

<P>(vl-registry-write "HKEY_CURRENT_USER\\zc\\REG" "1" "2454132")</P>
<P>要知道时间的格式是依日计的</P>

xbtang 发表于 2006-11-8 16:38:00

这个值得学习﹐但不值得应用﹑推广。

fly_902 发表于 2006-11-9 18:59:00

<P>很好, 值得学习一下! </P>

sicky111 发表于 2006-11-12 19:11:00

<P>这样能行吗？</P>

ck99 发表于 2006-11-15 10:28:00

如果对方更改日期就可以用了啊。。。
页: [1] 2 3
查看完整版本: 给你的LISP程序加一个期限