Imports System.Net
Imports System.Net.NetworkInformation
 
Module Module1
 
    Sub Main()
        ' 调用函数并打印结果
        Dim localIPs As List(Of String) = GetLocalIPv4Addresses()
        For Each ip As String In localIPs
            Console.WriteLine(ip)
        Next
 
        ' 暂停程序，以便查看输出结果
        Console.ReadKey()
    End Sub
 
    ' 获取并返回本机所有非回环的IPv4地址
    Function GetLocalIPv4Addresses() As List(Of String)
        Dim localIPs As New List(Of String)
 
        ' 获取本机所有网络接口
        Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
 
        For Each nic In nics
            ' 检查网络接口是否处于运行状态
            If nic.OperationalStatus = OperationalStatus.Up Then
                ' 遍历网络接口的所有IP地址
                Dim ipProps As IPInterfaceProperties = nic.GetIPProperties()
 
                ' 遍历IPv4地址
                For Each uniCast As UnicastIPAddressInformation In ipProps.UnicastAddresses
                    ' 过滤出IPv4地址且不是回环地址
                    If uniCast.Address.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork AndAlso
                        Not uniCast.Address.ToString().StartsWith("127.") Then
 
                        localIPs.Add(uniCast.Address.ToString())
                    End If
                Next
            End If
        Next
 
        Return localIPs
    End Function
 
End Module