Показанный подключенный адаптер

Question

Я хочу показать только подключенный адаптер с ip-адресом с одного компьютера. В настоящее время у меня есть этот код, но он также показывает loopback-адаптер. Как я могу показать только рабочий статус только для отображения?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim Interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces 
    Dim adapter As NetworkInterface 
    Dim myAdapterProps As IPInterfaceProperties = Nothing 
    Dim myGateways As GatewayIPAddressInformationCollection = Nothing 

    For Each adapter In Interfaces 
     TextBox1.AppendText("" & Environment.NewLine) 
     If adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback Then 
      Continue For 
     End If 
     TextBox1.AppendText(adapter.Name & Environment.NewLine) 
     TextBox1.AppendText(adapter.Description & Environment.NewLine) 
     myAdapterProps = adapter.GetIPProperties 
     myGateways = myAdapterProps.GatewayAddresses 
     Dim IPInfo As UnicastIPAddressInformationCollection = adapter.GetIPProperties().UnicastAddresses 
     Dim properties As IPInterfaceProperties = adapter.GetIPProperties() 

     For Each IPAddressInfo As UnicastIPAddressInformation In IPInfo 

      TextBox1.AppendText("IP Address : " & IPAddressInfo.Address.ToString & Environment.NewLine) 

    Next 
End Sub 

Answer 1

Вы почти находитесь. Если вы хотите видеть только адаптеры, которые имеют статус до, затем исключить все адаптеры, которые не имеют такой статус в вашем continue отрасли:

adapter.OperationalStatus <> OperationalStatus.Up 

Если вы хотите дополнительно удалить адаптер Teredo с выхода, затем исключить адаптер, если имя содержит слово Teredo:

adapter.Name.Contains("Teredo") 

Измененный код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim Interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces 
Dim adapter As NetworkInterface 
Dim myAdapterProps As IPInterfaceProperties = Nothing 
Dim myGateways As GatewayIPAddressInformationCollection = Nothing 

For Each adapter In Interfaces 
    TextBox1.AppendText("" & Environment.NewLine) 
    If adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback _ 
    or adapter.OperationalStatus <> OperationalStatus.Up _ 
    or adapter.Name.Contains("Teredo") Then 
     Continue For 
    End If 
    TextBox1.AppendText(adapter.Name & Environment.NewLine) 
    TextBox1.AppendText(adapter.Description & Environment.NewLine) 
    myAdapterProps = adapter.GetIPProperties 
    myGateways = myAdapterProps.GatewayAddresses 
    Dim IPInfo As UnicastIPAddressInformationCollection = adapter.GetIPProperties().UnicastAddresses 
    Dim properties As IPInterfaceProperties = adapter.GetIPProperties() 

    For Each IPAddressInfo As UnicastIPAddressInformation In IPInfo 
     TextBox1.AppendText("IP Address : " & IPAddressInfo.Address.ToString & Environment.NewLine) 
    Next IPAddressInfo 
Next 

End Sub 

В этом случае должны отображаться не местные адаптеры, а не только адаптеры Teredo.