以前連接遠端主機前,都會先檢查主機是否正常。
在程式裡會加上 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
沒有留言:
張貼留言