Pingen und seine Fehler (VB_2005)
Cartun
- programmiertechnik
Hallo leute,
ich werde bald echt verrückt und brauche eure Hilfe.
Ich versuche mit:
MsgBox(My.Computer.Network.Ping("www.google.de", 1000))
zu Pingen.
Klappt auch wunderbar.
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."
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.
Kann mir einer Helfen?
Das kann doch nicht so schwer sein oder ich bin zu "doof"!
Danke, vieleicht kann sich ja mal einer oben im Link umschauen und mir evtl. einen Tip geben.
Danke Danke Danke!
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
Hallo Vinzenz,
WoW, vielen dank für deine Hilfe, klappt wunderbar!
Jetzt kann ich weiter Programmieren und das werde ich mir merken mit dem Try!
Super vielen Dank!
Ich wünsche dir einen Schönen 2 Advent!
Thx :)