Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Eleкtro en 29 Noviembre 2012, 18:47 pm



Título: [SOURCE] PlayLists
Publicado por: Eleкtro en 29 Noviembre 2012, 18:47 pm
Bueno,
es una caca de programa porqué es el segundo programa que he hecho, y no he conseguido dejar bien la transparencia del programa ni meter la barra de progreso en un thread, pero está decente para usarse y cumple las condiciones necesarias, y me quedo satisfecho al ver la diferencia entre Batch y Winform XD

El programa sirve para seleccionar una o varias carpetas y añadirlas a la lista de reproducción del reproductor multimedia, ni más, ni menos. (Buena tool para bindearla a un "hot-corner" de la pantalla del PC)

(http://img844.imageshack.us/img844/203/prtscrcapture2c.jpg)      (http://img690.imageshack.us/img690/35/prtscrcapturec.jpg)


Source: http://exoshare.com/download.php?uid=EJJTGEXN





Aquí dejo el "boceto" en Batch por si le sirve a alguien:

Código
  1. @echo off
  2. Title Winamp Auto Playlist Menu v0.1
  3.  
  4. :: Auto-redimensionado
  5. color 07
  6. Nircmd win center ititle "Winamp Auto Playlist Menu" >NUL 2>&1
  7. PUSHD "%~dp0"
  8. Set /a Lines=5
  9. Mode con cols=50 lines=%LINES%
  10. For /D %%# in (*) Do (Call Set /A "Lines+=2" & call Mode con cols=60 lines=%%LINES%%)
  11.  
  12. :Menu
  13. CLS
  14. SET "SELECT=" & SET "NUM="
  15. For /D %%# in (*) Do (Call Set /A "Num+=1" & Call Set "Folder%%NUM%%=%%#" & Call Set "List=%%LIST%%!!%%NUM%%" & Call Echo [%%Num%%] %%# | MORE)
  16. Echo [0] * REPRODUCIR TODO * | MORE
  17. Echo: Seleccione una carpeta para reproducirla...
  18. Set /P select=^>^>
  19. Echo "%SELECT%" | FINDSTR /I "[A-Z]" >NUL && (Goto :Menu) || (Echo "%List%" | FIND ";%SELECT% " >NUL || (Goto :Menu))
  20. If "%SELECT%" equ "0" (Goto :todo)
  21.  
  22. :Play
  23. CLS
  24. Call Echo Carpeta seleccionada: "%%Folder%SELECT%%%" | MORE
  25. Call Echo: [+] Iniciando Winamp...
  26. Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe "%CD%\%%Folder%SELECT%%%"
  27. Timeout /T 5 & Exit
  28.  
  29. :TODO
  30. CLS
  31. Call Echo Carpeta seleccionada: * TODAS * | MORE
  32. Call Echo: [+] Iniciando Winamp...
  33. For /D %%# in (*) Do (Call Set "ARG=%%arg%% ^"%CD%\%%#^"")
  34. Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe %%arg%%
  35. Timeout /T 10 & Exit


Título: Re: [SOURCE] PlayLists
Publicado por: Crazy.sx en 29 Noviembre 2012, 19:12 pm
Se ve bien, echaré un vistazo. Me mató eso de boceto en batch  ;) jeje -y pensar que yo era amo y señor del batch- :rolleyes:
Saludos.


Título: Re: [SOURCE] PlayLists
Publicado por: spiritdead en 29 Noviembre 2012, 21:36 pm
Bueno,
es una caca de programa porqué es el segundo programa que he hecho, y no he conseguido dejar bien la transparencia del programa ni meter la barra de progreso en un thread, pero está decente para usarse y cumple las condiciones necesarias, y me quedo satisfecho al ver la diferencia entre Batch y Winform XD

El programa sirve para seleccionar una o varias carpetas y añadirlas a la lista de reproducción del reproductor multimedia, ni más, ni menos. (Buena tool para bindearla a un "hot-corner" de la pantalla del PC)

(http://img844.imageshack.us/img844/203/prtscrcapture2c.jpg)      (http://img690.imageshack.us/img690/35/prtscrcapturec.jpg)


Source: http://exoshare.com/download.php?uid=EJJTGEXN





Aquí dejo el "boceto" en Batch por si le sirve a alguien:

Código
  1. @echo off
  2. Title Winamp Auto Playlist Menu v0.1
  3.  
  4. :: Auto-redimensionado
  5. color 07
  6. Nircmd win center ititle "Winamp Auto Playlist Menu" >NUL 2>&1
  7. PUSHD "%~dp0"
  8. Set /a Lines=5
  9. Mode con cols=50 lines=%LINES%
  10. For /D %%# in (*) Do (Call Set /A "Lines+=2" & call Mode con cols=60 lines=%%LINES%%)
  11.  
  12. :Menu
  13. CLS
  14. SET "SELECT=" & SET "NUM="
  15. For /D %%# in (*) Do (Call Set /A "Num+=1" & Call Set "Folder%%NUM%%=%%#" & Call Set "List=%%LIST%%!!%%NUM%%" & Call Echo [%%Num%%] %%# | MORE)
  16. Echo [0] * REPRODUCIR TODO * | MORE
  17. Echo: Seleccione una carpeta para reproducirla...
  18. Set /P select=^>^>
  19. Echo "%SELECT%" | FINDSTR /I "[A-Z]" >NUL && (Goto :Menu) || (Echo "%List%" | FIND ";%SELECT% " >NUL || (Goto :Menu))
  20. If "%SELECT%" equ "0" (Goto :todo)
  21.  
  22. :Play
  23. CLS
  24. Call Echo Carpeta seleccionada: "%%Folder%SELECT%%%" | MORE
  25. Call Echo: [+] Iniciando Winamp...
  26. Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe "%CD%\%%Folder%SELECT%%%"
  27. Timeout /T 5 & Exit
  28.  
  29. :TODO
  30. CLS
  31. Call Echo Carpeta seleccionada: * TODAS * | MORE
  32. Call Echo: [+] Iniciando Winamp...
  33. For /D %%# in (*) Do (Call Set "ARG=%%arg%% ^"%CD%\%%#^"")
  34. Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe %%arg%%
  35. Timeout /T 10 & Exit

esta bueno :P aunque yo cree mi propio formato de playlists y mi propio reproductor, pero el batch xD es ingenioso