elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] (Aporte) Despertador ( Con musica!!! )		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] (Aporte) Despertador ( Con musica!!! )  (Leído 3,649 veces)
Geormarsch

Desconectado Desconectado

Mensajes: 160



Ver Perfil
[Batch] (Aporte) Despertador ( Con musica!!! )
« en: 8 Febrero 2012, 21:32 pm »
Hola amigos les traigo este aporte un Despertador en batch...
 :silbar:

Código
  1.  
  2. @echo off
  3. REM By Geormarsch
  4. REM Visita Foro.Elhacker.net
  5.  
  6. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  7.  
  8. Color a
  9.  
  10. Title Despertador!
  11.  
  12. Set Tiempo=%Time:~0,5%
  13.  
  14. Set file=C:\Melodia.mp3
  15.  
  16. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  17.  
  18. :Menu_Despertador
  19. cls
  21. Set /p Hora_Despertar= A que hora desea Despertar ^>^>
  22. Goto Verificador
  23.  
  24. :Verificador
  25. cls
  26. Set Tiempo=%Time:~0,5%
  27. If "%Hora_Despertar%"=="%Tiempo%" (Goto Despierta) else (Goto Verificador)
  28.  
  29. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30.  
  31. :Despierta
  32. if exist "%Windir%\Sound.vbs" (del /f /q soun.vbs)
  33. cls
  34. (
  35. echo On Error Resume next
  36. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  37. echo Sound.URL = "%File%"
  38. echo Sound.Controls.play
  39. echo if err.number = 0 then
  40. echo 	do while Sound.currentmedia.duration = 0
  41. echo 	wscript.sleep 100
  42. echo 	loop
  43. echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  45. echo	if len("%file%"^) ^< 2  then
  46. echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
  48. echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
  49. echo 	end if
  50. echo end if
  51. )>%Windir%\Sound.vbs
  52. cd %Windir%
  53. start Sound.vbs
  54. Goto Menu_Despertador
  55.  
  56. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  57.  

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   :xD
En línea
"Comentar el código es como limpiar el cuarto de baño; nadie quiere hacerlo, pero el resultado es siempre una experiencia más agradable para uno mismo y sus invitados"
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.891



Ver Perfil
Re: [Batch] (Aporte) Despertador ( Con musica!!! )
« Respuesta #1 en: 8 Febrero 2012, 22:28 pm »
Cita de: geormarsch en  8 Febrero 2012, 21:32 pm
Código
  1. REM By Geormarsch
  2. REM Visita Foro.Elhacker.net

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

Aprendes rápido y bien, me alegro

Buen code!  ;D


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
  1. @echo off
  2. REM By Geormarsch
  3. REM MOD By Elektro H@cker
  4. REM Visita Foro.Elhacker.net
  5.  
  6. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  7.  
  8. Color a
  9.  
  10. Title Despertador!
  11.  
  12. Set Tiempo=%Time:~0,5%
  13. Set tiempo=%Tiempo::=%
  14.  
  15. Set file=C:\Melodia.mp3
  16. If Not defined file (Exit /B 1)
  17. If Not exist "%file%" (Exit /B 1)
  18.  
  19. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  20.  
  21.  
  22. :Menu_Despertador
  23. Set Hora_Despertar=
  24. cls
  26. echo. A que hora desea Despertar?          Modo    : 24 H.
  28. Echo.                                      Ejemplo : 09:00
  30. Set /p Hora_Despertar=^>^> 
  31.  
  32. If Not defined Hora_Despertar (Goto :Menu_Despertador)
  33. Echo "%Hora_Despertar:~0,1%"| Findstr /l "[^012]">nul
  34. If %Errorlevel% EQU 0 (Goto :Menu_Despertador)
  35. Echo "%Hora_Despertar%"| Findstr "..[:].." >nul
  36. If NOT %Errorlevel% EQU 0 (Goto :Menu_Despertador)
  37. Set Hora_Despertar=%Hora_Despertar::=%
  38. If %Hora_Despertar% GTR 2359 (Goto :Menu_Despertador)
  39. Goto :Verificador
  40.  
  41.  
  42. :Verificador
  43. cls
  44. Set Tiempo=%Time:~0,5%
  45. Set tiempo=%Tiempo::=%
  46. If %Hora_Despertar% GEQ %Tiempo% (If %Hora_Despertar% LEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
  47. If %Hora_Despertar% LEQ %Tiempo% (If %Hora_Despertar% GEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
  48.  
  49.  
  50. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  51.  
  52.  
  53. :Despierta
  54. if exist "%Windir%\Sound.vbs" (del /f /q sound.vbs >nul)
  55. cls
  56. (
  57. echo On Error Resume next
  58. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  59. echo Sound.URL = "%File%"
  60. echo Sound.Controls.play
  61. echo if err.number = 0 then
  62. echo 	do while Sound.currentmedia.duration = 0
  63. echo 	wscript.sleep 100
  64. echo 	loop
  65. echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  67. echo	if len("%file%"^) ^< 2  then
  68. echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
  70. echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
  71. echo 	end if
  72. echo end if
  73. )>%Windir%\Sound.vbs
  74. cd "%Windir%"
  75. start Sound.vbs
  76. Goto :Menu_Despertador
  77.  
  78. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  79.  
« Última modificación: 9 Febrero 2012, 13:10 pm por EleKtro H@cker » En línea


Geormarsch

Desconectado Desconectado

Mensajes: 160



Ver Perfil
Re: [Batch] (Aporte) Despertador ( Con musica!!! )
« Respuesta #2 en: 9 Febrero 2012, 02:19 am »
 :silbar:

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  :laugh:  :laugh: )
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...
En línea
"Comentar el código es como limpiar el cuarto de baño; nadie quiere hacerlo, pero el resultado es siempre una experiencia más agradable para uno mismo y sus invitados"
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Batch] Un pequeño aporte « 1 2 »
Scripting 		najmuddin 13 8,540 Último mensaje 25 Junio 2008, 21:21 pm
por najmuddin
[Batch] Aporte Generador Diccionario
Scripting 		Geormarsch 9 7,521 Último mensaje 18 Septiembre 2012, 14:27 pm
por Geormarsch
[Batch] Aporte, Soy electronico
Scripting 		Geormarsch 5 4,229 Último mensaje 9 Enero 2012, 10:24 am
por leogtz
[Batch] (Aporte) Simple cronómetro
Scripting 		Eleкtro 0 2,508 Último mensaje 27 Enero 2012, 06:25 am
por Eleкtro
despertador batch
Scripting 		Pirat3net 9 6,442 Último mensaje 10 Febrero 2012, 06:49 am
por Pirat3net
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines