In diesem Beitrag möchte ich euch zeigen, wie einfach es ist in VB.NET einen DNS Namen in eine oder mehrere IPs umzuwandeln.

Um dies zu verwirklichen stellt uns .NET das namespace System.Net zur Verfügung, das die nötigen Funktionen enthällt!

Erstellt ein neues Formular mit folgendem Form_Load() Event:

    Private Sub Form1_Load() Handles MyBase.Load
        Dim adressen As String = ""
        Try
            Dim hostInfo As IPHostEntry = Dns.Resolve(InputBox("DNS"))

            Dim address As IPAddress() = hostInfo.AddressList

            For index = 0 To address.Length - 1
                adressen = adressen & address(index).ToString & vbNewLine
            Next index
        Catch
        End Try

        MessageBox.Show(adressen)

        End
    End Sub



Hier wird nichts anderes gemacht, als zu Beginn nach einer Eingabe zu fragem (InputBox) die dann in in eine IP umgewandelt wird. Dann erstellen wir einen IPAdress Array und speichern die Ergebnisse dort.
Anschließend werden alle IPAdressen in einem String gespeichert und in einer MessageBox ausgegeben!