[Batch] (Aporte) Despertador ( Con musica!!! )

[Geormarsch]

Hola amigos les traigo este aporte un Despertador en batch...

Código (dos) [Seleccionar] Expandir



@echo off
REM By Geormarsch
REM Visita Foro.Elhacker.net

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

Color a

Title Despertador!

Set Tiempo=%Time:~0,5%

Set file=C:\Melodia.mp3

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

:Menu_Despertador
cls
echo.
Set /p Hora_Despertar= A que hora desea Despertar ^>^>
Goto Verificador

:Verificador
cls
Set Tiempo=%Time:~0,5%
If "%Hora_Despertar%"=="%Tiempo%" (Goto Despierta) else (Goto Verificador)

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

:Despierta
if exist "%Windir%\Sound.vbs" (del /f /q soun.vbs)
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

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


Es Muy Sencillo Tienes que Setear la Variable : file = Con la ruta de la melodia ( Formatos : Mp3 , wav , mid )
y Luego te pregunta a que hora deseas Despertar... Bueno lo probe dos veces y me gusto....

Ojala les sirva

Salu2

PD: Cualquier mejora o modificacion es bienvenida pero con sus respectivos creditos   

[Eleкtro]

Código (DOS) [Seleccionar] Expandir

REM By Geormarsch
REM Visita Foro.Elhacker.net

Esa frase es mía, Dáme créditos!!!! jajaja

Aprendes rápido y bien, me alegro

Buen code!  


PD: Lo modifico para que no consuma tantos recursos, perdiendo una insignificante cifra de 4 posibles segundos de sincronización
     Y le añado comprobaciones de errores
     Por cierto, había una errata en el "Del /Q /F soun.vbs" xD



Saludos.

Código (DOS) [Seleccionar] Expandir

@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

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


[Geormarsch]

 

Jajaja me paso una anécdota....

Mi teclado tiene entrada para insertaler Audifonos y dije lo voy a probar si realmente funciona ( Tengo el pc serca de mi cama) entonces deje el teclado en la cama con los audifonos fuertes....
lo programe para dormir 1 hora bueno fue un sueño increible...( Soñe con que era el mejor creador de script en batch    )
y Derrepente Escuche la Melodia Ahahaha en 1 segundo estaba en pie....

Salu2

PD: El Script que realize yo tiene muchos errores no me di el trabajo de corregirlo...