VBS获取外网IP

BatHome

1. 
   
2. '/*程序名称：获取外网IP
   
3. '/*说明：核心代码源自网络，youxi01整理修改；
   
4. set oDOM = WScript.GetObject("http://ipseeker.cn//")
   
5. 
   
6. '/*/////////设置连接是否成功的标志符；/////////
   
7. flag=0
   
8. 
   
9. '/*////////设置连接次数；///////////
   
10. for i=1 to 10
    
11.    '/*///////////如果已经成功连接，则跳出for循环；////////
    
12.    if oDOM.readyState = "complete" then
    
13.       flag=1
    
14.       exit for
    
15.    end if
    
16.    WScript.sleep 500       '每0.5秒就连接一次；
    
17. next
    
18. 
    
19. if flag=0 then
    
20.     msgbox "连接超时，请重新连接...",vbExclamation,"连接超时"
    
21.     wscript.quit
    
22. end if
    
23. 
    
24. '/*///////////保存返回结果////////////
    
25. s=oDOM.documentElement.innerText
    
26. 
    
27. '/*///////////正则表达式///////////
    
28. Set Re = New RegExp
    
29. '/*//////数据匹配：数字.数字.数字.数字
    
30. Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
    
31. for each r in Re.Execute(s)
    
32.      res=r
    
33.      exit for
    
34. Next
    
35. 
    
36. msgbox "您的IP地址是："&vbcrlf&vbcrlf&res,vbInformation,"连接成功"
    

复制代码

breakan

不错！！！！！！！！！！！！！！

kx25

在我的电脑上（电信网络），不是连接超时就是返回的IP是空的，仅显示“您的IP地址是：”

yu2n

1. ' GetWanIP.vbs
   
2. If Ping("www.ip138.com") Then
   
3.   Msgbox "你的外网IP是："  & HttpGet("http://1212.ip138.com/ic.asp")
   
4. Else
   
5.   Msgbox "你的电脑没有连通外网。"
   
6. End If
   
7. 
   
8. Function HttpGet(ByVal url)
   
9.   On Error Resume Next
   
10.   With CreateObject("Msxml2.ServerXMLHTTP")
    
11.     .open "GET", url, False
    
12.     .send
    
13.     HttpGet = split(split(.responseText, "[")(1), "]")(0)
    
14.   End With
    
15. End Function
    
16. 
    
17. Function Ping(ByVal host)
    
18.   On Error Resume Next
    
19.   Ping = False
    
20.   Dim objWMIService, colItems
    
21.   Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
22.   Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & host & "'")
    
23.   For Each objItem In colItems
    
24.     If objItem.StatusCode = 0 Then Ping = True : Exit For
    
25.   Next
    
26. End Function

复制代码

CrLf

回复 4# yu2n


这个网址也挺干净：
http://city.ip138.com/ip2city.asp
之前还有一个更干净的，可惜失效了