Os cuento mi caso y haber que se os ocurre.
Tengo una aplicacion para controlar un error en un programa de windows, cuando falla, lo cierra y lo vuelve a lanzar.
Necesitaba que mientras espera el error mi programa de AutoIt cada cierto tiempo escriba una linea de registro en un fichero. Para comprobar que la aplicacion de AutoIt no esta pausada, colgada o cerrada.
¿Se puede hacer eso?
Os dejo el codigo de mi aplicacion:
Código: Seleccionar todo
; Script Start - Add your code below here
$contador = "0"
Run("c:\MIPCOM2001\MIPCOM_COMO_PRIMARIO_COM1\Mipcom1.exe")
;EJECUTO LA APLICACION
Sleep (10000)
;ESPERO 10 SEGUNDOS A QUE ARRANQUE
WinWait("Mipcom2001", "COM 1")
WinActivate("Mipcom2001", "COM 1")
ControlClick("Mipcom2001", "COM 1","Button1","Left")
;ESPERO A QUE APAREZA LA VENTANA Y PULSO EL "BUTTON1" QUE HACE QUE SE OCULTE LA APLICACION EN EL TRAY
While $contador = "0"
WinWait("Mipcom1.exe", "Informe a Microsoft de este problema")
WinActivate("Mipcom1.exe", "Informe a Microsoft de este problema")
ControlClick("Mipcom1.exe", "Informe a Microsoft de este problema","Button1","Left")
;ESPERO LA VENTANA DE ERROR, LE DOY AL BUTTON1 "ACEPTAR", SE CIERRA LA APLICACION
Sleep (5000)
;ESPERO 5 SEGUNDOS A QUE SE CIERRE.
Run("pskill mipcom1.exe")
;MATO EL PROCESO POR SI NO SE HA CERRADO.
Sleep (5000)
;ESPERO 5 SEGUNDOS A QUE MATE EL PROCESO.
Run("c:\MIPCOM2001\MIPCOM_COMO_PRIMARIO_COM1\Mipcom1.exe")
;EJECUTO LA APLICACION
Sleep (10000)
;ESPERO 10 SEGUNDOS A QUE INICIE LA APLICACION
WinWait("Mipcom2001", "COM 1")
WinActivate("Mipcom2001", "COM 1")
ControlClick("Mipcom2001", "COM 1","Button1","Left")
;ESPERO A QUE APAREZA LA VENTANA Y PULSO EL "BUTTON1" QUE HACE QUE SE OCULTE LA APLICACION EN EL TRAY
;Y VUELTA A EMPEZAR, HA ESPERAR EL ERROR.
WEnd
Exit
Gracias.