查人人中国名人网上海日月光地产:请问在VB.NET中怎样获取本机IP？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 06:32:17
最好有详细的代码，谢谢
Dim IPAdress As System.Net.IPAddress
HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
Me.TextBox1.Text = HostName '本机机器名
Me.TextBox2.Text = IPAdress.ToString '本机的IP
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Net.Sockets
Public Function GetIp() As String
Dim hostName As String = System.Net.Dns.GetHostName.ToString
Dim IPString As String = "127.0.0.1"
Dim ip As System.Net.IPAddress
For Each ip In System.Net.Dns.GetHostEntry(hostName).AddressList()
If ip.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
IPString = ip.ToString
Exit For
End If
Next
Return IPString
End Function