Simple código para hacer ping desde vb.net...
- Código:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim p As New Ping
Try
Dim Rst As PingReply = p.Send(Me.TextBox2.Text)
Dim Datos As New StringBuilder
Datos.Append("Dirección IP:" & Rst.Address.ToString & vbCrLf)
Datos.Append("Buffer Enviado:" & Rst.Buffer.Length & " Bytes" & " | Tiempo de Respuesta: " & Rst.RoundtripTime & " Milisegundos" & vbCrLf)
Me.TextBox4.Text = Datos.ToString
Catch ex As Exception
Me.TextBox4.Text = ex.ToString
End Try
End Sub