TENGOMARK 发表于 2008-6-7 12:46:00

程序期限的设定

<p>各位好！</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 现在我遇到一个问题，我开发了一个LISP程序，是用在工艺连线上的，由于此工艺到三季度这个时候将会改变，我也会相应更改我的程序，而开发的程序是叫全公司的技术员用的，我担心到三季度某个时候，此程序会有人接着使用，所以需要加入日期限制，到设定的那天，此程序将无法使用，否则一旦按照原来连线，指导生产，会给公司造成大的损失。</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 所以这里下网能够在程序中加入这样的设置：1，到设定的日期报警（比如到2008年9月30日）。</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2，无论修改计算机日期或者做其他的一些系统变更，此程序在该台计算机上再也无法使用，这样才能保证万无一失。</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;在此求教能够加入LISP中的相关语句，使得能够起到这样的作用。</p><p>&nbsp;&nbsp;&nbsp; 先谢了！</p><p></p>

皇上快溜 发表于 2016-10-15 15:32:24

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

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

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

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

ZZXXQQ 发表于 2016-10-12 08:54:19

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

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

皇上快溜 发表于 2016-10-11 17:13:17

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

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

ZZXXQQ 发表于 2008-6-7 21:39:00

<p></p><p>方案一：</p><p>1、程序运行一开始读一个文本文件，该文件保存一个日期，如：20080630。如果未找到这个文件，程序将删除本程序在磁盘上的副本，建立一个与本程序副本相同的文件，内容自定，并给出警告，说明无法运行。</p><p>2、如果有这个文本文件，则读入这个日期与当前日期进行比较，如当前日期大于读入日期，且小于报警日期，更新文件中的日期，程序正常运行；</p><p>3、如果当前日期小于读入日期，执行1中未找到文本文件的处理；并删除文本文件；</p><p>4、如果当前日期大于报警日期，执行3的处理。</p><p>方案二：</p><p>与方案一相同，只是将要记录的字串保存到注册表中，但要有一个初始化程序先在注册表中写入字串。</p><p></p>

artken 发表于 2008-6-8 03:26:00

<font color="#ff0000">以下内容需要帖子数达到<b>41</b>才可以浏览????</font>

xiangxi888 发表于 2008-6-8 05:57:00

<p>我也想学学!</p>

lhg 发表于 2008-6-8 21:47:00

<font color="#ff0000">以下内容需要帖子数达到<b>41</b>才可以浏览????</font>

wshark 发表于 2008-6-9 03:54:00

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

hnjzwql 发表于 2008-6-9 06:10:00

<p>我也想学学!</p>

artken 发表于 2008-6-9 06:40:00

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

sunyang98241 发表于 2008-6-9 08:13:00

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

yxp 发表于 2008-6-9 09:47:00

本帖最后由 作者 于 2008-6-9 19:10:30 编辑 <br /><br /> <p>记录到注册表是不是容易被杀毒软件拦截掉？</p><p></p><p><font color="#808080">以下内容需要帖子数达到<b>41</b>才可以浏览<br/></font></p><p></p><p>方案一：</p><p>1、程序运行一开始读一个文本文件，该文件保存一个日期，如：20080630。如果未找到这个文件，程序将删除本程序在磁盘上的副本，建立一个与本程序副本相同的文件，内容自定，并给出警告，说明无法运行。</p><p>2、如果有这个文本文件，则读入这个日期与当前日期进行比较，如当前日期大于读入日期，且小于报警日期，更新文件中的日期，程序正常运行；</p><p>3、如果当前日期小于读入日期，执行1中未找到文本文件的处理；并删除文本文件；</p><p>4、如果当前日期大于报警日期，执行3的处理。</p><p>方案二：</p><p>与方案一相同，只是将要记录的字串保存到注册表中，但要有一个初始化程序先在注册表中写入字串。</p><p></p>
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 程序期限的设定