Foro de elhacker.net

@echo off
tasklist /fi "IMAGENAME eq wmplayer.exe" | find /i "wmplayer.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 shutdown -s -t 30 -c "No estas viendo ningun video"
ping localhost -n 5 >nul

tasklist /fi "IMAGENAME eq wmplayer.exe" | find /i "wmplayer.exe"

if ERRORLEVEL 2 echo. >nul

if ERRORLEVEL 1 shutdown -s -t 30 -c "No estas viendo ningun video"

@echo off
tasklist /fi "IMAGENAME eq wmplayer.exe" | find /i "wmplayer.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 goto otro
:otro
tasklist /fi "IMAGENAME eq kmplayer.exe" | find /i "kmplayer.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 shutdown -s -t -c "No estas viendo ningun video"
ping localhost -n 5 >nul
 

 
@echo off
Title=Foro.ElHacker.Net
setlocal enabledelayedexpansion
 
REM By PiToLoKo
REM Foro.ElHacker.Net
 
 
:Bucle
Set Reproductores=3
ping localhost -n 900 >nul
 
Set Reproductor=mpc.exe & Call :Verify
Set Reproductor=mpc-hc.exe & Call :Verify
Set Reproductor=kmplayer.exe & Call :Verify
 
If !Reproductores! EQU 0 (
	echo Reinicio en proceso...
	shutdown -s -t 30
	goto :bucle
	) ELSE (
	shutdown -a >nul 2>&1
	echo Reinicio cancelado, El reproductor de video se esta ejecutando.
	ping localhost -n 5 >nul
	cls
	goto :bucle
)
 
 
:Verify
tasklist /fi "IMAGENAME eq %reproductor%" | findstr ".exe" >nul
 
IF %ERRORLEVEL% GEQ 1 (
	Set /a Reproductores-=1
	goto:eof
) else (
	goto:eof
)
 
 

TaskKill /IM "cmd.exe"

schtasks /create /SC ONLOGON /TN "Reiniciar" /TR "Ruta_DEL_BATCH.bat"

schtasks /delete /TN "Reiniciar"

Reg ADD "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /V Reiniciar /d "RUTA_DEL_BATCH.bat"

Nircmd win hide ititle "cmd.exe"

set objshell = createobject("wscript.shell")
objshell.run "RUTA_DEL_BATCH.bat", vbhide

Wscript.exe "C:\RUTA_DEL_VBS.vbs"

Wscript.exe "C:\comprobar.vbs"

set objshell = createobject("wscript.shell")
objshell.run "C:\apagar.bat", vbhide

 
@echo off
Title=Foro.ElHacker.Net
setlocal enabledelayedexpansion
 
REM By PiToLoKo
REM Foro.ElHacker.Net
 
 
:Bucle
Set Reproductores=3
ping localhost -n 900 >nul
 
Set Reproductor=mpc.exe & Call :Verify
Set Reproductor=mpc-hc.exe & Call :Verify
Set Reproductor=kmplayer.exe & Call :Verify
 
If !Reproductores! EQU 0 (
	echo Reinicio en proceso...
	shutdown -s -t 30
	goto :bucle
	) ELSE (
	shutdown -a >nul 2>&1
	echo Reinicio cancelado, El reproductor de video se esta ejecutando.
	ping localhost -n 5 >nul
	cls
	goto :bucle
)
 
 
:Verify
tasklist /fi "IMAGENAME eq %reproductor%" | findstr ".exe" >nul
 
IF %ERRORLEVEL% GEQ 1 (
	Set /a Reproductores-=1
	goto:eof
) else (
	goto:eof
)
 
 

reg ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v tarea /d "C:\tarea.bat"

schtasks /create /SC ONLOGON /TN "Tarea" /TR "C:\tarea.bat"

if %ERRORLEVEL%==1 ...

if ERRORLEVEL 1 ...

@echo off
tasklist /fi "IMAGENAME eq wmplayer.exe" | find /i "wmplayer.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 goto kmplayer
:kmplayer
tasklist /fi "IMAGENAME eq KMPlayer.exe" | find /i "KMPlayer.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 goto mplayerc
:mplayerc
tasklist /fi "IMAGENAME eq mplayerc.exe" | find /i "mplayerc.exe"
if ERRORLEVEL 2 echo. >nul
if ERRORLEVEL 1 shutdown -s -t 30 -c "No estas viendo ningun video"
ping localhost -n 5 >nul
 
 

@echo off
Title=Foro.ElHacker.Net
setlocal enabledelayedexpansion
 
REM By PiToLoKo
REM Foro.ElHacker.Net 
 
Set Reproductores=3
 
 
Set Reproductor=mpc.exe & Call :Verify
Set Reproductor=mpc-hc.exe & Call :Verify
Set Reproductor=kmplayer.exe & Call :Verify
 
If !Reproductores! EQU 0 (
	echo Reinicio en proceso...
	shutdown -s -t 30
	) ELSE (
	shutdown -a >nul 2>&1
	echo Reinicio cancelado, El reproductor de video se esta ejecutando.
	ping localhost -n 5 >nul
	cls
)
 
 
:Verify
tasklist /fi "IMAGENAME eq %reproductor%" | findstr ".exe" >nul
 
IF %ERRORLEVEL% GEQ 1 (
	Set /a Reproductores-=1
	goto:eof
) else (
	goto:eof
)