Hi Gemeinde.
Ich habe folgenden Code, der überprüfen soll, ob der Rechner eine aktive Internetverbindung hat.
Wenn ich nun keine Internetverbindung habe (ob der Provider mal spackt oder ich das manuell erzwinge), bekomme ich immer eine Exeption ausgeworfen (wegen Zeile 10).
System.Net.NetworkInformation.PingException
HResult=0x80131509
Nachricht = Während einer Pinganforderung ist eine Ausnahme aufgetreten.
Innere Ausnahme 1:
SocketException: Der angegebene Host ist unbekannt
Gibt es eine Alternative, dass man diesen Fehler abfangen kann, ohne dass das Programm abstürzt?
===================
EIDT
===================
Habe das wie folgt gelöst (in Try-Catch-Block gepackt):
Ist das sauber umgesetzt?
Ich habe folgenden Code, der überprüfen soll, ob der Rechner eine aktive Internetverbindung hat.
VB.NET-Quellcode
- ''' <summary>
- ''' Funktion um zu überprüfen, ob die Arbeitsstation online ist
- ''' </summary>
- ''' <returns>online = TRUE/FALSE</returns>
- Function IsOnline() As Boolean
- Dim online As Boolean = False
- If My.Computer.Network.IsAvailable = True Then
- If My.Computer.Network.Ping("www.google.de", 1000) = True Then
- online = True
- End If
- Else
- online = False
- End If
- Return online
- End Function
Wenn ich nun keine Internetverbindung habe (ob der Provider mal spackt oder ich das manuell erzwinge), bekomme ich immer eine Exeption ausgeworfen (wegen Zeile 10).
System.Net.NetworkInformation.PingException
HResult=0x80131509
Nachricht = Während einer Pinganforderung ist eine Ausnahme aufgetreten.
Innere Ausnahme 1:
SocketException: Der angegebene Host ist unbekannt
Gibt es eine Alternative, dass man diesen Fehler abfangen kann, ohne dass das Programm abstürzt?
===================
EIDT
===================
Habe das wie folgt gelöst (in Try-Catch-Block gepackt):
VB.NET-Quellcode
- ''' <summary>
- ''' Funktion um zu überprüfen, ob die Arbeitsstation online ist
- ''' </summary>
- ''' <returns>online = TRUE/FALSE</returns>
- Function IsOnline() As Boolean
- Dim online As Boolean = False
- If My.Computer.Network.IsAvailable = True Then
- Try
- If My.Computer.Network.Ping("www.google.de", 1000) = True Then
- online = True
- End If
- Catch ex As Exception
- online = False
- End Try
- Else
- online = False
- End If
- Return online
- End Function
Ist das sauber umgesetzt?
Grüße JackCimberly
Deine Anfrage erledigt?
Als erledigt markieren
Deine Anfrage erledigt?
Als erledigt markieren
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „JackCimberly“ ()