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

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

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

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

感谢分享，回复看隐藏

页: [1] 2 3 4 5 6 7 8 9 10

明经CAD社区's Archiver

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