Autor
|
Tema: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid) (Leído 4,910 veces)
|
EddyW
|
CMD MEDIA PLAYER v1.1 by 3D1Aqui 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: @mode con cols=14 lines=1 cls reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f >nul 2 >&1 reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f >nul 2 >&1 cls echo Existes >"screen.size" Reg export HKCU\Console Backup.reg >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 524294 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f >nul start cmd /c %0 Reg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FaceName /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontFamily /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontSize /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontWeight /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v CursorSize /f >nulReg import Backup.reg >nul :Cnt taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 del /Q " %tmp%\cmplayer3d1.exe" >nul 2 >&1 del /Q " %tmp%\sound.vbs" >nul 2 >&1 del /Q " %tmp%\timer.vbs" >nul 2 >&1 ( echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00 echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21 )>keyboard.dat echo type keyboard.dat ^|debug >AddKey.bat echo ren keyboard.dat key.exe >>AddKey.bat start /MIN cmd /c AddKey.bat copy /Y " %systemroot%\system32\wscript.exe" " %tmp%\cmplayer3d1.exe" @mode con cols=60 lines=20 >nul title .: Cargando espere... : . echo wscript.sleep 9000 >%tmp%\timer.vbs cls ECHO ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo Ί CMD MEDIA PLAYER V1.1 BY 3D1.. Ί echo ΊΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΊ echo Ί BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. Ί ECHO Ί USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION.. Ί ECHO Ί IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC.. Ί ECHO ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ CSCRIPT /NOLOGO %TMP%\TIMER.VBS title .: CMD Media Player v1.1 by 3D1 : . :open cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo ΊABRIR Ί Ί PLAY Ί Ί STOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="77" ( ) if " %errorlevel%"=="13" ( ( echo Set DialogBox = CreateObject ("UserAccounts.CommonDialog.1" ^) echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID |*.mp3;*.wav;*.mid" echo Set Txt = CreateObject ("Scripting.FileSystemObject" ^) echo Txt.CreateTextFile (" %tmp%\file.txt" ^).Write DialogBox.filename )>%tmp%\comdialog.vbs cscript /nologo %tmp%\comdialog.vbs set /p file= <" %tmp%\file.txt" del /Q %tmp%\comdialog.vbs >nul 2 >&1 ) :Play cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo Ί ABRIR Ί ΊPLAY Ί Ί STOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="77" ( ) if " %errorlevel%"=="75" ( ) if " %errorlevel%"=="13" ( ( echo On Error Resume next echo Set Sound = CreateObject ("WMPlayer.OCX" ^) echo Sound.URL = " %file%" echo do while Sound.currentmedia.duration = 0 echo wscript.sleep (int (Sound.currentmedia.duration ^)+1 ^)*1000 echo if len (" %file%" ^) ^< 2 then echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 : :." echo msgbox "No es posible reproducir el archivo " ^& " %file%", vbinformation, ".:: CMD Media Player BY 3D1 : :." )>%tmp%\sound.vbs taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs ) :Stop cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo Ί ABRIR Ί Ί PLAY Ί ΊSTOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="75" ( ) if " %errorlevel%"=="13" ( taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 ) :EOFs taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 del /Q " %tmp%\cmplayer3d1.exe" >nul 2 >&1 del /Q " %tmp%\sound.vbs" >nul 2 >&1 del /Q " %tmp%\timer.vbs" >nul 2 >&1 del /Q " %tmp%\file.txt" >nul 2 >&1 cls echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. : .">%tmp%\msg.vbs cscript /nologo %tmp%\msg.vbs >nul 2 >&1 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!!! PD: Espero sus comentarios
|
|
« Última modificación: 29 Abril 2009, 16:14 pm por 3D1 »
|
En línea
|
|
|
|
0x0309
Desconectado
Mensajes: 215
|
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". 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.
|
|
|
En línea
|
|
|
|
Martin-Ph03n1X
Desconectado
Mensajes: 1.059
SHOCYRIX
|
ME HA GUSTADO PERO.............. el color se lo puse en 0a otra cosa me merco error =S a qui les pongo la imagen=
|
|
|
En línea
|
No eres tu trabajo, no eres cuanto tienes en el banco, no eres el auto que conduces, ni el contenido en tu billetera, no eres tus malditos cakis, eres el bailarin cantante del mundo...!!!"
|
|
|
EddyW
|
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". 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.. ME HA GUSTADO PERO.............. el color se lo puse en 0a otra cosa me merco error =S a qui les pongo la imagen= 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!!!
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 ^ Saludos
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
EddyW
|
Posteo la misma version pero en tamaρo grande... @mode con cols=14 lines=1 cls reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f >nulreg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f >nulcls echo Existes >"screen.size" Reg export HKCU\Console Backup.reg >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 1024294 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f >nulReg add HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f >nul start cmd /c %0 Reg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FaceName /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontFamily /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontSize /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v FontWeight /f >nulReg delete HKCU\Console\ %%SystemRoot%%_system32_cmd.exe /v CursorSize /f >nulReg import Backup.reg >nul :Cnt taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 del /Q " %tmp%\cmplayer3d1.exe" >nul 2 >&1 del /Q " %tmp%\sound.vbs" >nul 2 >&1 del /Q " %tmp%\timer.vbs" >nul 2 >&1 ( echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00 echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21 )>keyboard.dat echo type keyboard.dat ^|debug >AddKey.bat echo ren keyboard.dat key.exe >>AddKey.bat start /MIN cmd /c AddKey.bat copy /Y " %systemroot%\system32\wscript.exe" " %tmp%\cmplayer3d1.exe" @mode con cols=60 lines=20 >nul title .: Cargando espere... : . echo wscript.sleep 9000 >%tmp%\timer.vbs cls ECHO ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo Ί CMD MEDIA PLAYER V1.1 BY 3D1.. Ί echo ΊΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΊ echo Ί BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. Ί ECHO Ί USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION.. Ί ECHO Ί IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC.. Ί ECHO ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ CSCRIPT /NOLOGO %TMP%\TIMER.VBS title .: CMD Media Player v1.1 by 3D1 : . :open cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo ΊABRIR Ί Ί PLAY Ί Ί STOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="77" ( ) if " %errorlevel%"=="13" ( ( echo Set DialogBox = CreateObject ("UserAccounts.CommonDialog.1" ^) echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID |*.mp3;*.wav;*.mid" echo Set Txt = CreateObject ("Scripting.FileSystemObject" ^) echo Txt.CreateTextFile (" %tmp%\file.txt" ^).Write DialogBox.filename )>%tmp%\comdialog.vbs cscript /nologo %tmp%\comdialog.vbs set /p file= <" %tmp%\file.txt" del /Q %tmp%\comdialog.vbs >nul 2 >&1 ) :Play cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo Ί ABRIR Ί ΊPLAY Ί Ί STOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="77" ( ) if " %errorlevel%"=="75" ( ) if " %errorlevel%"=="13" ( ( echo On Error Resume next echo Set Sound = CreateObject ("WMPlayer.OCX" ^) echo Sound.URL = " %file%" echo do while Sound.currentmedia.duration = 0 echo wscript.sleep (int (Sound.currentmedia.duration ^)+1 ^)*1000 echo if len (" %file%" ^) ^< 2 then echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 : :." echo msgbox "No es posible reproducir el archivo " ^& " %file%", vbinformation, ".:: CMD Media Player BY 3D1 : :." )>%tmp%\sound.vbs taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs ) :Stop cls echo SELECCIONAR ARCHIVO: echo ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» echo ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ echo ΙΝΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» ΙΝΝΝΝΝΝ» echo Ί ABRIR Ί Ί PLAY Ί ΊSTOP Ί echo ΘΝΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ ΘΝΝΝΝΝΝΌ key if " %errorlevel%"=="27" ( ) if " %errorlevel%"=="75" ( ) if " %errorlevel%"=="13" ( taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 ) :EOFs taskkill /F /IM cmplayer3d1.exe >nul 2 >&1 del /Q " %tmp%\cmplayer3d1.exe" >nul 2 >&1 del /Q " %tmp%\sound.vbs" >nul 2 >&1 del /Q " %tmp%\timer.vbs" >nul 2 >&1 del /Q " %tmp%\file.txt" >nul 2 >&1 cls echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. : .">%tmp%\msg.vbs cscript /nologo %tmp%\msg.vbs >nul 2 >&1 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!!!
|
|
|
En línea
|
|
|
|
EddyW
|
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 ^ 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!!!
|
|
|
En línea
|
|
|
|
|
|