hhh454 发表于 2012-7-15 14:49:12

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

本帖最后由 hhh454 于 2012-7-17 11:50 编辑

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

(defun c:tt()
;输入
(setq zhusn 2222)
(alert "申请码为：2222")
(setq zhukey (getreal "\n请输入注册码"))
;计算
(if (= zhukey nil)
    (progn (quit)));结束if
(if (= zhukey 1111)
    (progn
      (setvar "CMDECHO" 0)
      (command "line")
      (setvar "CMDECHO" 1)
      ));结束if
          (princ));结束defun
请高手帮忙增加记忆功能，请版主gu_xl有时间看看，不求复杂，只求简单，万分感谢


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

sen.sam 发表于 2012-7-15 16:52:00

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

adslwang 发表于 2012-7-15 16:59:53

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

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

flytoday 发表于 2012-7-15 18:14:12

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

adslwang 发表于 2012-7-15 19:23:07

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

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

呵呵还在学习中，谢谢！

xujinhua 发表于 2012-7-15 20:48:20

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

tianyi1230 发表于 2012-7-16 18:24:22

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

hhh454 发表于 2012-7-17 11:30:38

本帖最后由 hhh454 于 2012-7-17 11:39 编辑

(defun c:tt()
;输入
(setq zhusn 2222)
(alert "申请码为：2222")
(vl-registry-write "HKEY_CURRENT_USER\\Software\\TOOLS" "SN" "1111")
(setq zhukey (vl-registry-read "HKEY_CURRENT_USER\\Software\\TOOLS" "SN"))

;计算
(if (= zhukey "1111")
    (progn
      (setvar "CMDECHO" 0)
      (command "line")
      (setvar "CMDECHO" 1)
      ));结束if
          (princ));结束defun

357785513 发表于 2012-7-17 11:55:55

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

仲文玉 发表于 2012-7-18 18:14:49

先把思路整理好再说
页: [1] 2 3 4
查看完整版本: 最简单的为lisp添加注册功能源代码