IP-Bereich (10.13.214.) anpingen

  • VB.NET

Es gibt 34 Antworten in diesem Thema. Der letzte Beitrag () ist von vb-checker.

    Ja kann man. Heißt aber noch lange nicht, dass die Vorgänge parallel ablaufen. Meiner Meinung nach geht das nämlich nicht (wie willst du mehrere Signale gleichzeitig über eine Leitung übertragen?). Aber ist ja eigentlich egal, so lange es von der Netzwerkkarte als pseudo-parallel dargestellt wird ^^

    Nimm 100 Threads und fertig. Zu viele Threads würde ich auch nicht benutzen wegen evtlem Overhead. Kenne mich damit aber nicht aus, also probiers einfach.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Hey,

    mach Dir halt die Parallel.For, bzw. Parallel.ForEach Funktionen aus dem System.Threading.Tasks Namespace zu nutze.

    VB.NET-Quellcode

    1. Imports System.Threading.Tasks
    2. Imports System.Net.NetworkInformation
    3. Imports System.Threading
    5. Public Class Form1
    6. Private _listIPs As New List(Of String)
    7. Private _listReplys As New List(Of PingReply)
    9. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    10. Dim t As New Thread(AddressOf ExecutePings)
    12. t.Start()
    13. End Sub
    15. Private Sub ExecutePings()
    16. Parallel.ForEach(_listIPs, Sub(ip)
    17. Dim pReq As New Ping()
    18. Dim pRes As PingReply = pReq.Send(ip)
    20. _listReplys.Add(pRes)
    21. End Sub)
    22. End Sub
    24. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    25. _listIPs.Add("192.168.2.5")
    26. _listIPs.Add("192.168.2.7")
    27. _listIPs.Add("192.168.2.77")
    28. _listIPs.Add("192.168.2.78")
    29. _listIPs.Add("192.168.2.65")
    30. _listIPs.Add("192.168.2.11")
    31. End Sub
    32. End Class


    Falls Du die Ping-Klasse aus dem System.Net.NetworkInformation Namespace nutzt: Die haben auch Async-Methoden.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Danke für eure Antworten.
    Da ich es nicht so ganz verstehe mit den Threads, poste ich jetzt einfach mal den Code, welchen ich bisher gemacht habe. Die Punkte bedeuten, dass da noch die ganzen pings für die IP´s dazwischen noch rein müssen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System
    3. Imports System.Net
    4. Imports System.Net.NetworkInformation
    6. Public Class Form1
    8. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    9. Using host As New Net.NetworkInformation.Ping
    10. ' Abfrage Netz A
    11. Dim reply As PingReply = host.Send("10.13.214.1")
    12. If reply.Status = IPStatus.Success Then
    13. Label1.Text = "Netz = A"
    14. End If
    15. reply = host.Send("10.13.214.2")
    16. If reply.Status = IPStatus.Success Then
    17. Label1.Text = "Netz = A"
    18. End If
    19. reply = host.Send("10.13.214.3")
    20. If reply.Status = IPStatus.Success Then
    21. Label1.Text = "Netz = A"
    22. End If
    23. reply = host.Send("10.13.214.4")
    24. If reply.Status = IPStatus.Success Then
    25. Label1.Text = "Netz = A"
    26. End If
    27. reply = host.Send("10.13.214.5")
    28. If reply.Status = IPStatus.Success Then
    29. Label1.Text = "Netz = A"
    30. End If
    31. .
    32. .
    33. .
    34. reply = host.Send("10.13.214.255")
    35. If reply.Status = IPStatus.Success Then
    36. Label1.Text = "Netz = A"
    37. End If
    38. ' Abfrage Netz B
    39. reply = host.Send("10.14.196.1")
    40. If reply.Status = IPStatus.Success Then
    41. Label1.Text = "Netz = B"
    42. End If
    43. reply = host.Send("10.14.196.2")
    44. If reply.Status = IPStatus.Success Then
    45. Label1.Text = "Netz = B"
    46. End If
    47. reply = host.Send("10.14.196.3")
    48. If reply.Status = IPStatus.Success Then
    49. Label1.Text = "Netz = B"
    50. End If
    51. reply = host.Send("10.14.196.4")
    52. If reply.Status = IPStatus.Success Then
    53. Label1.Text = "Netz = B"
    54. End If
    55. reply = host.Send("10.14.196.5")
    56. If reply.Status = IPStatus.Success Then
    57. Label1.Text = "Netz = B"
    58. End If
    59. .
    60. .
    61. .
    62. reply = host.Send("10.14.196.255")
    63. If reply.Status = IPStatus.Success Then
    64. Label1.Text = "Netz = B"
    65. End If
    66. ' Abfrage Netz C
    67. reply = host.Send("10.15.201.1")
    68. If reply.Status = IPStatus.Success Then
    69. Label1.Text = "Netz = C"
    70. End If
    71. .
    72. .
    73. .
    75. End Using
    77. End Sub
    78. End Class

    Hey,

    ich hab Dir doch oben ein Beispiel gegeben. Wenn Du mit den Threads nicht klar kommst, dann lass die halt weg, die Anwendung wird dann eben blockieren. Speicher die IPs, die Du anpingen willst, evtl. in einer Textdatei und lies diese ins Programm ein. Vorteil hier, Du musst, wenn sich etwas ändert, nicht den Programmcode ändern.

    VB.NET-Quellcode

    1. dim ips() as String = File.ReadAllLines("Pfad")


    Pingen kannst Du dann in einer ForEach-Schleife, mit extra oder ohne extra Thread. Somit ist der Nudel-Code Geschichte.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    ok habe jetzt den code von SpaceyX genommen und schon mal mit meinen IP-Beispielen versehen.

    VB.NET-Quellcode

    1. Imports System.Threading.Tasks
    2. Imports System.Net.NetworkInformation
    3. Imports System.Threading
    5. Public Class Form1
    6. Private _listIPs As New List(Of String)
    7. Private _listReplys As New List(Of PingReply)
    9. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    10. Dim t As New Thread(AddressOf ExecutePings)
    12. t.Start()
    13. End Sub
    15. Private Sub ExecutePings()
    16. Parallel.ForEach(_listIPs, Sub(ip)
    17. Dim pReq As New Ping()
    18. Dim pRes As PingReply = pReq.Send(ip)
    20. _listReplys.Add(pRes)
    21. End Sub)
    22. End Sub
    24. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    25. ' Abfrage Netz A
    26. _listIPs.Add("10.13.214.1")
    27. _listIPs.Add("10.13.214.7")
    28. _listIPs.Add("10.13.214.77")
    29. _listIPs.Add("10.13.214.78")
    30. _listIPs.Add("10.13.214.65")
    31. _listIPs.Add("10.13.214.11")
    32. ' Abfrage Netz B
    33. _listIPs.Add("10.14.196.1")
    34. _listIPs.Add("10.14.196.7")
    35. _listIPs.Add("10.14.196.77")
    36. _listIPs.Add("10.14.196.78")
    37. _listIPs.Add("10.14.196.65")
    38. _listIPs.Add("10.14.196.11")
    39. ' Abfrage Netz C
    40. _listIPs.Add("10.14.196.1")
    41. _listIPs.Add("10.14.196.7")
    42. _listIPs.Add("10.14.196.77")
    43. _listIPs.Add("10.14.196.78")
    44. _listIPs.Add("10.14.196.65")
    45. _listIPs.Add("10.14.196.11")
    46. End Sub
    47. End Class


    Jetzt aber noch eine Frage dazu : sollte eine IP aus dem ersten Abschnitt erreichbar sein, wie bekomme ich das dann mit und kann dann damit weiter verfahren? also in meinem vorhergehenden code hatte ich dies per

    VB.NET-Quellcode

    1. reply = host.Send("10.14.196.5")
    2. If reply.Status = IPStatus.Success Then
    3. Label1.Text = "Netz = B"

    gelöst. wie kann ich es nun auslesen?

    damit das Programm nicht einschläft während der pings, kann ich das ganze ja auch in einen backgroundworker setzen!?

Facebook