@Echo OFF & TITLE Unclosable-Script

:: By Elektro


REM La ubicación del script temporal que servirá como monitorizador de este script.
Set "MonitorFilepath=%TEMP%\CMDMonitor.cmd"

REM Si no existe el script monitor, lo creo y lo ejecuto...
If Not exist "%MonitorFilepath%" (
	Call :StartMonitorScript "%~0"
)


REM Ya estamos listos para jugar.
Echo Intenta cerrarme! :D   | MORE
Echo Intento de cierres: %1 | MORE
Pause&Exit



REM Métodos
:StartMonitorScript
(
 Echo @Echo OFF ^& Title CMD Monitor
 Echo REM El resultado del monitor. ^(0=False, 1=True^)
 Echo Set /A "ProcessIsTerminated=0"
 Echo Set /A "ClosingCount=0"
 Echo+ 
 Echo :MonitorLoop
 Echo CMDOW.exe ^| Find /I "Unclosable-Script" ^&^& ^(
 Echo 	Set /A "ProcessIsTerminated=0"
 Echo ^) ^|^| ^(
 Echo 	Set /A "ProcessIsTerminated=1"
 Echo   Set /A "ClosingCount+=1"
 Echo ^)
 Echo+ 
 Echo If %%ProcessIsTerminated%% EQU 1 ^(
 Echo 	Start "Reinitialize Unclosable-Script" CMD.exe /K %* %%ClosingCount%%
 Echo ^)
 Echo+ 
 Echo Ping.exe -n 2 LocalHost 1^>NUL
 Echo Goto :MonitorLoop
)>"%MonitorFilepath%"

(
 Echo WScript.CreateObject^("WScript.Shell"^).Run """%MonitorFilepath%""", 0, False
)>"%MonitorFilepath%.vbs"

Start /B "Run Hidden" WScript.exe "%MonitorFilepath%.vbs"

Goto:EOF