send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Ejecutar comandos de msdos y esperar que finalicen

  • 0 Respuestas
  • 1639 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 03:50:39 pm »
-crearemos un proyecto exe standar.
-un TextBox de nombre=COMANDOS y con la propiedad MULTILINE=tRUE
-UN COMANDBUTTON
y copiaremos el codigo siguiente en el Form:

Código: Visual Basic
  1. Option Explicit
  2.  
  3. Private Const PROCESS_QUERY_INFORMATION = &H400
  4. Private Const STILL_ACTIVE = &H103
  5. Private Declare Function OpenProcess Lib "kernel32" _
  6. (ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
  7. As Long
  8. Private Declare Function GetExitCodeProcess Lib "kernel32" _
  9. (ByVal hProcess As Long, lpExitCode As Long) _
  10. As Long
  11.  
  12. Sub EjecutarCMDDOS(COMANDOS As String)
  13.  
  14. Dim hShell As Long
  15. Dim hProc As Long
  16. Dim codExit As Long
  17.  
  18. Open "Archivo.bat" For Output As #1
  19. Print #1, COMANDOS
  20. Close #1
  21. ' ejecutar comando
  22. hShell = Shell(Environ$("Comspec") & " /c " & "Archivo.bat", vbNormalFocus)
  23. ' esperar a que se complete el proceso
  24. hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
  25.  
  26. Do
  27. GetExitCodeProcess hProc, codExit
  28. DoEvents
  29. Loop While codExit = STILL_ACTIVE
  30.  
  31.  
  32. MsgBox "El comando ha acabado"
  33.  
  34. On Error Resume Next
  35. Kill "Archivo.bat"
  36.  
  37. End Sub
  38. Private Sub Command1_Click()
  39. EjecutarCMDDOS COMANDOS.Text
  40. End Sub
« Última modificación: Mayo 12, 2014, 03:21:48 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Como ejecutar un Stored Procedure

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1479
Último mensaje Julio 26, 2010, 04:04:18 pm
por ANTRAX
Ejecutar Cualquier tipo de Archivos

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1511
Último mensaje Julio 26, 2010, 12:50:40 pm
por _katze_
Ejecutar un solo ejemplar de un programa

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1331
Último mensaje Julio 26, 2010, 10:19:50 am
por ANTRAX
Ejecutar cualquier programa

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1166
Último mensaje Julio 26, 2010, 11:49:25 am
por ANTRAX
Ejecutar una direccion url en el navegador

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1113
Último mensaje Julio 26, 2010, 11:52:00 am
por ANTRAX