WINDOWS archivos - Soulsmakers

COMO HACER PING DESDE VB.NET

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

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.

Imports System.IO
Imports System.Net.NetworkInformation
Imports System.Text

Imports System.IO

Imports System.Net.NetworkInformation

Imports System.Text

Y en el evento del clic del boton el siguiente codigo.

       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

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.

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

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 .

Herramienta de Liberacion de RAM

Hola Amigos aqui os dejo una herramienta que os facilirata la liberacion de ram no utilizada y que esta en memoria, esta herramienta mantiene la ram que esta en uso y libera la ram que ya no es utilizada por las aplicaciones.

La responsabilidad de uso es solo vuestra, y no me hago responsable de los problemas que pueda ocasionar.

Aqui te dejo el video de como funciona y el enlace de descarga

Password del RAR: Soulsmakers2017

Añadir propiedades a controles de winforms

Añadir propiedades a controles de winforms

COMO HACER PING DESDE VB.NET

COMO HACER PING DESDE VB.NET

HERRAMIENTA DE LIBERACION DE RAM

Herramienta de Liberacion de RAM

Obtener Unidades Con vb-File system Drives

Obtener Unidades Con vb-File system Drives

Leer y escribir en el exif de una imagen

Exif : Leer y escribir los metadatos de una imagen

SOLUCION Error al instalar Framework 1.0 en windows 10

SOLUCION Error al instalar Framework 1.0 en windows 10