最简单的为lisp添加注册功能源代码

hhh454

在论坛里里面看到很多的注册功能代码，好长好长，初学的我不懂，能不能弄个非常简单的，就是为了个兴趣，下面我自己琢磨的代码，请高手不要见笑。

2. 
   
3. (defun c:tt()
   
4.   ;输入
   
5.   (setq zhusn 2222)
   
6.   (alert "申请码为：2222")
   
7.   (setq zhukey (getreal "\n请输入注册码"))
   
8.   ;计算
   
9.   (if (= zhukey nil)
   
10.     (progn (quit)));结束if
    
11.   (if (= zhukey 1111)
    
12.     (progn
    
13.         (setvar "CMDECHO" 0)
    
14.         (command "line")
    
15.         (setvar "CMDECHO" 1)
    
16.         ));结束if
    
17.           (princ));结束defun

<br /> (defun c:tt()<br />   ;输入<br />   (setq zhusn 2222)<br />   (alert "申请码为：2222")<br />   (setq zhukey (getreal "\n请输入注册码"))<br />   ;计算<br />   (if (= zhukey nil)<br />     (progn (quit)));结束if<br />   (if (= zhukey 1111)<br />     (progn<br />         (setvar "CMDECHO" 0)<br />         (command "line")<br />         (setvar "CMDECHO" 1)<br />         ));结束if<br />           (princ));结束defun

请高手帮忙增加记忆功能，请版主gu_xl有时间看看，不求复杂，只求简单，万分感谢

2. 
   
3. (defun c:tt()
   
4.   ;输入
   
5.   (setq zhusn 2222)
   
6.   (alert "申请码为：2222")
   
7.   (setq zhukey (getreal "\n请输入注册码"))
   
8.   ;计算
   
9.   (if (= zhukey nil)
   
10.     (progn
    
11.       (exit)
    
12.       ));结束if
    
13.   (if (/= zhukey 1111)
    
14.      (progn
    
15.        (alert "注册码无效!")
    
16.       (exit)
    
17.         ))
    
18.   (if (= zhukey 1111)
    
19.     (progn
    
20.         (setvar "CMDECHO" 0)
    
21.         (command "line")
    
22.         (setvar "CMDECHO" 1)
    
23.         ));结束if
    
24.           (princ));结束defun

<br /> (defun c:tt()<br />   ;输入<br />   (setq zhusn 2222)<br />   (alert "申请码为：2222")<br />   (setq zhukey (getreal "\n请输入注册码"))<br />   ;计算<br />   (if (= zhukey nil)<br />     (progn<br />       (exit)<br />       ));结束if<br />   (if (/= zhukey 1111)<br />      (progn<br />        (alert "注册码无效!")<br />       (exit)<br />         ))<br />   (if (= zhukey 1111)<br />     (progn<br />         (setvar "CMDECHO" 0)<br />         (command "line")<br />         (setvar "CMDECHO" 1)<br />         ));结束if<br />           (princ));结束defun

sen.sam

把注册码写到注册表：(vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" “111” )
把注册码读出来：(setq sn(vl-registry-read "HKEY_CURRENT_USER\\Software\\TOOLS" "SN"))

adslwang

sen.sam 发表于 2012-7-15 16:52
把注册码写到注册表：(vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" “111” )
把注册码 ...

请问 既然写入之到注册表 有天不想要之后要怎麽把它删除呢?  请牛人开示

flytoday

弄个完整点大家学学吧………………

adslwang

sen.sam 发表于 2012-7-15 16:52
把注册码写到注册表：(vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" “111” )
把注册码 ...

(vl-registry-delete "HKEY_CURRENT_USER\\Software\\TOOLS" "SN")  

呵呵  还在学习中，谢谢！

xujinhua

学习了....虽然还没用到

tianyi1230

高深了点，还没学到那一步，谢谢了

hhh454

2. (defun c:tt()
   
3.   ;输入
   
4.   (setq zhusn 2222)
   
5.   (alert "申请码为：2222")
   
6.   (vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" "1111")
   
7.   (setq zhukey (vl-registry-read "HKEY_CURRENT_USER\\Software\\TOOLS" "SN"))
   
8. 
   
9.   ;计算
   
10.   (if (= zhukey "1111")
    
11.     (progn
    
12.         (setvar "CMDECHO" 0)
    
13.         (command "line")
    
14.         (setvar "CMDECHO" 1)
    
15.         ));结束if
    
16.           (princ));结束defun

(defun c:tt()<br />   ;输入<br />   (setq zhusn 2222)<br />   (alert "申请码为：2222")<br />   (vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" "1111")<br />   (setq zhukey (vl-registry-read "HKEY_CURRENT_USER\\Software\\TOOLS" "SN"))<br /> <br />   ;计算<br />   (if (= zhukey "1111")<br />     (progn<br />         (setvar "CMDECHO" 0)<br />         (command "line")<br />         (setvar "CMDECHO" 1)<br />         ));结束if<br />           (princ));结束defun

357785513

咦呀.......你说这玩意能行嘛. 这事整的

仲文玉

先把思路整理好再说