Ejecutar comandos DOS
Publicado por Rodrigo (17 intervenciones) el 21/07/2008 22:43:28
Estube buscando bastante y logre encontrar exactamente lo que nesesito pero para VB6, y no encuentro manera de hacerlo en VB.NET.
Lo que nesesito es poder enviar ordenes al DOS desde un textbox y retornar el resultado a otro textbox.
Calculo que si se puede con VB6 entonces se podra con VB.NET
'Ejemplo para VB6
'txtComandos es el TextBox donde mandaria el comando a ejecutar
'txtResultado es el TextBox donde retorna el resultado del comando
'Se agrega una referencia a ---> Windows Script Host Object Model
'Referencia que no encontre en .NET
Private Sub Command1_Click()
Dim oShell As WshShell
Dim oExec As WshExec
Set oShell = New WshShell
Set oExec = oShell.Exec("%comspec% /c " & txtComandos.text)
txtResultado.text = oExec.StdOut.ReadAll()
End Sub
En el siguiente enlace esta el ejemplo completo que encontre:
(es lo mismo que puse arriba con mas cosas que no me hacen falta)
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/461-ejecutar-comando-dos-y-retornar-la-salida.htm
Muchas Gracias
Lo que nesesito es poder enviar ordenes al DOS desde un textbox y retornar el resultado a otro textbox.
Calculo que si se puede con VB6 entonces se podra con VB.NET
'Ejemplo para VB6
'txtComandos es el TextBox donde mandaria el comando a ejecutar
'txtResultado es el TextBox donde retorna el resultado del comando
'Se agrega una referencia a ---> Windows Script Host Object Model
'Referencia que no encontre en .NET
Private Sub Command1_Click()
Dim oShell As WshShell
Dim oExec As WshExec
Set oShell = New WshShell
Set oExec = oShell.Exec("%comspec% /c " & txtComandos.text)
txtResultado.text = oExec.StdOut.ReadAll()
End Sub
En el siguiente enlace esta el ejemplo completo que encontre:
(es lo mismo que puse arriba con mas cosas que no me hacen falta)
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/461-ejecutar-comando-dos-y-retornar-la-salida.htm
Muchas Gracias
Valora esta pregunta


0