none
Überprüfen ob Internet verfügbar ist RRS feed

  • Allgemeine Diskussion

  • Hallo,

    Folgender Code hat vor ein paar Wochen noch geklappt und jetzt nicht mehr! Was mache ich da falsch  ??

        Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
            Try
                If My.Computer.Network.Ping("www.google.de", 5000) Then
                    Label1.Text = "Internet Verbindung steht"
                    Label1.ForeColor = Color.Green
                Else
                    Label1.Text = "Keine Internet Verbindung gefunden"
                    Label1.ForeColor = Color.Red
    
                End If
    
            Catch ex As Exception
                Label1.Text = "Konnte Internet Verbindung nicht Testen"
                Label1.ForeColor = Color.Red
            End Try
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            BackgroundWorker1.RunWorkerAsync()
        End Sub

    • Typ geändert Ionut DumaModerator Dienstag, 19. November 2013 16:15 Keine Rueckmeldung des Fragenstellender
    Sonntag, 10. November 2013 13:18

Alle Antworten