发一个获取网络日期的源码

baitang36 · 发表于 2022-9-9 07:44:12

原理是从https://www.beijing-time.org/t/time.asp下载一个临时文件，从临时文件中找出当前日期年月日

highflybird · 发表于 2022-9-9 10:42:22

本帖最后由 highflybird 于 2022-9-10 10:09 编辑

很好的方法。我这里也提供一个网站。各位可以根据这个思路替换其它网站，这个方法不用生成临时文件。

(defun HFB:InternetTime (/ xml url str pos val)
(setq xml (vlax-create-object "Msxml2.XMLHTTP"))
(setq url "http://api.k780.com:88/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json")
(vlax-invoke xml 'open "GET" url nil)
;(vlax-invoke xml 'SetRequestHeader "If-Modified-Since" "0")
(vlax-invoke xml 'send)
(if (= "OK" (vlax-get xml 'statusText))
(setq str (vlax-get xml 'responsetext)
xml (vlax-release-object xml)
pos (+ 14 (vl-string-search "datetime_1" str))
val (substr str pos 19)
)
)
)

或者这样：

(defun HFB:InternetTime ( / xml url)
(setq xml (vlax-create-object "Msxml2.XMLHTTP"))
(setq url "https://www.baidu.com")
(vlax-invoke xml 'open "GET" url nil)
(vlax-invoke xml 'send)
(command "delay" 200)
(vlax-invoke xml 'GetResponseHeader "Date")
)

Source_Liu · 发表于 2022-9-13 16:06:49

   时间服务器如下：
      "http://www.baidu.com";//百度
      "http://www.taobao.com";//淘宝
      "http://www.ntsc.ac.cn";//中国科学院国家授时中心
      "http://www.360.cn";//360
      "http://www.beijing-time.org";//beijing-time

liunian0524 · 发表于 2022-9-9 08:01:36

感谢分享，回复看隐藏

自贡黄明儒 · 发表于 2022-9-9 08:01:49

向长老学习一下，感谢分享

LIULISHENG · 发表于 2022-9-9 08:15:02

感谢分享感谢分享

guosheyang · 发表于 2022-9-9 08:16:21

感谢大佬共享源码！

marcoyuwen · 发表于 2022-9-9 08:18:47

感谢分享,感谢

spp_wall · 发表于 2022-9-9 08:25:52

感谢大佬共享源码！

llsheng_73 · 发表于 2022-9-9 08:29:17

回复看隐藏

xj6019 · 发表于 2022-9-9 08:29:21

感谢大佬共享源码！

czb203 · 发表于 2022-9-9 08:32:57

感谢分享，回复看隐藏

账号		自动登录	找回密码
密码			注册

[源码] 发一个获取网络日期的源码

本帖子中包含更多资源

评分