Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB2005, VB2008 | 06.01.10 |
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