LISP如何实现限制使用时间（网络时间）？到期后不能使用。

nayipiantian999

LISP如何实现限制使用时间（网络时间）？到期后不能使用。

xshrimp

1. ;;---------------------=={ Internet Time }==------------------;;
   
2. ;;                                                            ;;
   
3. ;;  Returns the date and/or UTC time as a string in the       ;;
   
4. ;;  format specified. Data is sourced from a NIST server.     ;;
   
5. ;;------------------------------------------------------------;;
   
6. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
   
7. ;;------------------------------------------------------------;;
   
8. ;;  Arguments:                                                ;;
   
9. ;;  format - string specifying format of returned information ;;
   
10. ;;           using the following identifiers to represent     ;;
    
11. ;;           date & time quantities:                          ;;
    
12. ;;           YY = Year, MO = Month,   DD = Day                ;;
    
13. ;;           HH = Hour, MM = Minutes, SS = Seconds            ;;
    
14. ;;------------------------------------------------------------;;
    
15. ;;  Returns:  String containing formatted date/time data      ;;
    
16. ;;------------------------------------------------------------;;
    
17. 
    
18. (defun LM:InternetTime ( format / result rgx server xml )
    
19.     (setq server "http://time.nist.gov:13")
    
20.     (setq result
    
21.         (vl-catch-all-apply
    
22.             (function
    
23.                 (lambda ( / str )
    
24.                     (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))
    
25.                     (setq rgx (vlax-create-object "VBScript.RegExp"))
    
26.                     (vlax-invoke-method xml 'open "POST" server :vlax-false)
    
27.                     (vlax-invoke-method xml 'send)
    
28.                     (if (setq str (vlax-get-property xml 'responsetext))
    
29.                         (progn
    
30.                             (vlax-put-property rgx 'global     actrue)
    
31.                             (vlax-put-property rgx 'ignorecase actrue)
    
32.                             (vlax-put-property rgx 'multiline  actrue)
    
33.                             (mapcar
    
34.                                 (function
    
35.                                     (lambda ( a b )
    
36.                                         (vlax-put-property rgx 'pattern a)
    
37.                                         (setq format (vlax-invoke rgx 'replace format b))
    
38.                                     )
    
39.                                 )
    
40.                                '("YY" "MO" "DD" "HH" "MM" "SS")
    
41.                                '("$1" "$2" "$3" "$4" "$5" "$6")
    
42.                             )
    
43.                             (vlax-put-property rgx 'pattern
    
44.                                 (strcat
    
45.                                     "(?:[^\\d]+[\\d]+[^\\d]+)"
    
46.                                     "([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)"
    
47.                                     "([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)([\\d]+)(?:.+)\\n"
    
48.                                 )
    
49.                             )
    
50.                             (vlax-invoke-method rgx 'replace str format)
    
51.                         )
    
52.                     )
    
53.                 )
    
54.             )
    
55.         )
    
56.     )
    
57.     (if xml  (vlax-release-object xml))
    
58.     (if rgx  (vlax-release-object rgx))
    
59.     (if (not (vl-catch-all-error-p result))
    
60.         result
    
61.     )
    
62. )

;;---------------------=={ Internet Time }==------------------;;<br /> ;;                                                            ;;<br /> ;;  Returns the date and/or UTC time as a string in the       ;;<br /> ;;  format specified. Data is sourced from a NIST server.     ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &#169; 2011 - <a href="http://www.lee-mac.com" target="_blank">www.lee-mac.com</a>       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  format - string specifying format of returned information ;;<br /> ;;           using the following identifiers to represent     ;;<br /> ;;           date & time quantities:                          ;;<br /> ;;           YY = Year, MO = Month,   DD = Day                ;;<br /> ;;           HH = Hour, MM = Minutes, SS = Seconds            ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  String containing formatted date/time data      ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun LM:InternetTime ( format / result rgx server xml )<br />     (setq server "http://time.nist.gov:13")<br />     (setq result<br />         (vl-catch-all-apply<br />             (function<br />                 (lambda ( / str )<br />                     (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))<br />                     (setq rgx (vlax-create-object "VBScript.RegExp"))<br />                     (vlax-invoke-method xml 'open "POST" server :vlax-false)<br />                     (vlax-invoke-method xml 'send)<br />                     (if (setq str (vlax-get-property xml 'responsetext))<br />                         (progn<br />                             (vlax-put-property rgx 'global     actrue)<br />                             (vlax-put-property rgx 'ignorecase actrue)<br />                             (vlax-put-property rgx 'multiline  actrue)<br />                             (mapcar<br />                                 (function<br />                                     (lambda ( a b )<br />                                         (vlax-put-property rgx 'pattern a)<br />                                         (setq format (vlax-invoke rgx 'replace format b))<br />                                     )<br />                                 )<br />                                '("YY" "MO" "DD" "HH" "MM" "SS")<br />                                '("$1" "$2" "$3" "$4" "$5" "$6")<br />                             )<br />                             (vlax-put-property rgx 'pattern<br />                                 (strcat<br />                                     "(?:[^\\d]+[\\d]+[^\\d]+)"<br />                                     "([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)"<br />                                     "([\\d]+)(?:[^\\d]+)([\\d]+)(?:[^\\d]+)([\\d]+)(?:.+)\\n"<br />                                 )<br />                             )<br />                             (vlax-invoke-method rgx 'replace str format)<br />                         )<br />                     )<br />                 )<br />             )<br />         )<br />     )<br />     (if xml  (vlax-release-object xml))<br />     (if rgx  (vlax-release-object rgx))<br />     (if (not (vl-catch-all-error-p result))<br />         result<br />     )<br /> )

The 'format' parameter

This parameter is a string specifying the format for the returned data. It is used in a similar way to the 'picture' parameter for the edtime DIESEL function, using the following identifiers to represent date & time quantities:

Code: [Select]
YY  =  Year
MO  =  Month
DD  =  Day
HH  =  Hours
MM  =  Minutes
SS  =  Seconds

Examples

Code: [Select]
_$ (LM:InternetTime "DD/MO/YY, HH:MM:SS")
"17/09/11, 19:37:07"

Code: [Select]
_$ (LM:InternetTime "MO.DD.YY")
"09.17.11"

Code: [Select]
_$ (LM:InternetTime "HH:MM")
"19:37"

xshrimp

;;;xshrimp 2022.06.01
(defun xzj-InternetTime( / fs timeStr tmpFile true ts wscript)
  (setq tmpFile (vl-filename-mktemp nil nil ".txt"))
  (setq wscript (vlax-create-object "wscript.shell"))
  (setq fs     (vlax-create-object "scripting.filesystemobject"))
  (vlax-invoke wscript 'run (strcat "cmd.exe /c curl  https://www.beijing-time.org/t/time.asp>\"" tmpFile "\"")  0 1)  
  (setq ts (vlax-invoke fs 'opentextfile tmpFile  1 -1));true -1
  (setq timeStr (vlax-invoke ts 'readall))
  (vlax-invoke ts 'Close)  
  (vlax-invoke fs 'DeleteFile tmpFile)
  (alert timeStr)
)
(xzj-InternetTime)

jjj666

没有网络如何处理？还是用系统时间控制比较容易些。

baitang36

获取初次试用时间，保存
以后每次用的时候取当前时间，和保存的时间比较，看看用了多少天了，过期就不运行

mikewolf2k

要么联网获取真实时间，同时承担没网络不能运行的后果。要么获取本地时间，同时承担用户修改时间跳过的后果。根据需要选择合适的验证方式。

zj20190405

xshrimp 发表于 2022-5-31 15:27
The 'format' parameter

This parameter is a string specifying the format for the returned data ...

老哥没用，放回nil

一张单程票

自贡黄明儒

xshrimp 发表于 2022-6-1 17:49
;;;xshrimp 2022.06.01
(defun xzj-InternetTime( / fs timeStr tmpFile true ts wscript)
  (setq tmpFi ...

如果tmpFile空，则(setq timeStr (vlax-invoke ts 'ReadAll))失败，为什么会空呢？

xshrimp

自贡黄明儒 发表于 2022-6-2 07:49
如果tmpFile空，则(setq timeStr (vlax-invoke ts 'ReadAll))失败，为什么会空呢？

执行太快,文件还没有写入数据,就读.文件为空.
或者没有读就删了?
已经修改了.你再试下呢