Sddsd
- 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 ...
Regístrate para leer el documento completo.