获取外网IP地址

jun353835273

2. (defun getuip( address / ob html)
   
3.         (setq ob (vlax-create-object "Msxml2.XMLHTTP"))
   
4.         (vlax-invoke-method ob "open" "get" address "false")
   
5.         (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list ob "send")))
   
6.                 (princ "\nµ±Ç°ÎÞÍøÂçÁ¬½Ó")
   
7.                 (setq html (vlax-get-property ob "responseText"))
   
8.         )
   
9.         (vlax-release-object ob)
   
10.         html
    
11. )
    
12. (getuip "http://icanhazip.com" )

(defun getuip( address / ob html)<br />         (setq ob (vlax-create-object "Msxml2.XMLHTTP"))<br />         (vlax-invoke-method ob "open" "get" address "false")<br />         (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list ob "send")))<br />                 (princ "\n&micro;±&Ccedil;°&Icirc;&THORN;&Iacute;&oslash;&Acirc;&ccedil;&Aacute;&not;&frac12;&Oacute;")<br />                 (setq html (vlax-get-property ob "responseText"))<br />         )<br />         (vlax-release-object ob)<br />         html<br /> )<br /> (getuip "http://icanhazip.com" )

ynhh

请教大师，这可以有内网的吗？
外网可判断地区，不知如有内网的话能判断什么？

jun353835273

ynhh 发表于 2020-7-4 12:45
请教大师，这可以有内网的吗？
外网可判断地区，不知如有内网的话能判断什么？

可以简单的判断内网的ip地址

或者参看晓东论坛有
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=714967&highlight=ping
(XD::Internet:Ping "www.baidu.com")
(defun XD::Internet:Ping (address / out ws)
  (and (setq ws (vlax-get-or-create-object "WScript.Shell"))
       (setq out (vlax-invoke
                   ws
                   'run
                   (strcat "ping.exe -n 1 " address)
                   0
                   :vlax-true
                 )
       )
       (vlax-release-object ws)
       (zerop out)
  )
)

松树石头哥