Hola,
hoy eh creado para ustedes un reproductor de musica con el fin de demostrar la infinidades de cosas que se pueden hacer en batch...
les dejo una pequeña explicacion:
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:
[color=#000000][color=#000000]
@echo off
@mode con cols=14 lines=1
title .:Cargando...:.
cls
reg delete "HKLMsoftwareMicrosoftWindows Script HostSettings" /v "Enabled" /f>nul
reg delete "HKCUsoftwareMicrosoftWindows Script HostSettings" /v "Enabled" /f>nul
cls
if exist "screen.size" (goto :Cnt)
echo Existes>"screen.size"
Reg export HKCUConsole Backup.reg>nul
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 524294 /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
Reg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
start cmd /c %0
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
Reg import Backup.reg>nul
Del /Q "screen.size">nul
Del /Q "Backup.reg">nul
exit
:Cnt
taskkill /F /IM cmplayer3d1.exe>nul
del /Q "%tmp%cmplayer3d1.exe">nul
del /Q "%tmp%sound.vbs">nul
del /Q "%tmp%timer.vbs">nul
del /Q "%tmp%file.txt"
del /Q Key.exe>nul
del /Q Keyboard.dat>nul
(
echo n keyboard.dat
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
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
echo type keyboard.dat^|debug>AddKey.bat
echo ren keyboard.dat key.exe>>AddKey.bat
echo del /Q %%0>>AddKey.bat
start /MIN cmd /c AddKey.bat
copy /Y "%systemroot%system32wscript.exe" "%tmp%cmplayer3d1.exe"
@mode con cols=60 lines=20>nul
title .: Cargando espere... :.
set file=
set comp= ...
set filec=%file%%comp%
echo wscript.sleep 9000>%tmp%timer.vbs
cls
echo.
ECHO í‰íííííííííííííííííííííííííííííííííííííííííííííííííííííííí »
echo º CMD MEDIA PLAYER º
echo ºíííííííííííííííííííííííííííííííííííííííííííííííííííííííí º
ECHO º º
ECHO º USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION.. º
ECHO º º
ECHO º IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC.. º
ECHO º º
ECHO º PARA SALIR.. º
ECHO º º
ECHO íˆíííííííííííííííííííííííííííííííííííííííííííííííííííííííí ¼
CSCRIPT /NOLOGO %TMP%TIMER.VBS
title .: CMD Media Player :.
:open
set filec=%file%%comp%
cls
echo
echo
echo
echo
echo.
echo SELECCIONAR ARCHIVO:
echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »
echo º%filec:~0,45% º
echo íˆííííííííííííííííííííííííííííííííííííííííííííí ¼
echo.
echo í‰ííííííí » í‰íííííí » í‰íííííí »
echo ºABRIR º º PLAY º º STOP º
echo íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Play
)
if "%errorlevel%"=="13" (
(
echo Dim DialogBox
echo Dim Txt
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.InitialDir = "%HomeDrive%"
echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
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
goto :open
) else (
goto :open
)
:Play
cls
echo
echo
echo
echo
echo.
echo SELECCIONAR ARCHIVO:
echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »
echo º%filec:~0,45% º
echo íˆííííííííííííííííííííííííííííííííííííííííííííí ¼
echo.
echo í‰ííííííí » í‰íííííí » í‰íííííí »
echo º ABRIR º ºPLAY º º STOP º
echo íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Stop
)
if "%errorlevel%"=="75" (
goto :open
)
if "%errorlevel%"=="13" (
(
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%file%"
echo Sound.Controls.play
echo wscript.sleep ((int(Sound.currentmedia.duration^)+1^)*1000^)+8000
)>%tmp%sound.vbs
taskkill /F /IM cmplayer3d1.exe>nul
start /MIN %tmp%cmplayer3d1.exe /nologo %tmp%sound.vbs
goto :play
) else (
goto :Play
)
:Stop
cls
echo
echo
echo
echo
echo.
echo SELECCIONAR ARCHIVO:
echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »
echo º%filec:~0,45% º
echo íˆííííííííííííííííííííííííííííííííííííííííííííí ¼
echo.
echo í‰ííííííí » í‰íííííí » í‰íííííí »
echo º ABRIR º º PLAY º ºSTOP º
echo íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="75" (
goto :Play
)
if "%errorlevel%"=="13" (
taskkill /F /IM cmplayer3d1.exe>nul
goto :Stop
) else (
goto :Stop
)
:EOFs
taskkill /F /IM cmplayer3d1.exe>nul
del /Q "%tmp%cmplayer3d1.exe">nul
del /Q "%tmp%sound.vbs">nul
del /Q "%tmp%timer.vbs">nul
del /Q "%tmp%file.txt">nul
del /Q Key.exe>nul
del /Q Keyboard.dat>nul
cls
echo msgbox "Gracias por usar CMD Media Player", vbInformation, ".: Mensaje.. :.">%tmp%msg.vbs
cscript /nologo %tmp%msg.vbs>nul
del /Q "%tmp%msg.vbs">nul
exit
[/color][/color]
espero que les alla gustado
PD: desde ya muchas gracias al usuario eddy de otros foros por compartir este codigo
PD2: es como el codigo original pero lo edite agregando pequeñas cosillas