Foro de elhacker.net

Informática => Software => Mensaje iniciado por: **Aincrad** en 13 Junio 2017, 05:45 am



Título: Reproductor mp3 hecho en batch
Publicado por: **Aincrad** en 13 Junio 2017, 05:45 am
 ::) hola a todos me puse a analizar un VBS que reproduce mp3
y me vino la idea de hacer un reproductor mp3 en batch en base a ese vbs
y queria que me dieran su opinion de como me quedo  ::)

aqui dejo el link de mi aplicacion:

http://www.mediafire.com/file/572ay1exqkq43dl/R3MP.exe


y ya que Elektro me dijo que dejara el code de las aplicaciones
aqui les deco el code:
Código
  1. @echo off
  2. :menu
  3. color a
  4. title Reproductor MP3 By S4L.       (R3MP)
  5. echo/
  6. echo/
  7. echo/
  8. echo                             Para: Foro el hacker.net
  9. echo/
  10. echo/
  11. echo/
  12. echo                  Reproductor .mp3 simple en batch
  13. echo/
  14. echo/
  15. echo                                hecho por: fisica 638
  16. echo/
  17. echo                                          ATT: By S4L
  18. echo/
  19. echo/
  20. echo/
  21. echo/
  22. echo/
  23. set /p uni= * Ingrese el nombre de la musica con la terminacion (.mp3) :
  24. set "var=%palabra%"
  25. set "resultado=%resultado:do while Sound.currentmedia.duration ^= 0 %"
  26. echo Set Sound = CreateObject("WMPlayer.OCX.7")>reproductor.vbs
  27. echo Sound.URL = "%uni%">>reproductor.vbs
  28. echo Sound.Controls.play>>reproductor.vbs
  29. echo %resultado%>>reproductor.vbs
  30. echo wscript.sleep 100>>reproductor.vbs
  31. echo loop>>reproductor.vbs
  32. echo wscript.sleep (int(Sound.currentmedia.duration)+1)*1000>>reproductor.vbs
  33. echo/
  34. echo/
  35. echo/
  36. echo CARGANDO FICHERO.  (POR FAVOR ESPERE).
  37. Ping localhost -n 2 >nul
  38. start reproductor.vbs
  39. echo Presione enter si desea quitar la musica.
  40. pause>nul
  41. taskkill /IM cscript.exe /F
  42. taskkill /IM wscript.exe /F
  43. Ping localhost -n 2 >nul
  44. del reproductor.vbs
  45. exit
  46.  
  47.