Получить время прокси-сервера VB.Net

Question

Я хочу прокси-сервер ping и получить его время ping (например, 41 мс).

Я пробовал этот код, который работает, но я не получаю время ping.

If My.Computer.Network.Ping("216.58.194.51") Then 
    MsgBox("Success") 
Else 
    MsgBox("Failed") 
End If 

Answer 1

Dim Result As Net.NetworkInformation.PingReply 
Dim SendPing As New Net.NetworkInformation.Ping 
Dim ResponseTime As Long 
Try 
    Result = SendPing.Send("216.58.194.51") 
    ResponseTime = Result.RoundtripTime 
     If Result.Status = Net.NetworkInformation.IPStatus.Success Then 
      MsgBox(ResponseTime.ToString) 'ResponseTime is response time 
     Else 
    End If 
Catch ex As Exception 
    MsgBox("No response") 
End Try