AutoHotkey Community

Code: Select all

#NoEnv
#SingleInstance, Force
#Persistent
; Abre notepad, manten WhatsApp abierto, si cierras notepad, WhatsApp se cierra también
proceso_comprobar = notepad.exe
proceso_cerrar = WhatsApp.exe

; Depende el programa necesitarás poner un SetWorkingDir delante o en el propio Run
Run, %proceso_comprobar% ; Abre notepad
Run, %proceso_cerrar% ; Abre WhatsApp
WinWait, ahk_exe %proceso_comprobar%
SetTimer, comprobarProceso, 500
return

; Comprueba que notepad siga abierto
comprobarProceso:
	Process, Exist, %proceso_comprobar%
	if(!ErrorLevel)
		Gosub, Salir ; Cierra WhatsApp porque notepad está cerrado
return

Salir:
	process := proceso_cerrar
	Process, Exist, %process%
	if	pid :=	ErrorLevel
	{
		Loop
		{
			WinClose, ahk_pid %pid%, , 5
			if	ErrorLevel
			Process, Close, %pid%
			Process, Exist, %process%
		}	Until	!pid :=	ErrorLevel
	}
ExitApp

Code: Select all

#SingleInstance Force
Loop
{
Process, Close, WhatsApp.exe
Sleep 60000
}

Code: Select all

programa = Notepad.exe

Code: Select all

programa = WhatsApp.exe

Code: Select all

#SingleInstance Force
; Script, que cierra programas en segundo plano.
Loop
{
Process, Close, WhatsApp.exe 
Sleep 60000
}

Code: Select all

#Persistent

WinWait, Nombre de la ventana
SetTimer, Supervisor, 1000 ; Temporizador cada 1s.

return

Supervisor() {
    if not WinExist("Nombre de la ventana") {
        RutaSegundoScript := "..."
        Run, % RutaSegundoScript
        ExitApp ; Cerrar este script
    }
}