✔ [VB 05] Online- / Offlineanzeige

[mafiamix]

Hallo,

ich wollte eigentlich in mein nächstes Programm eine Online- und Offlineanzeige miteinbauen, also immer wenn eine Internetverbindung besteht, wird in Label1 "Online" angezeigt, wenn keine Internetverbindung besteht, wird in Label2 "Offline" angezeigt.

Leider hab ich das Problem, dass immer eine Fehlermeldung kommt, da ich die Onlineanzeige mit Downloadstring überprüfen lasse und wenn keine Verbindung besteht, kann das Programm ja keine Internetseite laden und somit kommt der Fehler.

Ich weiß nicht, wie ich es umgehen kann, dass auch die Offlineanzeige ohne Fehlermeldung funktioniert. :/

Hier ist der Code:

            Dim wc As New Net.WebClient
           If wc.DownloadString("http://www.google.de/") <> String.Empty Then
        Label1.Text = "Online"
           Label1.Visible = True
           Label2.Visible = False
           Else
        Label2.Text = "Offline"
          Label1.Visible = False
           Label2.Visible = False

          End If

Wie gesagt, funktioniert die Offlineanzeige nicht, sondern nur die Onlineanzeige.
Hab alles mögliche ausprobiert, aber alles ist nicht gegangen.


Danke für Hilfe,

mafiamix

 

[wincnc]

Hallo, versuch´s mal so:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsInternet() Then
            Label1.Text = "Online"
        Else
            Label1.Text = "Offline"
        End If
    End Sub

    Private Function IsInternet() As Boolean
        Try
            My.Computer.Network.Ping("http://www.google.de")
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

 

[hansy2]

versuchts mal ohne http:// also nur mit http://www.google.de dann gehts auch

 

[mafiamix]

hansy2 > Es funktioniert schon lange und das ist echt kein Grund nen fast 8 Monate alten Thread wieder raufzuholen. o.ô