Hallo,
ich habe eine IP-Range die ich durchpingen will.
Bis jetzt mache ich das so:
Spoiler anzeigen
Aber wie mache ich das das nur 10 Pings zur Zeit laufen, und wenn ein Ping durch ist dafür ein neuer gestartet wird?
Habs mit - If laufendeThreads < nMaxThreads.Value Then - probiert, aber damit kam er nur bis 10!
ich habe eine IP-Range die ich durchpingen will.
Bis jetzt mache ich das so:
VB.NET-Quellcode
- Private Sub ping(ByVal startIP As String, ByVal endIP As String)
- Dim IPStart As Integer = IPData.IP2Int(startIP)
- Dim IPEnd As Integer = IPData.IP2Int(endIP)
- pCounter = IPEnd - IPStart
- For i = IPStart To IPEnd
- Dim pingreq As Ping = New Ping()
- Dim sIP = IPData.Int2IP(i)
- AddHandler pingreq.PingCompleted, AddressOf PingResult
- pingreq.SendAsync(sIP, CInt(nTimeout.Value), sIP)
- Next
- End Sub
Aber wie mache ich das das nur 10 Pings zur Zeit laufen, und wenn ein Ping durch ist dafür ein neuer gestartet wird?
Habs mit - If laufendeThreads < nMaxThreads.Value Then - probiert, aber damit kam er nur bis 10!