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

鱼与熊掌

(defun c:tt()
(IF (SETQ TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "R"))
  (progn
  (setq tmpxx(READ-LINE tmptxt))
  (CLOSE TMPTXT)
  (setq tmpxx(1+(fix(atof tmpxx))))
  (SETQ TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
  (write-line (itoa tmpxx) tmptxt)
  (CLOSE TMPTXT)
)
  (progn
    (SETQ TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
    (write-line "1" tmptxt)
    (CLOSE TMPTXT)
  )
)

(if (< tmpxx 30)
(progn
(prompt "试用次数内")
)
(progn
(alert "试用超过限制,注册联系QQ775452144")
)
)
)

qazxswk

水沙漠 发表于 2022-2-22 18:02
存在明显的漏洞，只要把C:\\Program Files\\WINDOWNS.TXT文本文件内的数字改为小于30就可以破除限制。

一般人不会随便去改C盘里的文件，希望你能举一反三。

水沙漠

存在明显的漏洞，只要把C:\\Program Files\\WINDOWNS.TXT文本文件内的数字改为小于30就可以破除限制。

lpx530115

多个程序合并成一个LISP的，应该如何加载使用这个限定次数的程序？

琴剑江山_10184

怎么使用

spp_wall

好像只是显示无法使用 但是命令还是能用啊！

love1030312

谢谢分享   很需要这样的程序   但是测试时候 跟楼上一样次数到了 为什么其他的加载程序还是能用呢？？求指点

lpl

love1030312 发表于 2014-10-7 20:20
谢谢分享   很需要这样的程序   但是测试时候 跟楼上一样次数到了 为什么其他的加载程序还是能用呢？？求指 ...

如何使用》。。。。。。。。。。。。

机械工程师

你们就不能给手动加个exit啊，都金牌了，不应该啊。

spp_wall

机械工程师 发表于 2014-10-8 08:33
你们就不能给手动加个exit啊，都金牌了，不应该啊。

指导一下？

机械工程师

(progn
(alert "试用超过限制,注册联系QQ775452144")
)
改为
(progn
(alert "试用超过限制,注册联系QQ775452144")
(exit)
)

spp_wall

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

谢啦！！！！！！

love1030312

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

大哥  请教了  按照你这样改后  提示加载有缺陷啊  怎么回事啊