Private Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias _
      "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef _
      lpQOCInfo As QOCINFO) As Boolean
 
    <System.Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential)> _
    Private Structure QOCINFO
        Dim dwSize As Integer
        Dim dwFlags As Integer
        Dim dwInSpeed As Integer
        Dim dwOutSpeed As Integer
    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) Then
            Ping = 1
        Else
            Ping = -1
        End If
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist