Rosamund Kwan 发表于 2022-7-5 19:40:15

时间限制

尊敬的各位
 
如何为lisp代码添加时间限制？
 

(setq time1 20151230)
(setq time2 (getvar "CDATE"))
(if (<=time2 time1)
         (my-stuff)
         (alert "Need Update")
)

 
 
但是，如果利用互联网时间。。。。。。
这意味着单个用户（没有互联网）将无法使用我们的东西。

Lee Mac 发表于 2022-7-5 20:00:17

作者未知。未经验证，您可以参考。

(defun get-time      (/ xpost var)
;from blog of zml184
   (if      (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
       (progn
         (vlax-invoke-method
               XPOST                  'OPEN
               "Put"                  " Http://time.nist.gov:13"
               :vlax-false
            )
         (vlax-invoke-method XPOST 'Send)
         (while (/= (vlax-get-property xpost 'readyState) 4))
         (while
               (not (setq var (vlax-get-property xpost 'responsetext)))
         )
         (vlax-release-object xPost)
         var
       )
   )
)

Rosamund Kwan 发表于 2022-7-5 20:12:54

 
谢谢你，丹。
 
但这仍然可以修改“Regedit”的日期。。。。。。

DuanJinHui 发表于 2022-7-5 20:30:20

Rosamund Kwan 发表于 2022-7-5 20:42:52

 
Thanks Dan.
 
But this still can modify date from 'Regedit'......
页: [1]
查看完整版本: 时间限制