Sddsd

Solo disponible en BuenasTareas
  • Páginas : 2 (319 palabras )
  • Descarga(s) : 0
  • Publicado : 18 de octubre de 2010
Leer documento completo
Vista previa del texto
Ejecutar comando DOS y retornar la salida hacia nuestro programa
- Anterior - Siguiente

[pic]
[pic][pic][pic][pic][pic][pic] 
Ejemplo que usa Windows Script Host para ejecutar una línea decomando DOS desde vb, y poder obtener el retorno hacia nuestra aplicación , en este caso se visualiza en un textbox Multilinea
Para ejecutar el comando se utiliza el método Exec de la clase WshExec deWSH , y para leer el resultado el método ReadAll de la clase WshShell
Para el ejemplo se debe agregar la referencia a Windows Script Host desde el menú de referencias de visual basic
 
Añadir loscontroles que se indican en el código .. como se ve en el formulario
[pic]
 
Código fuente
Texto planoCopiar código fuenteImprimir
1.  Option Explicit  
2.   
3.'Un textbox multilinea : txt_resultado   
4. 'Un TextBox : txt_Comando   
5. 'Un commandbutton   
6. 'La referencia a Windows Script Host Object Model   
7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   8.   
9. Private Sub Command1_Click()   
10.   txt_resultado.Text = ""  
11.   txt_resultado.Text = ejecutar_Dos(Trim(txt_Comando))   
12. End Sub  
13.   
14. Private Sub Form_Load()  
15.   
16. Command1.Caption = " Ejecutar DOS "  
17. txt_Comando.Text = "dir c:\windows\system32\*.*"  
18.   
19. End Sub  
20.   
21.Function ejecutar_Dos(Comando As String) As String  
22.     Dim oShell As WshShell   
23.     Dim oExec As WshExec   
24.     Dim ret As String  
25.        
26.     Set oShell = New WshShell   
27.     DoEvents   
28.        
29.    ' ejecutar el comando   
30.     Set oExec = oShell.Exec("%comspec% /c " & Comando)   
31.     ret = oExec.StdOut.ReadAll()   
32.         
33.     ' retornar la salida y devolverla a la función  
34.     ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)   
35.        
36.     DoEvents   
37.     Me.SetFocus   
38. End Function  
39.   
40. ' Ejemplos   ...
tracking img