[Batch] Progressbar Distinta :oo

[Geormarsch]

Bueno Tengo este Script

Código (dos) [Seleccionar] Expandir



@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.&&echo.
echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo   ÛÛ                         
echo   ÛÛ%File%
echo   ÛÛ     
echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo.
echo  1.   Seleccionar
echo  2.   Reproducir
echo  3.   Parar
echo.
Set /p Verificar= ^>^>
If %Verificar%==1 (Goto Abrir)
If %Verificar%==2 (Goto Repro)
If %Verificar%==3 (Goto Parar)
Goto Menu_

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Abrir
REM NO MODIFICAR!
(
echo Dim DialogBox
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.InitialDir = "%Windir%"
echo DialogBox.Filter = "Archivos de musica MP3,Wav,Mid|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
echo wscript.echo DialogBox.filename
)>%Windir%\CommonDialog.vbs

cscript /nologo %Windir%\CommonDialog.vbs>%Windir%\Ruta.txt
Set /p File=<"%Windir%\Ruta.txt"
goto Repro

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Repro
cls
REM NO MODIFICAR!
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%File%"
echo Sound.Controls.play
echo if err.number = 0 then
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo if len("%file%"^) ^< 2  then
echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Error"
echo else
echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Error"
echo end if
echo end if
)>%Windir%\Sound.vbs
cd %Windir%
start Sound.vbs
Goto Menu_

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Parar
cls
Taskkill /F /IM wscript.exe
cd %Windir%
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