通州有啥好玩的地方:请问在VB.NET中怎样获取本机IP?
来源:百度文库 编辑:神马品牌网 时间:2024/10/04 21:49:07
最好有详细的代码,谢谢
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