Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB.NET | 15.06.03 |
Nach langem Suchen bin ich zu diesem funktionierendem Quellcode gekommen ... zuerst importieren wir die Klasse System.Net mit dem Befehl "Imports System.Net". Die Anweisung muss in die erste Zeile des Codefensters der Form1 geschrieben, also noch vor Public Class Form1.
Imports System.Net
Public Class Form1
...
Für unser Beispiel benötigen wir auf der Form eine ListBox und einen CommandButton. Beim Klick auf den Button werden dann alle IP-Adresse ermittelt und in die ListBox übertragen.
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
' alle IP-Adressen auflisten
ListBox1.Items.Clear
For Each IPs in Addresslist
ListBox1.Items.Add(IPs.ToString)
Next IPs
End Sub