IP range

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    IP range

    Hallo Nutzer, ich arbeite gerade ein einem Server-tool,das bisher fasst fertig ist.
    Aber ich möchte da jetzt ein Funktion einbauen das alle IP´s zwischen 2 IP scannt und ihren online-status
    anzeigt, also ein IP range. Ich habe es bisher so gemacht, ich habe 2 ip in eine Textbox eingegeben, das programm berechnet alle möglichen ip´s und scannt die mit ping ab. Das dauert mir aber viel zu lange, gibt es das nicht einen direkten Weg ?

    Danke schonmal im vorraus

    ja aber ich mache es bisher so :

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    4. Public Class Form1
    6. Private Function IP2Int(ByVal ip As String) As Int32
    7. 'split zerteilt ip in 4 strings, die je eine Zahl darstellen
    8. 'Byte.Parse wandelt je ein Segment in ein Byte um
    9. 'Select sammelt diese Bytes in ein IEnumerable(Of Bytes)
    10. 'ToArray macht daraus ein Byte-Array
    11. Dim bytes = (From s In ip.Split(".") Select Byte.Parse(s)).ToArray
    12. Array.Reverse(bytes) 'dreht die Reihenfolge um
    13. Dim integers(0) As Int32 'ein Array von Int32 mit nur einem Element
    14. ' (ein Int32 ist genauso groß wie 4 Bytes)
    15. 'BlockCopy kann ein Array des einen Typs byte-weise umkopieren in ein Array eines anderen Typs
    16. 'kopiert also die 4 Bytes auf den Int32
    17. Buffer.BlockCopy(bytes, 0, integers, 0, 4)
    18. Return integers(0) 'den Int32 returnen
    19. End Function
    21. Private Function Int2IP(ByVal n As Integer) As String
    22. Dim integers = New Integer() {n} 'ein Array von Int32 mit nur dem einem Element
    23. Dim bytes(3) As Byte 'Array mit 4 Bytes
    24. Buffer.BlockCopy(integers, 0, bytes, 0, 4) 'den Int32 auf die 4 Bytes kopieren
    25. Array.Reverse(bytes) 'reihenfolge umdrehen
    26. 'Byte-Array in ein String-Array konvertieren
    27. Dim strings = bytes.Select(Function(b) b.ToString)
    28. 'Strings verketten und returnen
    29. Return String.Join(".", strings.ToArray)
    30. End Function
    33. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    35. End Sub
    37. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    38. Dim ip0 = TextBox1.Text
    39. Dim ip1 = TextBox2.Text
    40. 'Die Schleife zählt von der einen ip-Repräsentation zur anderen
    41. For i = IP2Int(ip0) To IP2Int(ip1)
    42. ListBox1.Items.Add(Int2IP(i)) 'zurückgewandelte ip-Repräsentationen ausgeben
    43. Next
    45. End Sub
    47. Private Sub statuscheck()
    48. If My.Computer.Network.Ping(ListBox1.SelectedItem) = True Then
    50. Else
    51. ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    52. End If
    53. End Sub
    56. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    57. timer1.start()
    58. End Sub
    60. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    61. ListBox1.SelectedIndex += 1
    62. statuscheck()
    63. End Sub
    64. End Class


    aber das geht doch schneller oder anders oder ?

    Hi,
    schneller könntest du es u.U. machen, indem du Threads benutzt, welche dann jeweilige IPs anpingen. Dadurch würdest du dann eine parallele Verarbeitung erreichen. Ich bin mir dabei nur nicht sicher, ob das auch so eiwandfrei funktioniert. Aber ich denke der Grundgedanke sollte hinhauen.

Facebook
Telefonspende