Mostrando entradas con la etiqueta Comando. Mostrar todas las entradas
Mostrando entradas con la etiqueta Comando. Mostrar todas las entradas

lunes, 5 de octubre de 2009

Redirigir la salida de un comando de MS-DOS a un RichTextBox

Bueno pues aqui dejo un code para redirigir la salida de un comando MS-DOS a un RichTextBox la aplicacion requiere 3 controles

1 RichtextBox con nombre RichTextBox1

2 Boton con nombre Button1

3 TextBox con nombre TextBox1

-------------Codigo-----------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Command As New Process 'Creamos la instancia Process

Command.StartInfo.FileName = "cmd.exe" 'El proceso en si es el CMD

Command.StartInfo.Arguments = "/c " & TextBox1.Text

'Aqui le damos los parametros /c y el nombre del archivo a ejecutar

Command.StartInfo.RedirectStandardError = True 'Redirigimos los errores

Command.StartInfo.RedirectStandardOutput = True 'Redirigimos la salida

Command.StartInfo.UseShellExecute = False

'Para redirigir la salida de este proceso esta propiedad debe ser false

Command.StartInfo.CreateNoWindow = True

'Para que no abra la ventana del CMD

Try

Command.Start()

Dim Output As String = Command.StandardOutput.ReadToEnd() _

& vbCrLf & Command.StandardError.ReadToEnd() 'Guardamos las salidas en un string

RichTextBox1.Text = Output 'Desplegamos la salida en nuestro RichTextBox

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

'En caso de cualquier error de ejecucion

End Try

End Sub

-------------Codigo-----------

En caso de tener errores agregen la referencia de System.Diagnostics para hacer uso de la clase Process

Con este ejemplo al escribir un comando de MS-DOS en el textbox y hacer click en el boton se ejecutaria el comando y nos mostraria la salida en el RichtextBox



Descargar este ejemplo
Para ver este fichero necesitas Winrar

Este ejemplo esta probado en Visual Studio 2008