vlisp&测绘

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)

)

«   2019年2月   »
123
45678910
11121314151617
18192021222324
25262728
网站分类
搜索
文章归档
网站收藏
友情链接
  • RainbowSoft Studio Z-Blog
  • 订阅本站的 RSS 2.0 新闻聚合

Powered By Z-BlogPHP 1.5.1 Zero

Copyright 青云小站. Some Rights Reserved.【ICP备案:滇ICP备17005149号】【滇公网安备 53011202000333号