能否用lisp或者vlisp获取cmos的系统时间

wb0815

(setq filetime (vl-file-systime      "c:/program files/acad2000/sample/visuallisp/yinyang.lsp"))(setq filleng (length filetime))
(setq n 0 )
(while (< n  filleng )
(setq nt0 (itoa (nth 0 filetime)))
(setq nt1 (itoa (nth n filetime)))
(setq nt1 (strcat  (strcat nt0 nt1)))


可是我循环不出去了我想得到的结果是
"199904042912035200"

meflying

最基本的循环问题，你的n值没有变化，(< n filleng)永远成立

wb0815

是的所以我不知道该怎么循环出去了
晕晕的
我知道循环的解过肯定不对
可是我实在是不知道该怎么循环了

meflying

你对while循环不懂吗？
while后面的条件是真，就继续循环，如果是假，则退出循环，这和是编程最最基本的东西啊。。。

(while (< i 100)
  (princ i)
  (setq i (1+ i))
)

mikewolf2k

楼主,我也需要这方面的知识.我用的是vb,我的做法是:获得每次windows启动都会读写的文件的修改日期,而不是当前的系统时间.因为一般对付限制使用日期的软件都是在执行改软件前修改系统日期到有效期内,执行完毕后再改回正确日期.也就是说启动时的日期是真正的日期.当然,如果用户一直把日期放在有效期内还是能跳过日期检查,不过我认为这样的人非常少.
cmos里没听说过还有一个日期,据我所知,cmos内有一个当前日期,windows的日期时间就是读取它得到的;还有一个报警时间,它是固定不变的(除非人为修改).所以我认为,无法阻止用户用修改日期的方法来使用软件,只能设法获得真实日期.
请指教,望交流.

wb0815

to meflying斑竹

我知道下面的（setq n (+ 1 n ))我没有写就是请斑竹帮我办这个循环做出去


to 15楼
楼上的你不会把当前的日期写出去呀当每天第一次运行的时候就往出写，然后比较日期我这个做过，当别人改日期的时候就给程序锁上了

meflying

(defun c:test( / filetime)
  (setq filetime (vl-file-systime "e:/e.exe"))
  (apply 'strcat (mapcar 'rtos filetime))
)

wb0815

谢谢斑竹
这个函数我怎么忘了
谢了

mikewolf2k

搂主,你是什么意思,"把当前的日期写出去"?用户在使用你的软件之前已经把日期改到有效期内,你的软件始终是在有效期内运行的,写出去有什么用?

wb0815

用当前日期做比较然后确定是否改过日期了