IP-Adressen ermitteln

IP-Adressen ermitteln und in ListBox speichern




Alle verfügbaren IP-Adressen ermittelt

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

Dim Addresslist() As IPAddress = Dns.GetHostByName(Dns.GetHostName()).AddressList

Dim IPs As IPAddress

ListBox1.Items.Clear() alle IP-Adressen in ListBox auflisten auflisten

For Each IPs In Addresslist

ListBox1.Items.Add(IPs.ToString)

Next IPs

End Sub