以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样得到本机的IP?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82777)
--  作者：QF-HSY
--  发布时间：2016/3/24 15:55:00
--  怎样得到本机的IP?
如题，怎样得到本机的IP?
--  作者：大红袍
--  发布时间：2016/3/24 16:02:00
--  
Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
OutPut.Show( HostName )  \'本机机器名 
OutPut.Show(IPAdress.ToString )  \'本机的IP
--  作者：大红袍
--  发布时间：2016/3/24 16:05:00
--  

外网ip地址

 

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.ip138.com/ic.asp")
WinHttpReq.Send
\'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If

--  作者：QF-HSY
--  发布时间：2016/3/24 16:15:00
--  
谢谢