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

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

看下,学习一下!
和http://bbs.mjtd.com/forum.php?mod=viewthread&tid=185592&highlight=%CD%F8%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)
)
)
)

或者这样：
(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")
)

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

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

baitang36 发表于 2022-9-9 08:54
不知道这个网站是什么机构办的，这机构会不会倒闭
用Lee-mac的那个网站应该不会倒闭，但不知道会不会被封？:lol 而且他那个网站是英国时间，要加8才能是中国时间。
如果要准确和保险一点，不妨多弄两个网站。

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


感谢分享，回复看隐藏
页: 1 2 [3] 4 5 6 7 8 9 10
查看完整版本: 发一个获取网络日期的源码