Foro de elhacker.net

Programaciσn => Scripting => Mensaje iniciado por: EddyW en 29 Abril 2009, 05:39 am


Título: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: EddyW en 29 Abril 2009, 05:39 am
CMD MEDIA PLAYER v1.1 by 3D1

Aqui como dice el title es un reproductor de MP3, Wavs y MIDs en Batch y usando un poco de Scrips VBS..
Usar el CMD MEDIA PLAYER v1 es facil..
La teclas de direccion Izquierda y derecha para seleccionar un boton..
La Tecla Enter para presionar el boton..
y la tecla ESC para salir (Si o si, al pres. la tecla esc borra los archivos tmporales que creo y cierra correctamente..)
Aqui esta el code:
Código
  1. @echo off
  2. @mode con cols=14 lines=1
  3. title .:Cargando...:.
  4. cls
  5. reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  6. reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  7. cls
  8.  
  9. if exist "screen.size" (goto :Cnt)
  10.  
  11. echo Existes>"screen.size"
  12. Reg export HKCU\Console Backup.reg>nul
  13. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
  14. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
  15. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
  16. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 524294 /f>nul
  17. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
  18. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
  19. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul 
  20. start cmd /c %0
  21. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
  22. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
  23. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
  24. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
  25. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
  26. Reg import Backup.reg>nul
  27. Del /Q "screen.size">nul
  28. Del /Q "Backup.reg">nul
  30.  
  31. :Cnt
  32. taskkill /F /IM cmplayer3d1.exe>nul 2>&1
  33. del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
  34. del /Q "%tmp%\sound.vbs">nul 2>&1
  35. del /Q "%tmp%\timer.vbs">nul 2>&1
  36. del /Q "%tmp%\file.txt"
  37. del /Q Key.exe>nul 2>&1
  38. del /Q Keyboard.dat>nul 2>&1
  39. (
  40. echo n keyboard.dat
  41. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  42. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  43. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  44. echo rcx
  45. echo 002E
  46. echo w0
  49. )>keyboard.dat
  50. echo type keyboard.dat^|debug>AddKey.bat
  51. echo ren keyboard.dat key.exe>>AddKey.bat
  52. echo del /Q %%0>>AddKey.bat
  53. start /MIN cmd /c AddKey.bat
  54. copy /Y "%systemroot%\system32\wscript.exe" "%tmp%\cmplayer3d1.exe"
  55. @mode con cols=60 lines=20>nul
  56. title .: Cargando espere... :.
  57. set file= 
  58. set comp=                                                               ...
  59. set filec=%file%%comp%
  60. echo wscript.sleep 9000>%tmp%\timer.vbs
  61. cls
  63. ECHO  ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  64. echo  Ί CMD MEDIA PLAYER V1.1 BY 3D1..                         Ί
  65. echo  ΊΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΊ
  66. ECHO  Ί                                                        Ί
  67. echo  Ί BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. Ί
  68. ECHO  Ί                                                        Ί
  69. ECHO  Ί BIENVENIDO..                                           Ί
  70. ECHO  Ί                                                        Ί
  71. ECHO  Ί USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION..  Ί
  72. ECHO  Ί                                                        Ί
  73. ECHO  Ί IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC..  Ί
  74. ECHO  Ί                                                        Ί
  75. ECHO  Ί PARA SALIR..                                           Ί
  76. ECHO  Ί                                                        Ί
  77. ECHO  ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  78. CSCRIPT /NOLOGO %TMP%\TIMER.VBS
  79. title .: CMD Media Player v1.1 by 3D1 :.
  80. :open
  81. set filec=%file%%comp%
  82. cls
  83. echo 
  84. echo 
  85. echo 
  88. echo     SELECCIONAR ARCHIVO:
  89. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  90. echo     Ί%filec:~0,45%Ί
  91. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  93. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  94. echo     ΊABRIR Ί Ί PLAY Ί Ί STOP Ί
  95. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  96. key
  97. if "%errorlevel%"=="27" (
  98. goto :EOFs
  99. )
  100. if "%errorlevel%"=="77" (
  101. goto :Play
  102. )
  103. if "%errorlevel%"=="13" (
  104. (
  105. echo Dim DialogBox
  106. echo Dim Txt
  107. echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
  108. echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"
  109. echo DialogBox.ShowOpen
  110. echo Set Txt = CreateObject("Scripting.FileSystemObject"^)
  111. echo Txt.CreateTextFile("%tmp%\file.txt"^).Write DialogBox.filename
  112. )>%tmp%\comdialog.vbs
  113. cscript /nologo %tmp%\comdialog.vbs
  114. set /p file=<"%tmp%\file.txt"
  115. del /Q %tmp%\comdialog.vbs>nul 2>&1
  116. goto :open
  117. ) else (
  118. goto :open
  119. )
  120. :Play
  121. cls
  122. echo 
  123. echo 
  124. echo 
  127. echo     SELECCIONAR ARCHIVO:
  128. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  129. echo     Ί%filec:~0,45%Ί
  130. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  132. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  133. echo     Ί ABRIR Ί ΊPLAY Ί Ί STOP Ί
  134. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  135. key
  136. if "%errorlevel%"=="27" (
  137. goto :EOFs
  138. )
  139. if "%errorlevel%"=="77" (
  140. goto :Stop
  141. )
  142. if "%errorlevel%"=="75" (
  143. goto :open
  144. )
  145. if "%errorlevel%"=="13" (
  146. (
  147. echo On Error Resume next
  148. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  149. echo Sound.URL = "%file%"
  150. echo Sound.Controls.play
  151. echo if err.number = 0 then
  152. echo 	do while Sound.currentmedia.duration = 0
  153. echo 	wscript.sleep 100
  154. echo 	loop
  155. echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  157. echo	if len("%file%"^) ^< 2  then
  158. echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 ::."
  160. echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, ".:: CMD Media Player BY 3D1 ::."
  161. echo 	end if
  162. echo end if
  163. )>%tmp%\sound.vbs
  164. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  165. start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs
  166. goto :play
  167. ) else (
  168. goto :Play
  169. )
  170. :Stop
  171. cls
  172. echo 
  173. echo 
  174. echo 
  177. echo     SELECCIONAR ARCHIVO:
  178. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  179. echo     Ί%filec:~0,45%Ί
  180. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  182. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  183. echo     Ί ABRIR Ί Ί PLAY Ί ΊSTOP Ί
  184. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  185. key
  186. if "%errorlevel%"=="27" (
  187. goto :EOFs
  188. )
  189. if "%errorlevel%"=="75" (
  190. goto :Play
  191. )
  192. if "%errorlevel%"=="13" (
  193. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  194. goto :Stop
  195. ) else (
  196. goto :Stop
  197. )
  198. :EOFs
  199. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  200. del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
  201. del /Q "%tmp%\sound.vbs">nul 2>&1
  202. del /Q "%tmp%\timer.vbs">nul 2>&1
  203. del /Q "%tmp%\file.txt">nul 2>&1
  204. del /Q Key.exe>nul
  205. del /Q Keyboard.dat>nul
  206. cls
  207. echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. :.">%tmp%\msg.vbs
  208. cscript /nologo %tmp%\msg.vbs>nul 2>&1
  209. del /Q "%tmp%\msg.vbs">nul 2>&1
Facil de usar Ώno?..
Ya saben cualquier comentario o sugerencia es bienvenida y asi saco una v2 mejor..
SaluDOS!!! (http://foro.code-makers.es/Smileys/default/cool.gif)
PD: Espero sus comentarios (http://foro.code-makers.es/Smileys/default/xd.png)

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: 0x0309 en 29 Abril 2009, 07:15 am
Me ha gustado el cσdigo, lo que no me gustσ fue la espera. Me gustarνa que cada vez que colocas abrir un archivo, el directorio inicial sea la ϊltima ubicaciσn abierta. Pausar. Y filtrar las salidas esas de los procesos: "Se terminσ correctamente".
Código:
taskkill /F /IM cmplayer3d1.exe >nul 2>&1

y controlar de alguna manera que si cierras la ventana, no se siga escuchando de fondo la canciσn.

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: Martin-Ph03n1X en 29 Abril 2009, 08:15 am
ME HA GUSTADO PERO..............
el color se lo puse en 0a
otra cosa me merco error =S
a qui les pongo la imagen=
(http://img524.imageshack.us/img524/1416/uplaods.jpg)

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: EddyW en 29 Abril 2009, 16:13 pm
Cita de: 0x0309 en 29 Abril 2009, 07:15 am
Me ha gustado el cσdigo, lo que no me gustσ fue la espera. Me gustarνa que cada vez que colocas abrir un archivo, el directorio inicial sea la ϊltima ubicaciσn abierta. Pausar. Y filtrar las salidas esas de los procesos: "Se terminσ correctamente".
Código:
taskkill /F /IM cmplayer3d1.exe >nul 2>&1

y controlar de alguna manera que si cierras la ventana, no se siga escuchando de fondo la canciσn.
Bueno, lo arreglo para una version 2, y le agrego mas cosas, olvide todos los filtros, y la manera de que si se cierra la ventana y ce cierre el Script ya se como hacerlo lo pondre tambien en la siguiente version..
Cita de: Martin-Ph03n1X en 29 Abril 2009, 08:15 am
ME HA GUSTADO PERO..............
el color se lo puse en 0a
otra cosa me merco error =S
a qui les pongo la imagen=
(http://img524.imageshack.us/img524/1416/uplaods.jpg)
OK, ya lo solucione ahora mismo cambio el code, olvide el control de errores, y ahora como va..?
y el color les dejo a su eleccion, los Skins estaran disponibles en la version2, vamos que mas quieren que le ponga..
SaluDOS!!!

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: Novlucker en 29 Abril 2009, 16:17 pm
Por si acaso revisa como queda el sound.vbs al generarse ya que por lo que veo rapidamente, quizαs el problema este en donde estan colocados los ^  :P

Saludos

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: EddyW en 29 Abril 2009, 16:20 pm
Posteo la misma version pero en tamaρo grande...
Código
  1. @echo off
  2. @mode con cols=14 lines=1
  3. title .:Cargando...:.
  4. cls
  5. reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
  6. reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
  7. cls
  8.  
  9. if exist "screen.size" (goto :Cnt)
  10.  
  11. echo Existes>"screen.size"
  12. Reg export HKCU\Console Backup.reg>nul
  13. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
  14. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
  15. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
  16. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 1024294 /f>nul
  17. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
  18. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
  19. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul 
  20. start cmd /c %0
  21. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
  22. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
  23. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
  24. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
  25. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
  26. Reg import Backup.reg>nul
  27. Del /Q "screen.size">nul
  28. Del /Q "Backup.reg">nul
  30.  
  31. :Cnt
  32. taskkill /F /IM cmplayer3d1.exe>nul 2>&1
  33. del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
  34. del /Q "%tmp%\sound.vbs">nul 2>&1
  35. del /Q "%tmp%\timer.vbs">nul 2>&1
  36. del /Q "%tmp%\file.txt"
  37. del /Q Key.exe>nul 2>&1
  38. del /Q Keyboard.dat>nul 2>&1
  39. (
  40. echo n keyboard.dat
  41. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  42. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  43. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  44. echo rcx
  45. echo 002E
  46. echo w0
  49. )>keyboard.dat
  50. echo type keyboard.dat^|debug>AddKey.bat
  51. echo ren keyboard.dat key.exe>>AddKey.bat
  52. echo del /Q %%0>>AddKey.bat
  53. start /MIN cmd /c AddKey.bat
  54. copy /Y "%systemroot%\system32\wscript.exe" "%tmp%\cmplayer3d1.exe"
  55. @mode con cols=60 lines=20>nul
  56. title .: Cargando espere... :.
  57. set file= 
  58. set comp=                                                               ...
  59. set filec=%file%%comp%
  60. echo wscript.sleep 9000>%tmp%\timer.vbs
  61. cls
  63. ECHO  ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  64. echo  Ί CMD MEDIA PLAYER V1.1 BY 3D1..                         Ί
  65. echo  ΊΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΊ
  66. ECHO  Ί                                                        Ί
  67. echo  Ί BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. Ί
  68. ECHO  Ί                                                        Ί
  69. ECHO  Ί BIENVENIDO..                                           Ί
  70. ECHO  Ί                                                        Ί
  71. ECHO  Ί USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION..  Ί
  72. ECHO  Ί                                                        Ί
  73. ECHO  Ί IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC..  Ί
  74. ECHO  Ί                                                        Ί
  75. ECHO  Ί PARA SALIR..                                           Ί
  76. ECHO  Ί                                                        Ί
  77. ECHO  ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  78. CSCRIPT /NOLOGO %TMP%\TIMER.VBS
  79. title .: CMD Media Player v1.1 by 3D1 :.
  80. :open
  81. set filec=%file%%comp%
  82. cls
  83. echo 
  84. echo 
  85. echo 
  88. echo     SELECCIONAR ARCHIVO:
  89. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  90. echo     Ί%filec:~0,45%Ί
  91. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  93. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  94. echo     ΊABRIR Ί Ί PLAY Ί Ί STOP Ί
  95. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  96. key
  97. if "%errorlevel%"=="27" (
  98. goto :EOFs
  99. )
  100. if "%errorlevel%"=="77" (
  101. goto :Play
  102. )
  103. if "%errorlevel%"=="13" (
  104. (
  105. echo Dim DialogBox
  106. echo Dim Txt
  107. echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
  108. echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"
  109. echo DialogBox.ShowOpen
  110. echo Set Txt = CreateObject("Scripting.FileSystemObject"^)
  111. echo Txt.CreateTextFile("%tmp%\file.txt"^).Write DialogBox.filename
  112. )>%tmp%\comdialog.vbs
  113. cscript /nologo %tmp%\comdialog.vbs
  114. set /p file=<"%tmp%\file.txt"
  115. del /Q %tmp%\comdialog.vbs>nul 2>&1
  116. goto :open
  117. ) else (
  118. goto :open
  119. )
  120. :Play
  121. cls
  122. echo 
  123. echo 
  124. echo 
  127. echo     SELECCIONAR ARCHIVO:
  128. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  129. echo     Ί%filec:~0,45%Ί
  130. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  132. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  133. echo     Ί ABRIR Ί ΊPLAY Ί Ί STOP Ί
  134. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  135. key
  136. if "%errorlevel%"=="27" (
  137. goto :EOFs
  138. )
  139. if "%errorlevel%"=="77" (
  140. goto :Stop
  141. )
  142. if "%errorlevel%"=="75" (
  143. goto :open
  144. )
  145. if "%errorlevel%"=="13" (
  146. (
  147. echo On Error Resume next
  148. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  149. echo Sound.URL = "%file%"
  150. echo Sound.Controls.play
  151. echo if err.number = 0 then
  152. echo 	do while Sound.currentmedia.duration = 0
  153. echo 	wscript.sleep 100
  154. echo 	loop
  155. echo 	wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  157. echo	if len("%file%"^) ^< 2  then
  158. echo 		msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 ::."
  160. echo		msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, ".:: CMD Media Player BY 3D1 ::."
  161. echo 	end if
  162. echo end if
  163. )>%tmp%\sound.vbs
  164. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  165. start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs
  166. goto :play
  167. ) else (
  168. goto :Play
  169. )
  170. :Stop
  171. cls
  172. echo 
  173. echo 
  174. echo 
  177. echo     SELECCIONAR ARCHIVO:
  178. echo     ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  179. echo     Ί%filec:~0,45%Ί
  180. echo     ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  182. echo     ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ»
  183. echo     Ί ABRIR Ί Ί PLAY Ί ΊSTOP Ί
  184. echo     ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ
  185. key
  186. if "%errorlevel%"=="27" (
  187. goto :EOFs
  188. )
  189. if "%errorlevel%"=="75" (
  190. goto :Play
  191. )
  192. if "%errorlevel%"=="13" (
  193. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  194. goto :Stop
  195. ) else (
  196. goto :Stop
  197. )
  198. :EOFs
  199. taskkill /F /IM cmplayer3d1.exe >nul 2>&1
  200. del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
  201. del /Q "%tmp%\sound.vbs">nul 2>&1
  202. del /Q "%tmp%\timer.vbs">nul 2>&1
  203. del /Q "%tmp%\file.txt">nul 2>&1
  204. del /Q Key.exe>nul
  205. del /Q Keyboard.dat>nul
  206. cls
  207. echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. :.">%tmp%\msg.vbs
  208. cscript /nologo %tmp%\msg.vbs>nul 2>&1
  209. del /Q "%tmp%\msg.vbs">nul 2>&1
Como ven es exactamente la misma pero con la unica diferencia que este tiene un tamaρo extragrande, para los que no les gusto el tamaρo pequeρo del primero...
SaluDOS!!!

Título: Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)
Publicado por: EddyW en 29 Abril 2009, 16:22 pm
Cita de: Novlucker en 29 Abril 2009, 16:17 pm
Por si acaso revisa como queda el sound.vbs al generarse ya que por lo que veo rapidamente, quizαs el problema este en donde estan colocados los ^  :P

Saludos
Posteamos al mismo tiempo, ups, pero el problema ya lo corregi era cuando le daban click en play sin seleccionar ningun archivo...
y me fije en el sound.vbs y esta bien no hay error en los ^ siempre se ponen asi y funciona..
SaluDOS!!!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines