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

LISP如何限制使用次数?

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

为什么没有人回答呀
页: [1] 2
查看完整版本: LISP如何限制使用次数?