简单的试用次数限制,思路

love1030312

机械工程师 发表于 2014-10-8 09:09
(progn
(alert "试用超过限制,注册联系QQ775452144")
)

缺陷问题我解决了 但是  加载后其他的程序还是能用啊    这跟楼主的没什么不一样的   请大哥指点

ZZXXQQ

改了一下

2. (defun c:tt()
   
3. (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
   
4.   (setq tmpxx(atoi (read-line tmptxt)))
   
5.   (close TMPTXT)
   
6.   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
   
7.   (write-line (itoa(1+ tmpxx)) tmptxt)
   
8.   (close TMPTXT)
   
9. )
   
10.   (setq tmpxx 31);文件不存在就直接超次数
    
11. )
    
12. (if (< tmpxx 30) (progn
    
13. (prompt "试用次数内")
    
14. ;要用的程序加在这里
    
15. ) (progn
    
16. (alert "试用超过限制,注册联系QQ775452144")
    
17. ))
    
18. )
    

(defun c:tt()<br /> (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn<br />   (setq tmpxx(atoi (read-line tmptxt)))<br />   (close TMPTXT)<br />   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))<br />   (write-line (itoa(1+ tmpxx)) tmptxt)<br />   (close TMPTXT)<br /> )<br />   (setq tmpxx 31);文件不存在就直接超次数<br /> )<br /> (if (< tmpxx 30) (progn <br /> (prompt "试用次数内")<br /> ;要用的程序加在这里<br /> ) (progn<br /> (alert "试用超过限制,注册联系QQ775452144")<br /> ))<br /> )<br />

spp_wall

ZZXXQQ 发表于 2014-10-9 07:51
改了一下

Z版  能改成试用时间么

机械工程师

love1030312 发表于 2014-10-9 00:07
缺陷问题我解决了 但是  加载后其他的程序还是能用啊    这跟楼主的没什么不一样的   请大哥指点

改成函数调用啊。。。

bai2000

能改为附加到别的程序中最好，别的程序附加到这里就哈哈哈了

love1030312

ZZXXQQ 发表于 2014-10-9 07:51
改了一下

ZZ版  我按照你改的弄了下  为什么提示用于比较的参数类型不正确呢


求指教

love1030312

ZZXXQQ 发表于 2014-10-9 07:51
改了一下

按照Z版的使用方法使用 还是不行啊  加载进去的程序还是没有限制到
  请ZZ版出手修改下 谢谢

fan_zh

学习了, 马克

ZZXXQQ

spp_wall 发表于 2014-10-9 08:04
Z版  能改成试用时间么

2. ;限制时间主程序  日期格式：20141010
   
3. (defun c:tt()
   
4. (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
   
5.   (setq time (atoi (read-line tmptxt)))
   
6.   (close TMPTXT)
   
7.   (if (< time (fix(getvar "CDATE"))) (progn
   
8.    (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
   
9.    (write-line (fix(getvar "CDATE")) tmptxt)
   
10.    (close TMPTXT)
    
11.    (prompt "试用次数内")
    
12. ;要用的程序加在这里
    
13.   ) (progn
    
14.    (alert "试用超时,注册联系QQ775452144")
    
15.   ))
    
16. )
    
17.   (alert "试用超时,注册联系QQ775452144");文件不存在就直接超时
    
18. )
    
19. (princ)
    
20. )
    

;限制时间主程序  日期格式：20141010<br /> (defun c:tt()<br /> (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn<br />   (setq time (atoi (read-line tmptxt)))<br />   (close TMPTXT)<br />   (if (< time (fix(getvar "CDATE"))) (progn <br />    (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))<br />    (write-line (fix(getvar "CDATE")) tmptxt)<br />    (close TMPTXT)<br />    (prompt "试用次数内")<br /> ;要用的程序加在这里<br />   ) (progn<br />    (alert "试用超时,注册联系QQ775452144")<br />   ))<br /> )<br />   (alert "试用超时,注册联系QQ775452144");文件不存在就直接超时<br /> )<br /> (princ)<br /> )<br />

spp_wall

ZZXXQQ 发表于 2014-10-9 07:51
改了一下

次数的可以 我再看看时间的！