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

黄翔 · 发表于 2022-9-9 09:18:37

本帖最后由黄翔于 2022-9-9 09:26 编辑

看下,学习一下!
和http://bbs.mjtd.com/forum.php?mo ... 8%C2%E7%CA%B1%BC%E4差不都.

hh_lj007 · 发表于 2022-9-9 09:24:57

感谢分享！

spoon37 · 发表于 2022-9-9 09:27:06

666666666666

434939575 · 发表于 2022-9-9 09:59:34

大佬的每期必看。感谢分享！

wzg356 · 发表于 2022-9-9 10:10:35

学习还得继续

819534890 · 发表于 2022-9-9 10:18:16

呵呵，不错不错

start4444 · 发表于 2022-9-9 10:29:28

感谢大佬分享！

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)
)
)
)

或者这样：

highflybird · 发表于 2022-9-9 10:52:35

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

baitang36 发表于 2022-9-9 08:54
不知道这个网站是什么机构办的，这机构会不会倒闭

用Lee-mac的那个网站应该不会倒闭，但不知道会不会被封？

而且他那个网站是英国时间，要加8才能是中国时间。
如果要准确和保险一点，不妨多弄两个网站。

foer123 · 发表于 2022-9-9 11:28:41

感谢分享，回复看隐藏

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

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