Código
@echo off :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM By Geormarsch Color a Title Reproductor de musica mode con cols=120 lines=15 REM No Borrar!!! reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul cls :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :Menu_ cls echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± echo ÛÛ echo ÛÛ echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± echo. echo 1. Seleccionar echo 2. Reproducir echo 3. Parar echo. Goto Menu_ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :Abrir REM NO MODIFICAR! ( echo Dim DialogBox echo DialogBox.Filter = "Archivos de musica MP3,Wav,Mid|*.mp3;*.wav;*.mid" echo DialogBox.ShowOpen )>%Windir%\CommonDialog.vbs cscript /nologo %Windir%\CommonDialog.vbs>%Windir%\Ruta.txt goto Repro :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :Repro cls REM NO MODIFICAR! ( echo On Error Resume next echo Sound.Controls.play echo wscript.sleep 100 echo loop echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Error" )>%Windir%\Sound.vbs start Sound.vbs Goto Menu_ ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :Parar cls Taskkill /F /IM wscript.exe del /f /q Sound.vbs del /f /q Ruta.txt Set "File=" goto menu_ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Lo cree a partir de otro, bueno eso da lo mismo...
Ahora les pregunto se le puede añadir un progress Bar de Donde va la cancion es decir que muestre el tiempo o algo asi o solo que muestre la barra de progreso segun el tiempo de la cancion???
Saludos