REM By Geormarsch
REM Visita Foro.Elhacker.net

@echo off
REM By Geormarsch
REM MOD By Elektro H@cker
REM Visita Foro.Elhacker.net

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
Color a
 
Title Despertador!
 
Set Tiempo=%Time:~0,5%
Set tiempo=%Tiempo::=%
 
Set file=C:\Melodia.mp3
If Not defined file (Exit /B 1)
If Not exist "%file%" (Exit /B 1)

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 
:Menu_Despertador
Set Hora_Despertar=
cls
Echo.
echo. A que hora desea Despertar?          Modo    : 24 H.
Echo.
Echo.                                      Ejemplo : 09:00
Echo.
Set /p Hora_Despertar=^>^> 
 
If Not defined Hora_Despertar (Goto :Menu_Despertador)
Echo "%Hora_Despertar:~0,1%"| Findstr /l "[^012]">nul
If %Errorlevel% EQU 0 (Goto :Menu_Despertador)
Echo "%Hora_Despertar%"| Findstr "..[:].." >nul
If NOT %Errorlevel% EQU 0 (Goto :Menu_Despertador)
Set Hora_Despertar=%Hora_Despertar::=%
If %Hora_Despertar% GTR 2359 (Goto :Menu_Despertador)
Goto :Verificador
 
 
:Verificador
cls
Set Tiempo=%Time:~0,5%
Set tiempo=%Tiempo::=%
If %Hora_Despertar% GEQ %Tiempo% (If %Hora_Despertar% LEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
If %Hora_Despertar% LEQ %Tiempo% (If %Hora_Despertar% GEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))

 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 
:Despierta
if exist "%Windir%\Sound.vbs" (del /f /q sound.vbs >nul)
cls
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%File%"
echo Sound.Controls.play
echo if err.number = 0 then
echo 	do while Sound.currentmedia.duration = 0
echo 	wscript.sleep 100
echo 	loop
echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo	if len("%file%"^) ^< 2  then
echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
echo	else
echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
echo 	end if
echo end if
)>%Windir%\Sound.vbs
cd "%Windir%"
start Sound.vbs
Goto :Menu_Despertador

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::