| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 知道IP地址 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141072) |
| -- 作者：kaituozhe -- 发布时间：2019/9/20 17:36:00 -- 知道IP地址 有没有办法实时知道网络中的IP地址 |
| -- 作者：wei0769 -- 发布时间：2019/9/20 17:55:00 -- 同问，怎样知道 外网IP 地址 |
| -- 作者：z769036165 -- 发布时间：2019/9/20 19:04: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
|
| -- 作者：kaituozhe -- 发布时间：2019/9/22 20:07:00 -- 我想知道的外网IP地址 |
| -- 作者：有点蓝 -- 发布时间：2019/9/22 20:36:00 -- Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP") WinHttpReq.Open("GET", "http://www.net.cn/static/customercare/yourip.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 Return mc(0).value Else Return Nothing End If
|
| -- 作者：lihe60 -- 发布时间：2019/9/22 21:56:00 -- 如何根据公网判断IP所处的位置 |
| -- 作者：有点蓝 -- 发布时间：2019/9/22 22:18:00 -- 调用一些网上的api，比如 http://ip.ws.126.net/ipquery?ip=223.88.73.137 |