TA的每日心情 | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
[code]
(vl-load-com)
(defun LXY-IP (/ aspip xml)
(setq xml (vlax-create-object "Microsoft.XMLHTTP"))
(vlax-invoke xml 'open "get" "http://www.3322.org/dyndns/getip" 0)
(vlax-invoke xml 'setrequestheader "If-Modified-Since" 0)
(vlax-invoke xml 'send)
(setq aspip (vlax-get xml "responseText"))
(princ aspip)
(princ)
)[/code] |
|