Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB2005, VB2008 | 06.01.10 |
Server anpingen und Reaktionszeit ermitteln Prüft einen Server auf Erreichbarkeit und gibt die Antwortzeit in Millisekunden zurück. | ||
Autor: Dieter Otter | Bewertung: | Views: 16.859 |
www.tools4vb.de | System: 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:
''' <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