code to parse an array of hostnames into ips

[jeltin]

so..ya, heres the code...it could probablly be simplified and sorry about no notes, mabey someone could do those things and post it to the thread

Dim arr() As String
        arr = Split(TextBox1.Text, Chr(13))
        Dim j() As IPAddress
        Dim x As Int32 = 0
        Dim f As String = ""
        Do Until x > arr.GetUpperBound(0)
            Try
                Dim ipa As IPHostEntry = Dns.GetHostEntry(arr(x))
                ReDim j(ipa.AddressList().GetUpperBound(0))
                j = ipa.AddressList()
                Dim y As Int32 = 0
                Do Until y > j.GetUpperBound(0)
                    f = f & j(y).GetAddressBytes(0) & "." & j(y).GetAddressBytes(1) & "." & j(y).GetAddressBytes(2) & "." & j(y).GetAddressBytes(3) & ","
                    y = y + 1
                Loop
            Catch ex As Exception
                f = "Invalid host"
            End Try
            arr(x) = arr(x) & " -> " & f
            f = ""
            x = x + 1
        Loop
        MsgBox("done")