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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  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,565 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
  20. Set /p Hora_Despertar= A que hora desea Despertar ^>^>
  21. Goto Verificador
  22.  
  23. :Verificador
  24. cls
  25. Set Tiempo=%Time:~0,5%
  26. If "%Hora_Despertar%"=="%Tiempo%" (Goto Despierta) else (Goto Verificador)
  27.  
  28. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  29.  
  30. :Despierta
  31. if exist "%Windir%\Sound.vbs" (del /f /q soun.vbs)
  32. cls
  33. (
  34. echo On Error Resume next
  35. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  36. echo Sound.URL = "%File%"
  37. echo Sound.Controls.play
  38. echo if err.number = 0 then
  39. echo do while Sound.currentmedia.duration = 0
  40. echo wscript.sleep 100
  41. echo loop
  42. echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  43. echo if len("%file%"^) ^< 2  then
  44. echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
  45. echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
  46. echo end if
  47. echo end if
  48. )>%Windir%\Sound.vbs
  49. cd %Windir%
  50. start Sound.vbs
  51. Goto Menu_Despertador
  52.  
  53. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  54.  

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.878



Ver Perfil
Re: [Batch] (Aporte) Despertador ( Con musica!!! )
« Respuesta #1 en: 8 Febrero 2012, 22:28 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
  25. echo. A que hora desea Despertar?          Modo    : 24 H.
  26. Echo.                                      Ejemplo : 09:00
  27. Set /p Hora_Despertar=^>^>
  28.  
  29. If Not defined Hora_Despertar (Goto :Menu_Despertador)
  30. Echo "%Hora_Despertar:~0,1%"| Findstr /l "[^012]">nul
  31. If %Errorlevel% EQU 0 (Goto :Menu_Despertador)
  32. Echo "%Hora_Despertar%"| Findstr "..[:].." >nul
  33. If NOT %Errorlevel% EQU 0 (Goto :Menu_Despertador)
  34. Set Hora_Despertar=%Hora_Despertar::=%
  35. If %Hora_Despertar% GTR 2359 (Goto :Menu_Despertador)
  36. Goto :Verificador
  37.  
  38.  
  39. :Verificador
  40. cls
  41. Set Tiempo=%Time:~0,5%
  42. Set tiempo=%Tiempo::=%
  43. If %Hora_Despertar% GEQ %Tiempo% (If %Hora_Despertar% LEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
  44. If %Hora_Despertar% LEQ %Tiempo% (If %Hora_Despertar% GEQ %Tiempo% (Goto :Despierta) else (Ping -n 4 LOCALHOST >Nul & Goto Verificador))
  45.  
  46.  
  47. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  48.  
  49.  
  50. :Despierta
  51. if exist "%Windir%\Sound.vbs" (del /f /q sound.vbs >nul)
  52. cls
  53. (
  54. echo On Error Resume next
  55. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  56. echo Sound.URL = "%File%"
  57. echo Sound.Controls.play
  58. echo if err.number = 0 then
  59. echo do while Sound.currentmedia.duration = 0
  60. echo wscript.sleep 100
  61. echo loop
  62. echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  63. echo if len("%file%"^) ^< 2  then
  64. echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
  65. echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
  66. echo end if
  67. echo end if
  68. )>%Windir%\Sound.vbs
  69. cd "%Windir%"
  70. start Sound.vbs
  71. Goto :Menu_Despertador
  72.  
  73. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  74.  




« Ú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,222 Último mensaje 25 Junio 2008, 21:21 pm
por najmuddin
[Batch] Aporte Generador Diccionario
Scripting
Geormarsch 9 7,299 Último mensaje 18 Septiembre 2012, 14:27 pm
por Geormarsch
[Batch] Aporte, Soy electronico
Scripting
Geormarsch 5 4,109 Último mensaje 9 Enero 2012, 10:24 am
por leogtz
[Batch] (Aporte) Simple cronómetro
Scripting
Eleкtro 0 2,422 Último mensaje 27 Enero 2012, 06:25 am
por Eleкtro
despertador batch
Scripting
Pirat3net 9 6,301 Último mensaje 10 Febrero 2012, 06:49 am
por Pirat3net
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines