vb llama al comando ping para detectar la red

Agregue un código de control de cuadro de texto de la siguiente manera: Ejecútelo para obtener el propósito

Función pública CmdPing(ByVal strIp As String) As String

Dim p As New Process 'Crear un hilo

p.RedirectStandardError = True

p.StartInfo.CreateNoWindow = True

Dim pingrst As String

p.Start()

p.StandardInput.WriteLine("ping -n 1 " + strIp)

p.StandardInput.WriteLine("exit")

Dim strRst As String = p .StandardOutput .ReadToEnd()

If (strRst.IndexOf("(0% de pérdida)") <> -1) Then

pingrst = "Conexión exitosa"

ElseIf (IndexOf("Host de destino inalcanzable.") <> -1) Then

pingrst = "Host de destino inalcanzable"

ElseIf ((strRst.IndexOf("Solicitud se agotó el tiempo de espera ."") <> -1) o (strRst.IndexOf("(pérdida del 100%)") <> -1)) entonces

pingrst = "Tiempo de espera"

ElseIf ( strRst.IndexOf("Host desconocido") <.> -1) Then

pingrst = "No se puede resolver el host"

Else

pingrst = strRst

Finalizar si

p.Close()

Devolver pingrst

Función final

Subformulario privado1_Load (ByVal remitente como objeto, ByVal e como System.EventArgs) Maneja Me.Load

Dim ip As String = "www.baidu.com"

Dim strRst As String = CmdPing( ip)

TextBox1.Text = strRst

Fin Sub