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

来源：百度知道 编辑：UC知道 时间：2024/05/11 19:56:15
最好有详细的代码，谢谢

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).Addres