Pingen und seine Fehler (VB_2005)

[Vinzenz Mai]

Hallo Cartun,

MsgBox(My.Computer.Network.Ping("www.google.de", 1000))
Wenn der Server erreichbar ist bekomme ich ein "True".
Aber nun kommts, wenn der Server nicht erreichbar ist bekomme ich kein "False" sondern eine Meldung:
"Während einer Pinganforderung ist eine Ausnahme aufgetreten."

Eine klare Meldung, ...

Ich habe versucht den ganzen Morgen diesen Fehler irgendwie abzufangen aber ich habe keine Lösung gefunden.
Habe auch die MS Hilfe für VB (http://msdn2.microsoft.com/de-de/library/he5sca5t(vs.80).aspx) hoch und runter gelesen aber komme irgendwie nicht klar damit.

... die zudem auf der von Dir angegebenen Seite beschrieben ist:

Ausnahmen

Die folgenden Bedingungen verursachen möglicherweise das Auslösen einer Ausnahme:

* Es ist keine Netzwerkverbindung verfügbar (InvalidOperationException).
    * Der URL war nicht gültig (PingException).

Du solltest also versuchen, herauszufinden, welche Ausnahme ausgelöst wurde:

Dim url As String
Dim timeout As Integer

url = ...
timeout = 1000

Try
    bResult = My.Computer.Network.Ping(url, timeout)
Catch ex As Exception
    MsgBox ("Kann " & url & " nicht anpingen. " & vbcrlf _
            "Aufgetretene Ausnahme: " & ex.Message)
End Try

Freundliche Grüße

Vinzenz