如何获取网络时间

a117034423

求帮助，未找到获取网络时间相关用法与函数
有没有大神有例子提供学习下
谢谢了

1. (defun get-time (/ xpost var)
   
2.     (if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
   
3.         (progn
   
4.             ;;同步打开连接
   
5.             (vlax-invoke-method
   
6.                 XPOST                    'OPEN
   
7.                 "Put"                    " Http://time.nist.gov:13" ;;此处代码网址不太会改，哪位大神可以教教
   
8.                 :vlax-false
   
9.                )
   
10.             ;;发送请求
    
11.             (vlax-invoke-method XPOST 'Send)
    
12.             ;;判断状态
    
13.             (while (/= (vlax-get-property xpost 'readyState) 4))
    
14.             ;;取出结果
    
15.             (while
    
16.                 (not (setq var (vlax-get-property xpost 'responsetext)))
    
17.             )
    
18.             ;;释放资源
    
19.             (vlax-release-object xPost)
    
20.             ;;返回
    
21.             var
    
22.         )
    
23.     )
    
24. )

(defun get-time (/ xpost var)<br />     (if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))<br />         (progn<br />             ;;同步打开连接<br />             (vlax-invoke-method<br />                 XPOST                    'OPEN<br />                 "Put"                    " <a href=\"Http://time.nist.gov:13\" target=\"_blank\">Http://time.nist.gov:13</a>" ;;此处代码网址不太会改，哪位大神可以教教<br />                 :vlax-false<br />                )<br />             ;;发送请求<br />             (vlax-invoke-method XPOST 'Send)<br />             ;;判断状态<br />             (while (/= (vlax-get-property xpost 'readyState) 4))<br />             ;;取出结果<br />             (while<br />                 (not (setq var (vlax-get-property xpost 'responsetext)))<br />             )<br />             ;;释放资源<br />             (vlax-release-object xPost)<br />             ;;返回<br />             var<br />         )<br />     )<br /> )

janshyl

其實也滿想瞭解的 期待中...

hh_lj007

打开电脑同步时钟设置，然后获取本地时间即网络时间。
关注。。。

st788796

_$ (vlax-get-property xpost 'responsetext)
"\n59319 21-04-15 01:23:56 50 0 0 340.4 UTC(NIST) * \n"


2021 年 4 月 15 日 UTC 世界时 01:23:56 50 ,中国时区 +8