程序期限的设定

TENGOMARK

各位好！

       现在我遇到一个问题，我开发了一个LISP程序，是用在工艺连线上的，由于此工艺到三季度这个时候将会改变，我也会相应更改我的程序，而开发的程序是叫全公司的技术员用的，我担心到三季度某个时候，此程序会有人接着使用，所以需要加入日期限制，到设定的那天，此程序将无法使用，否则一旦按照原来连线，指导生产，会给公司造成大的损失。

       所以这里下网能够在程序中加入这样的设置：1，到设定的日期报警（比如到2008年9月30日）。

                                                                              2，无论修改计算机日期或者做其他的一些系统变更，此程序在该台计算机上再也无法使用，这样才能保证万无一失。

       在此求教能够加入LISP中的相关语句，使得能够起到这样的作用。

    先谢了！

皇上快溜

ZZXXQQ 发表于 2016-10-12 08:54
代码基本完整，只要自行编写dosomething函数、建立safe.txt文件就可以运行中间的省略号...可以加上自己的 ...

谢谢老大提点，请问这段代码只能给单个程序加期限设置吗？如果一个lsp文件里面有多个程序，是否个个程序都有效？

能不能有一小段代码，直接贴在lsp文件里面，然后对lsp文件里面的所有程序都形成期限设置

基础太差，弄了好几天，仍不得要领。想恳请做个范例模仿一下好吗？

ZZXXQQ

皇上快溜 发表于 2016-10-11 17:13
老大好，可以给个完整代码么，急用，谢谢
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68216&ext ...

代码基本完整，只要自行编写dosomething函数、建立safe.txt文件就可以运行中间的省略号...可以加上自己的变量设置，也可以删除。
注意：dosomething函数可以自行命名，内容要包含对safe.txt文件的更改。safe.txt也可另行命名，但程序也要改成同样的名字。

皇上快溜

ZZXXQQ 发表于 2008-6-10 22:53
1、部分程序(defun c:mt ()……(if (setq fnm (findfile "c:/test/safe.txt")) (progn ;文件存在 (set ...

老大好，可以给个完整代码么，急用，谢谢
http://bbs.mjtd.com/forum.php?mo ... DA%CF%DE&page=2

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 41 才可浏览，你当前发帖数只有 0

artken

以下内容需要帖子数达到41才可以浏览????

xiangxi888

我也想学学!

lhg

以下内容需要帖子数达到41才可以浏览????

wshark

什么意思 为什么要到41才能看呀

hnjzwql

我也想学学!

artken

作为版主，作这样的限制，个人觉得不妥。

sunyang98241

请高手不吝赐教，有这样的好东西，真是太好了

yxp

记录到注册表是不是容易被杀毒软件拦截掉？

以下内容需要帖子数达到41才可以浏览

方案一：

1、程序运行一开始读一个文本文件，该文件保存一个日期，如：20080630。如果未找到这个文件，程序将删除本程序在磁盘上的副本，建立一个与本程序副本相同的文件，内容自定，并给出警告，说明无法运行。

2、如果有这个文本文件，则读入这个日期与当前日期进行比较，如当前日期大于读入日期，且小于报警日期，更新文件中的日期，程序正常运行；

3、如果当前日期小于读入日期，执行1中未找到文本文件的处理；并删除文本文件；

4、如果当前日期大于报警日期，执行3的处理。

方案二：

与方案一相同，只是将要记录的字串保存到注册表中，但要有一个初始化程序先在注册表中写入字串。