社区 › AutoLISP/Visual LISP 编程技术 › 简单的试用次数限制,思路

鱼与熊掌 发表于 2014-10-7 14:06:32

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

(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 发表于 2024-1-21 16:07:04

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

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

水沙漠 发表于 2022-2-22 18:02:49

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

lpx530115 发表于 昨天 14:35

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

琴剑江山_10184 发表于 2014-10-7 14:54:47

怎么使用

spp_wall 发表于 2014-10-7 16:39:18

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

love1030312 发表于 2014-10-7 20:20:20

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

lpl 发表于 2014-10-7 21:38:49

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

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

机械工程师 发表于 2014-10-8 08:33:22

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

spp_wall 发表于 2014-10-8 08:57:01

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

指导一下？

机械工程师 发表于 2014-10-8 09:09:57

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

spp_wall 发表于 2014-10-8 16:20:03

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


谢啦！！！！！！

love1030312 发表于 2014-10-8 23:55:03

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


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

查看完整版本: 简单的试用次数限制,思路