LISP如何限制使用次数?

ycd81 · 发表于 2011-3-25 09:46:47

LISP如何限制使用次数?

ZMB7211 · 发表于 2021-7-22 00:26:07

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

(if (< tmpxx 100)
(progn
(prompt "试用次数内")
)
(progn
(alert "试用超过限制")
)
)
)

bssurvey · 发表于 2021-8-10 11:13:12

烟盒迷唇发表于 2021-8-10 10:56
这样写的话，只要把文件使用数次修改了，不是就能长久使用了。

是没錯啦但他要找得到文件放在哪
我是用日期去限制再加上要找到特定的檔案才可以使用過了期限就把特定檔案刪除就無法使用

烟盒迷唇 · 发表于 2021-8-10 10:56:02

这样写的话，只要把文件使用数次修改了，不是就能长久使用了。

ycd81 · 发表于 2011-3-25 09:47:24

请教各位大侠

357785513 · 发表于 2011-3-25 12:34:07

不要教呀，各位，很多东东就是因为版权制约了行业的发展

mandala · 发表于 2011-3-25 16:33:37

谁教他我跟谁急

logoin · 发表于 2011-3-25 21:25:09

有很多种办法... ...

ZZXXQQ · 发表于 2011-3-25 22:35:31

zlg258369 · 发表于 2011-3-25 23:00:27

这个问题不好说呀

仲文玉 · 发表于 2011-3-27 23:36:11

还是不要吧

chpmould · 发表于 2011-3-28 00:18:13

.......

yxl88168 · 发表于 2011-3-28 20:16:59

为什么没有人回答呀

账号		自动登录	找回密码
密码			注册

[讨论] LISP如何限制使用次数?