Auflösen mehrerer Hostnamen in ihre IP

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von HaRoWagner.

    Auflösen mehrerer Hostnamen in ihre IP

    Hallo zusammen,

    ich schreibe gerade ein Programm, das eine Liste von Hostnamen die in einer Textbox untereinander stehen in die IP Adresse auflöst.
    Ich habe zuvor schon mal eines geschrieben und nslookup verwendet, dies möchte ich jedoch nicht mehr. Im System.Net namespace gibts ja noch DNS.
    Damit habe ich aber ein kleines Problem. Einen Hostnamen auflösen geht wunderbar, bei einem Weiteren bekomme ich eine Fehlermeldung beim Ausführen des Programms:
    "SocketException wurde nicht behandelt. - Der angeforderte Name ist gültig, es wurden jedoch keine Daten des angeforderten Typs gefunden"

    Hier der Code:

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Dim Lines() As String
    8. Lines = TextBox1.Text.Split(Environment.NewLine)
    10. For i As Integer = 0 To Lines.Length - 1
    12. Dim hostname As IPHostEntry = Dns.GetHostByName(Trim$(Lines(i)))
    13. Dim ip As IPAddress() = hostname.AddressList
    14. TextBox2.Text = ip(0).ToString()
    16. Next
    18. End Sub
    20. End Class

    In Zeile 8 wird die Textbox1, wo die Hostnamen untereinander drin stehen (ca. 200), Zeile für Zeile in das Array Lines() übertragen.Danach sollte die For-schleife den Rest erledigen. Der erste Host klappt noch, bei einem Weiteren kommt oben genannte fehlermeldung :(
    Könnt Ihr mir sagen was ich falsch gemacht habe?Vielen Dank im Voraus
    GrußBene

    Das scheint er ordentlich zu machen:

    VB.NET-Quellcode

    1. For i As Integer = 0 To Lines.Length - 1
    3. 'Dim hostname As IPHostEntry = Dns.GetHostByName(Trim$(Lines(i)))
    4. 'Dim ip As IPAddress() = hostname.AddressList
    5. 'TextBox2.Text = ip(0).ToString()
    7. MsgBox(Lines(i))
    10. Next


    er gibt nun jede Zeile einzeln korrekt und ohne Fehler in einer Textbox wieder.

    einzeln macht er das ja, aber sobald er den zweiten hostnamen in der Liste nimmt, tritt der fehler auf.
    Ich hatte zuerst nslookup verwendet in meinem früheren Programm und die entsprechenden Stellen herausschneiden lassen. Das ging bis auf einige Ausnahmen recht gut. Allerdings wollte ich es nun mit der DNS-Klasse lösen ;)

    Hey,

    erstmal mach OPTION STRICT ON, zweitens wirf die uralten VB Funktionen aus Deinem Code.

    Probier mal mit DNS.GetHostEntry. Hier ist ein Try-Catch glaub ich angebracht, da man einfach fangen muss, wenn ein ungültiger Host angegeben wird. Bei mir klappt es so einwandfrei, egal, wieviele Hosts ich auflösen will.

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    4. Private _hostsToResolve As New List(Of String)
    5. Private _resolvedHosts As New Dictionary(Of String, List(Of IPAddress))
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. ResolveHosts()
    9. End Sub
    11. Private Sub ResolveHosts()
    12. For Each s As String In _hostsToResolve
    13. Try
    14. Dim entries As IPHostEntry = Dns.GetHostEntry(s)
    16. _resolvedHosts.Add(s, entries.AddressList.ToList())
    17. Catch ex As Sockets.SocketException
    18. _resolvedHosts.Add(s, Nothing)
    19. End Try
    20. Next
    21. End Sub
    23. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    24. _hostsToResolve.AddRange({"google.de", "alternate.de", "vb-paradise.de", "youtube.com", "bbx,,,m,hnn.oo"})
    25. End Sub
    26. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hallo SpaceyX,

    erst einmal Danke für deine Hilfe ;) .
    Jedoch tun sich da bei mir ein paar Fragen auf:

    1. Funktioniert dies auch mit dem splitten der Textbox in ein array wie in meinem code?
    2. Irgendwie vermisse ich die Ausgabe der aufgelösten IP-Adressen. Er gibt irgendwie keine Rückmeldung was denn nun die IPs der aufgelösten hosts sind.

    Gedacht hatte ich es mir so, das, man in der ersten Textbox die Hosts hinein kopiert und nach dem klick auf den Button, er die dazugehörigen IP-Adressen in die Textbox 2 schreibt.

    Danke und viele Grüße
    Bene

    Hey,

    1. Wo Du Deine Eingabewerte herbekommst ist völlig egal. Entweder aus einer TextBox, Datenbank, was weiß ich.

    2. Die Ausgabe sollte eigentlich doch nur noch ne Kleinigkeit sein, findest nicht? TextBoxen halte ich hier nicht gerade für die erste Wahl, da ein Host mehrere zugeordnete IPs haben kann. Siehe YouTube, da sinds über 10. Ich würd das ganze in ein DataSet packen und in einem DataGridView darstellen.

    Wie gesagt, versuch Dich mal selber daran, die aufgelösten Hosts Deinen Wünschen nach auszugeben. Wenn Du nicht weiter kommst, dann poste hier einfach wieder.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hmm so ganz genau weis ich nicht wie ich aus den "_resolvedHosts" die IP raus bekomme (bin noch quasi Anfänger *g*), aber hier ist der Code soweit ich wusste:

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    5. Private _hostsToResolve As New List(Of String)
    6. Private _resolvedHosts As New Dictionary(Of String, List(Of IPAddress))
    8. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    10. Dim Input() As String
    11. Dim i As Integer
    12. Input = TextBox1.Text.Split(Environment.NewLine)
    14. For i = 0 To Input.Length - 1
    16. Output.Rows(0).Cells(0).Value = Input(i)
    17. _hostsToResolve.AddRange({Trim$(Input(i))})
    18. ResolveHosts()
    20. Next
    22. End Sub
    24. Private Sub ResolveHosts()
    25. For Each s As String In _hostsToResolve
    26. Try
    27. Dim entries As IPHostEntry = Dns.GetHostEntry(s)
    29. _resolvedHosts.Add(s, entries.AddressList.ToList())
    31. Output.Rows(0).Cells(1).Value = entries.AddressList.ToString
    33. Catch ex As Sockets.SocketException
    34. _resolvedHosts.Add(s, Nothing)
    35. End Try
    36. Next
    37. End Sub
    39. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    40. '_hostsToResolve.AddRange({"google.de", "alternate.de", "vb-paradise.de", "youtube.com", "bbx,,,m,hnn.oo"})
    42. End Sub
    45. End Class


    beim Versuch _resolvedHosts auszugeben (z.b. msgbox(_resolvedHosts.Tostring) oder Textbox1.Text = _resolvedHosts.ToString) schreibt er komisches zeug, und ohne sagt er, das er das nicht in String umwandeln kann oO

    Hey,

    bin ein bisschen spät dran mit der Antwort, hatte zu tun.

    Also, wenn Du noch Anfänger bist, ist das alles wohl etwas "overkill" für Dich. Man kann diese Aufgabe auf vielen Wegen lösen. Ich poste Dir mal Code.

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    4. Private Function ResovleHost(hostName As String) As List(Of IPAddress)
    5. Try
    6. Dim entries As IPHostEntry = Dns.GetHostEntry(hostName)
    7. Dim tmpList As New List(Of IPAddress)
    9. tmpList.AddRange(entries.AddressList)
    10. Return tmpList
    11. Catch ex As Sockets.SocketException
    12. Return Nothing
    13. End Try
    14. End Function
    16. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    17. 'DataSet leeren.
    18. HostsDataSet1.HostsTable.Clear()
    20. Dim hosts As New List(Of String)
    22. 'Eingabe verarbeiten. Hosts werden mit "," getrennt und vorher noch alle Leerzeichen gelöscht.
    23. hosts.AddRange(TextBox1.Text.Trim().Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries))
    25. For Each s As String In hosts
    26. 'Temporäre Liste, die das Ergebnis der Abfrage hält.
    27. Dim tmpList = ResovleHost(s)
    29. 'Falls ein Ergebnis zurückgegeben wurde => verarbeiten.
    30. If Not tmpList Is Nothing AndAlso tmpList.Count > 0 Then
    31. 'IP Nr. 1 in der AddressList.
    32. Dim ip1 As String = tmpList(0).ToString()
    33. Dim moreIps As String = String.Empty
    35. 'Falls mehrere IPs mit dem Host verbunden sind, diese auch entsprechend verarbeiten.
    36. If tmpList.Count > 1 Then
    37. 'Hier werden die IPs in Strings gewandelt und wieder, mit einem Leerzeichen getrennt, zusammengefügt.
    38. moreIps = String.Join(" ", tmpList.GetRange(1, tmpList.Count - 2).ConvertAll(New Converter(Of IPAddress, String)(Function(ip) ip.ToString())).ToArray())
    39. End If
    41. 'Dem DataSet eine neue Row hinzfügen.
    42. HostsDataSet1.HostsTable.AddHostsTableRow(s, ip1, moreIps)
    43. Else
    44. 'Falls die Abfrage nicht erfolgreich war.
    45. HostsDataSet1.HostsTable.AddHostsTableRow(s, "Host konnte nicht aufgelöst werden", "")
    46. End If
    47. Next
    48. End Sub
    49. End Class


    Beachte bitte die Kommentare im Code, ich hab versucht, es so gut wie möglich zu erklären.

    Hier noch ein kleines Video, wie es arbeitet:

    [media]
    youtube.com/watch?v=JMTGvlKSRDo&feature=youtu.be
    [/vb]

    Ich würde das etwa so lösen, leider wirds für einen Anfänger etwas schwer zu verstehen sein ;(
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hey super, ich danke dir ;)

    Habs in der Zwischenzeit nochmal mit meinem ersten Programm versucht und dort, wie du angedeutet hast, mit nem DataGridView gearbeitet.
    Das läuft jetzt echt gut und es traten auch keine Fehler mehr auf. Glaub das lag auch teilweise daran, der er beim ständigen auslesen und reinschreiben in Textboxen nicht ganz sauber war.
    Hier der Code, nicht schön, aber funktioniert xD

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
    5. Dim Lines() As String
    6. Lines = TextBox1.Text.Split(Environment.NewLine)
    8. Dim i As Integer
    10. Output.Rows.Add(Lines.Length - 1)
    12. For i = 0 To Lines.Length - 1
    14. 'Getting IP-Adress
    16. Lines(i) = Trim$(Lines(i))
    18. Output.Rows(i).Cells(0).Value = Lines(i)
    19. Dim IP As String = ""
    20. Dim targettmp As String = ""
    21. Dim oInfo As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo("nslookup", " " & Lines(i))
    22. oInfo.UseShellExecute = False
    23. oInfo.ErrorDialog = False
    24. oInfo.CreateNoWindow = True
    25. oInfo.RedirectStandardOutput = True
    26. Dim p As Process = System.Diagnostics.Process.Start(oInfo)
    27. Dim oReader As System.IO.StreamReader = p.StandardOutput
    28. targettmp = Trim$(oReader.ReadToEnd())
    31. Dim Sep1 As String = Trim$(targettmp.LastIndexOf("Address:"))
    32. IP = Trim$(targettmp.Substring(Sep1 + 8, 16))
    34. If IP = "" Then
    35. Output.Rows(i).Cells(1).Value = "NO IP"
    37. Else
    38. Output.Rows(i).Cells(1).Value = IP
    40. End If
    42. oReader.Close()
    45. 'Getting Hostname
    47. Dim hostname2 As String = ""
    48. targettmp = ""
    50. Dim oInfo2 As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo("nslookup", " " & Output.Rows(i).Cells(1).Value)
    51. oInfo2.UseShellExecute = False
    52. oInfo2.ErrorDialog = False
    53. oInfo2.CreateNoWindow = True
    54. oInfo2.RedirectStandardOutput = True
    55. Dim p2 As Process = System.Diagnostics.Process.Start(oInfo)
    56. Dim oReader2 As System.IO.StreamReader = p2.StandardOutput
    57. targettmp = oReader2.ReadToEnd()
    59. Try
    60. Dim Sep2 As String = Trim$(targettmp.IndexOf("Name:"))
    61. Dim Sep3 As String = Trim$(targettmp.LastIndexOf("Address:"))
    62. targettmp = Trim$(targettmp.Substring(Sep2 + 5, Sep3 - Sep2 - 5))
    63. Sep2 = targettmp.IndexOf(".")
    64. hostname2 = Trim$(targettmp.Substring(0, Sep2))
    66. If hostname2 = "" Then
    67. Output.Rows(i).Cells(2).Value = "NO HOSTNAME"
    69. Else
    70. Output.Rows(i).Cells(2).Value = hostname2
    72. End If
    74. oReader.Close()
    76. Catch ex As Exception
    78. MsgBox(ex.Message)
    80. End Try
    82. 'Compare resolved Hostnames
    85. If Output.Rows(i).Cells(0).Value = Output.Rows(i).Cells(2).Value Then
    87. Output.Rows(i).Cells(3).Value = "OK"
    89. Else
    90. Output.Rows(i).Cells(3).Value = "MISMATCH"
    92. End If
    94. 'Output.Rows.Add()
    96. Next i
    99. End Sub
    101. Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
    102. Me.Close()
    103. End Sub
    105. End Class

    Edit:Ich glaub so ganz hab ich noch nicht verstanden wie DataSets und DataGridViews funktionieren. wollte deinen Code grad testen und bekomme einen Fehler nicht beseitigt der da lautet:"HostsTable" ist kein Member von "System.Data.DataSet"
    ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xCST“ ()

    Hallo SpaceyX,

    klasse Dein Progrämmchen, aber ich bin trotzdem gleich über einen Fehler gestolpert.
    Liegt daran, dass ich hinter einem Komma immer ein Leerzeichen eingebe.

    SpaceyX schrieb:

    VB.NET-Quellcode

    1. 'Eingabe verarbeiten. Hosts werden mit "," getrennt und vorher noch alle Leerzeichen gelöscht.
    2. hosts.AddRange(TextBox1.Text.Trim().Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries))

    Die Funktion trimmt nur den String und splittet dann.
    So funktioniert es für mich:

    VB.NET-Quellcode

    1. hosts.AddRange(TextBox1.Text.Split(New String() {",", " "}, StringSplitOptions.RemoveEmptyEntries))


    Grüße,
    Haro

Facebook
Telefonspende