Dim ips As Net.IPAddress() = Net.Dns.GetHostAddresses(My.User.Name.Split("\")(0))
创新互联是一家专业提供康马企业网站建设,专注与成都网站建设、网站设计、H5开发、小程序制作等业务。10年已为康马众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
For Each ip As Net.IPAddress In ips
label1.Text = ip.ToString vbCrLf
Next
MsgBox(System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString)这是vb2008里面的格式,这是显示自己的IP,不知你是想要获取哪些IP 呢
你最好可以换台电脑访问网址看获取IP地址状况。
如果你测试访问的时候,使用的是 localhost 进行访问的,那么服务器端获得的也就是127.0.0.1,因为localhost是一个环路地址,特殊的.如果你是通过你的ip地址进行访问的,那么获得的IP地址就会是正确的了. 要通过自己本地的IP进行访问,在控制面板的网络连接里找到本地连接,查看它的属性,并找到"详细信息"按钮,点击后弹出的对话框中IPV4地址就是本地地址.或打开命令行,输入 ipconfig /all 即可找到本地地址.在浏览器中通过这个IP地址访问,就不会是127.0.0.1了.
1.获取当前电脑名:System.Net.Dns.GetHostName()
2.根据电脑名取出全部IP地址:System.Net.Dns.Resolve(电脑名).AddressList
或者 System.Net.Dns.GetHostByName(电脑名).AddressList
3.根据IP地址取出电脑名:System.Net.Dns.Resolve(IP地址).HostName