[求助]：怎么用LISP编写注册问题？

寒光四射

我用LISP编写了一套，现在准备是这样的：让没有注册的用户使用20次。超20次 就不运行。
怎样在注册表里写这样一个键值，用于记录使用次数？
或者在什么地方生成一个文件，记录次数？
谁能告诉我？
有连接的给个连接，有例子的给个例子，有想法给个想法，谢谢

JOSDENNIS

vl-registry-WRITE 寫注冊表涵數
vl-registry-READ 讀注冊表涵數

winabcd

如果你真的想限制使用次数，我认为还是自己找个地方来保存比较好，
注册表不一定好，对于有一定计算机知识的人来讲，从注册表中找出那个数据的保存位置不会是一件限难的事。
自己用LISP生成一个文件，再找个地方存放他，现在大家的电脑中文件数量之多，连他自己都搞不清，想找到你的文件，不是件易事，如果你再把文件的建立、修改时间等信息给动一下，哈哈，让他费神去吧！

寒光四射

是的，关键不知道怎么写？
没有这样的例子，正在研究中

winabcd

给你几个相关函数，
OPEN 打开一个文件
WRITE-LINE 向文件中写一字符串
READ-LINE 从文件中读出一行
CLOSE 关闭文件

橄榄滋味

这样也许是个好办法，但是缺点是每次都要去改这个TXT文件，很容易被发现

winabcd

偶再出个馊办法，你把它藏在CAD的某个系统文件中，

bobby_yang

请问winabcd　怎样修改文件建立、修改时间等信息！

LADESIGNER

关键是注册码的算法

温柔女神

怎么在根目录建立一个文件，当用一次后里面数字加1
到20次就不能用了呢（当然把里面数字改回1，又可以应用了，那也无所谓）
关键是要这样的思路程序

dezhang

如果此机上的盘是只读咋办？不能改又不能建立．

fsxm

看看这个哦！

2. 
   
3. (defun over (n regpath / next)
   
4.   (if (null overexit)
   
5.     (setq overexit exit)
   
6.   )
   
7.   (setq next (vl-registry-read regpath "next"))
   
8.   (cond        ((null next) (vl-registry-write regpath "next" 1))
   
9.         ((>= next n) (overexit))
   
10.         (T (vl-registry-write regpath "next" (1+ next)))
    
11.   )
    
12. )
    
13. 
    
14. ;;调用方法
    
15. (defun c:test (/ overexit)
    
16.   ;;可选部分
    
17.   ;;(defun overexit ()
    
18.   ;;  (while T
    
19.   ;;    (alert "使用期过了啦！\n请以后不要再加载这个东东了哦！!")
    
20.   ;;  )
    
21.   ;;)
    
22.   (over 3 "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
    
23. )
    

<br /> (defun over (n regpath / next)<br />   (if (null overexit)<br />     (setq overexit exit)<br />   )<br />   (setq next (vl-registry-read regpath "next"))<br />   (cond        ((null next) (vl-registry-write regpath "next" 1))<br />         ((>= next n) (overexit))<br />         (T (vl-registry-write regpath "next" (1+ next)))<br />   )<br /> )<br /> <br /> ;;调用方法<br /> (defun c:test (/ overexit)<br />   ;;可选部分<br />   ;;(defun overexit ()<br />   ;;  (while T<br />   ;;    (alert "使用期过了啦！\n请以后不要再加载这个东东了哦！!")<br />   ;;  )<br />   ;;)<br />   (over 3 "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")<br /> )<br />

LADESIGNER

太幼稚了！
用REGSHOT可以看到你安装的时候对注册表的更改和文件的修改、增加、删除等等一目了然，这种限制菜鸟都可以搞定……

fsxm

呵呵！看看CAD的盗版都比正版多了
还有什么在CAD里用lisp加密还破解不了的呢！！

  (cond        ((null next) (vl-registry-write regpath "next" 1))
        ((>= next n) (overexit))
        (T (vl-registry-write regpath "next" (1+ next)))
  )
看清没啦？你就是删除了还没根治！
用限定次数以后还是要删除看你烦不烦
((null next) (vl-registry-write regpath "next" 1))
就说是CAD试用版吧！
试用到期了可以还原注册表再重装一次CAD就可以用了！
呵呵！看autodesk公司也没法了.

bobby_yang

楼上的程序如果删除了还可以用一段时间。好像还是不太好！