Visual Lisp获得网络时间的方法 

(defun c:tt (/ ie-obj)
  (setq ie-obj (vlax-get-or-create-object "Msxml2.xmlhttp"))
  (vlax-invoke-method ie-obj 'open  "get" "https://www.hao123.com/" 0)  
  (vlax-invoke-method ie-obj 'setRequestHeader  "If-Modified-Since" "q")
  (vlax-invoke-method ie-obj "Send")
  (if (= (vlax-get-property ie-obj "readyState" ) 4)
    (setq s (vlax-invoke-method ie-obj 'getResponseHeader "Date"))
    (alert "读取网页失败!")
    )  
  (and s (print s))
  (vlax-release-object ie-obj)
  (princ)
)
posted @ 2017-05-04 17:44  edata  阅读(2207)  评论(0)  编辑  收藏  举报