Option Explicit On 
 
 ' Benötigte API-Deklaration
    Private Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias _
      "IsDestinationReachableA" (ByVal lpszDestination As String, ByVal _
      lpQOCInfo As QOCINFO) As Long
 
    Private Structure QOCINFO
        Dim dwSize As Long
        Dim dwFlags As Long
        Dim dwInSpeed As Long
        Dim dwOutSpeed As Long
    End Structure
 
 
    ' Server anpingen und Reaktionszeit zurückgeben
    Public Function Ping(ByVal sHost As String) As Single
        Dim QI As QOCINFO
 
        QI.dwSize = Len(QI)
        If IsDestinationReachable(sHost, QI) = 1 Then
            Ping = 1
        Else
            Ping = -1
        End If
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim nTime As Single
        nTime = Ping("www.google.de")
        If nTime <> -1 Then
            MsgBox("Rechner erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden")
        Else
            MsgBox("Rechner nicht erreichbar!")
        End If
    End Sub
End Class