vb@rchiv · Tipps & Tricks · Server anpingen und Reaktionszeit ermitteln

Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB4, VB5, VB6

15.10.03

Server anpingen und Reaktionszeit ermitteln Wie man einen Server auf Erreichbarkeit prüft und zudem die Antwortzeit ermittelt, zeigt dieser Code.
Autor: Dieter Otter	Bewertung:	Views: 31.077
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Wie man einen Server auf Erreichbarkeit prüft und zudem ermittelt, wie lange der Server für die Antwort benötigt, zeigt nachfolgender Tipp:

Option Explicit
 
' Benötigte API-Deklaration
Private Declare Function IsDestinationReachable Lib "Sensapi.dll" _
  Alias "IsDestinationReachableA" ( _
  ByVal lpszDestination As String, _
  lpQOCInfo As QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type

' Server anpingen und Reaktionszeit zurückgeben
Public Function Ping(ByVal sHost As String) As Single
  Dim QI As QOCINFO
  Dim vTime As Single
 
  QI.dwSize = Len(QI)
  vTime = Timer
  If IsDestinationReachable(sHost, QI) = 1 Then
    Ping = Timer - vTime
  Else
    Ping = -1
  End If
End Function

Anwendung:
Verwenden Sie im lokalen LAN für sHost immer den Rechnernamen:

Dim nTime As Single 
nTime = Ping("\\rechnername") 
If nTime <> - 1 Then 
  MsgBox "Rechner erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Rechner nicht erreichbar!" 
End If

Um die Reaktionszeit eines Webservers zu testen können Sie entweder die IP-Adresse des Servers oder den Hostnamen verwenden:

Dim nTime As Single 
nTime = Ping("vbarchiv.net") 
If nTime <> - 1 Then 
  MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Server nicht erreichbar!" 
End If

Oder...

Dim nTime As Single 
nTime = Ping("217.160.105.148") 
If nTime <> - 1 Then 
  MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Server nicht erreichbar!" 
End If