Pingabfrage | Whats the problem?

08/16/2014 18:57 Rev 9#1
Hey,

kann mir einer sagen warum dies nicht klappt?

Code:
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 ...
Code:
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
08/16/2014 19:10 tolio#2
bist du schon diesen hinweisen aus dem msdn nachgegangen?
Quote:
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.
[Only registered and activated users can see links. Click Here To Register...]
08/16/2014 19:14 Rev 9#3
Dankeschön.
Sorry, in der eile überlesen ;/