檢查遠端主機是否連線與反應時間

以前連接遠端主機前,都會先檢查主機是否正常。
在程式裡會加上 My.Computer.Network.Ping(host) 判斷。
但有時網路頻寬常常會不穩定,所以必須加上一些參數來參考。

最先想到這個

但我嫌他太麻煩了,還要拆文字檔才能得到結果。
所以又換了一個方法,還不錯用,給各位參考。

'伺服器的反應時間
    Private Sub PingRoundTime(ByVal host As String, ByVal size As String)
        Try
            Dim PingSVR As New Ping
            Dim InfoSVR As PingReply
            Dim Buff(size) As Byte

            InfoSVR = PingSVR.Send(host, 1000, Buff)

            With InfoSVR
                If .Status = IPStatus.Success Then
                    MessageBox.Show(.RoundtripTime.ToString)
                Else
                    MessageBox.Show(.Status.ToString)
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

沒有留言:

張貼留言