Question

请问在VB.NET中怎样获取本机IP？

最好有详细的代码，谢谢

Answer 1

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

Answer 2

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