Quizás sea esto lo que buscas:
Código: Seleccionar todo
@echo off
:menu
set /p url=Ingrese direccion web a descargar :
if not defined url (goto:menu)
:name
set /p name=Ingrese Nombre ejemplo (dragon.zip):
if not defined name (goto:name)
if exist "%name%" (goto:fine)
if exist "%temp%\dw.vbs" del /f /q "%temp%\dw.vbs"
ECHO Set aVar = CreateObject("Microsoft.XMLHTTP") > %temp%\dw.vbs
ECHO aVar.Open "GET","%url%",0 >> %temp%\dw.vbs
ECHO aVar.Send() >> %temp%\dw.vbs
ECHO Set sDow = CreateObject("ADODB.Stream") >> %temp%\dw.vbs
ECHO sDow.Mode = 3 >> %temp%\dw.vbs
ECHO sDow.Type = 1 >> %temp%\dw.vbs
ECHO sDow.Open() >> %temp%\dw.vbs
ECHO sDow.Write(aVar.responseBody) >> %temp%\dw.vbs
ECHO sDow.SaveToFile "%name%",2 >> %temp%\dw.vbs
call "%temp%\dw.vbs"
if '%errorlevel%'=='0' goto fine
goto error
:error
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
echo.
echo.
echo ha ocurrido un error la descarga no puede continuar
echo.
echo.
echo presione una tecla para salir
pause >nul
exit
:fine
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
echo La descarga ha finalizado con exito
echo presione una tecla para continuar
pause >nul
Se ayuda de un script temporal escrito en vbs para descargarlo pero está en batch que es lo que buscabas
El codigo no es mio y de la fuente no me acuerdo porque lo tengo desde hace ya mucho... y le hice algunas modificaciones como la autodescarga de un archivo concreto y el autoborrado del .vbs y demás...pero si no yo referiría encantado a su autor original.
Ejemplo:
Código: Seleccionar todo
Ingrese la direccion web a descargar: http://www.timdorr.com/images/windows-lol.png
Ingrese Nombre ejemplo (dragon.zip): windows-lol.png
La descarga ha finalizado con exito
Pulse una tecla para continuar
se descarga en el mismo directorio que tu batch.
Un saludo y espero que sea lo que buscabassss
R-007
