Server anpingen und Reaktionszeit ermitteln Prüft einen Server auf Erreichbarkeit und gibt die Antwortzeit in Millisekunden zurück.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.404
www.tools4vb.de	System:  Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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

''' <summary>
''' Sendet einen Ping an einen Server und gibt die Reaktionszeit zurück.
''' </summary>
''' <param name="Hostname">Servername oder IP-Adresse</param>
''' <returns>Reaktionszeit in Millisekunden 
''' oder -1, wenn Server nicht erreichbar</returns>
Public Function ServerPing(ByVal Hostname As String) As Integer
  Try
    Dim oTime As New System.Diagnostics.Stopwatch
    oTime.Start()
    If My.Computer.Network.Ping(Hostname) Then
      oTime.Stop()
      Return oTime.ElapsedMilliseconds
    Else
      Return -1
    End If
  Catch ex As Exception
    Return -1
  End Try
End Function

Anwendungsbeispiel:

Dim nTime As Integer = ServerPing("vbarchiv.net")
If nTime <> -1 Then
  Label1.Text = "Server erreichbar: Reaktionszeit: " & nTime & " MSek."
Else
  Label1.Text = "Server nicht erreichbar!"
End If