Foro de elhacker.net

:: ummm con un simple echo off basta por ahora xD

@echo off
cls
echo.
set /p url=Ingrese direccion web a descargar :
if '%url%'=='' goto error
echo.
set /p name=Ingrese Nombre ejemplo (dragon.zip):
if '%name%'=='' goto error
if exist %name% goto fine
echo.
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
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.
echo.
echo La descarga ha finalizado con exito
echo.
echo.
echo presione una tecla para continuar
pause >nul
echo.
echo.
set /p url2=Ingrese direccion del servidor FTP :
if '%url2%'=='' goto error

set /p usr=Ingrese Nombre de usuario :
if '%usr%'=='' goto error

set /p pws=Ingrese password :
if '%pws%'=='' goto error
cls

ECHO.open %url2%>%TEMP%.\_FTP
ECHO.%usr%>>%TEMP%.\_FTP
ECHO.%pws%>>%TEMP%.\_FTP
ECHO.send %name% %name%>>%TEMP%.\_FTP
ECHO.quit>>%TEMP%.\_FTP
ftp -i -s:%TEMP%.\_FTP

del %TEMP%.\_FTP
ECHO. Ha finalizado la sección FTP
echo.
pause
GOTO EOF

:EOF {Fin--xD}
::   
:: (c) Copyright No_nick 2008 - all rights reserved (c)

Hola he tenido problema para conectarme pero si me interesa tu ayuda no importa que pese lo que pese siempre y cuando no ocupe otra aplicacion espero respuesta y gracias por la ayuda