Pingabfrage | Whats the problem?

[Rev 9]

Hey,

kann mir einer sagen warum dies nicht klappt?

Private Sub Pingabfrage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ONLINELabel.Hide()
        If My.Computer.Network.Ping("www.sinesstar.de") = True Then
            OFFLINELabel.Hide()
            ONLINELabel.Show()
        End If
    End Sub

Dort steht nun die ganze Zeit offline.
Doch sobald ich mal google "anfunke", dann geht es ...

Private Sub Pingabfrage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ONLINELabel.Hide()
        If My.Computer.Network.Ping("www.google.de") = True Then
            OFFLINELabel.Hide()
            ONLINELabel.Show()
        End If
    End Sub

Weiß einer woran das liegt?

Webspace ist von Nitrado

MfG

[tolio]

bist du schon diesen hinweisen aus dem msdn nachgegangen?

Hinweise

Die Ping-Methode ist keine absolut sichere Methode zum Bestimmen der Verfügbarkeit eines Remotecomputers: Der Pinganschluss des Zielcomputers ist möglicherweise deaktiviert, und die Pinganforderung kann durch eine Firewall oder einen Router blockiert werden.

Der DNS der an die Ping-Methode übergebenen Adresse muss auflösbar sein, und der Adresse darf nicht "http://" vorangestellt sein.

[Rev 9]

Dankeschön.
Sorry, in der eile überlesen ;/