Hallo zusammen
Ich habe folgenden Code (die Prozedur 'subUpdatePingLabel' dient nur zur schönen Ansicht in der Form):
Private Sub Ping_Click(sender As System.Object, e As System.EventArgs) Handles btnPing.Click
Dim pingSender As New Ping()
Dim options As New PingOptions()
options.DontFragment = True
Dim data As String = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
Dim buffer As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
Dim timeout As Integer = 120
Dim address As String
address = txtPing.Text ' "173.194.112.24"
Dim sended As Integer = 0
Dim received As Integer = 0
Dim lost As Integer = 0
Dim times As New List(Of Long)
Dim lngNumerOfPings As Long = txtNumberOfPings.Text
If lngNumerOfPings = vbNullString Then lngNumerOfPings = 4
subUpdatePingLabel("Ping wird ausgeführt für " & address & " mit " & buffer.Length & " Bytes Daten:")
For i As Integer = 0 To lngNumerOfPings - 1
Sleep(1000)
Dim reply As PingReply = pingSender.Send(address, timeout, buffer, options)
If reply.Status = IPStatus.Success Then
subUpdatePingLabel(i + 1 & ". Antwort von " & reply.Address.ToString() & ": Bytes=" & buffer.Length & " Zeit=" & reply.RoundtripTime & "ms TTL=" & reply.Options.Ttl)
received += 1 '1 Paket empfangen'
Else
lost += 1 '1 Paket verloren'
If reply.Status = IPStatus.TimedOut Then
subUpdatePingLabel("Timeout")
Else 'Am besten noch weiter auseinander nehmen'
subUpdatePingLabel("Sonstiger Fehler")
End If
End If
sended += 1 '1 neues Paket wurden gesendet'
times.Add(reply.RoundtripTime) 'Vergangene Zeit bei dem Ping'
Threading.Thread.Sleep(200) 'Kurze Zeit warten, macht ping.exe auch - dadurch werden scheinbar timeouts verhindert'
Next
End Sub
Der Code funktioniert auch sehr gut, alles kein Problem.
Jetzt zu meiner Frage: Ich möchte dem User die Möglichkeit geben, die Ausführung dieses Codes abzubrechen, am idealsten mit "ctrl + c" (gleicher Befehl wie im DOS-Fenster). Wie kann ich das erreichen?
Danke und Gruss Thomas
