COMO HACER PING DESDE VB.NET

Hola a todos,
Aqui el ejemplo de como hacer ping desde Vb.Net

Pimero el video explicando todo y a continuacion el codigo
Lo primero que debemos hacer es crear un formulario y añadir un textbox, un boton, y un richtextbox, algo asi como como la siguiente imagen.
A continuacion debemos agregar los siguientes imports.
1 2 3 |
Imports System.IO Imports System.Net.NetworkInformation Imports System.Text |
Y en el evento del clic del boton el siguiente codigo.
1 2 3 4 5 6 7 8 9 10 11 |
Dim p As New Ping Try Dim Rst As PingReply = p.Send(Me.TextBox1.Text) Dim Datos As New StringBuilder Datos.Append("Address:" & Rst.Address.ToString & vbCrLf) Datos.Append("Buffer Enviado:" & Rst.Buffer.Length & " Bytes" & vbCrLf) Datos.Append("Tiempo de Respuesta:" & Rst.RoundtripTime & " Milisegundos" & vbCrLf) Me.RichTextBox1.Text = Datos.ToString Catch ex As Exception Me.RichTextBox1.Text = ex.ToString End Try |
Aqui el codigo completo.es poco codigo y creo que no requiere ninguna explicacion asi que ahi os lo dejo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Imports System.IO Imports System.Net.NetworkInformation Imports System.Text Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim p As New Ping Try Dim Rst As PingReply = p.Send(Me.TextBox1.Text) Dim Datos As New StringBuilder Datos.Append("Address:" & Rst.Address.ToString & vbCrLf) Datos.Append("Buffer Enviado:" & Rst.Buffer.Length & " Bytes" & vbCrLf) Datos.Append("Tiempo de Respuesta:" & Rst.RoundtripTime & " Milisegundos" & vbCrLf) Me.RichTextBox1.Text = Datos.ToString Catch ex As Exception Me.RichTextBox1.Text = ex.ToString End Try End Sub End Class |
Muchas Gracias y que no se te olvide comentar, un saludo .
Quizas te interese TCPCLIENT TCPLISTENER