Как скачать файл с помощью батника?

← →
Кто б сомневался © (2009-11-13 19:06) [0]

Нужно скачать файл с http при помощи батника, желательно средствами ОС. Знаю есть программа ftp - но она работает только с ftp.

← →
Кто б сомневался © (2009-11-13 19:14) [1]

Ну или средствами браузера, закачать и сохранить из батника. Никто не знает как?

← →
Медвежонок Пятачок © (2009-11-13 19:22) [2]

js + wsh + xmlhttprequest

← →
Кто б сомневался © (2009-11-13 19:24) [3]

> Медвежонок Пятачок © (13.11.09 19:22) [2]

Можно пример на wsh?

← →
TUser © (2009-11-13 19:26) [4]

wget

cygwin надо будет поставить

← →
AlexDan © (2009-11-13 19:34) [5]

а если через делфи..? idHTTP1.get?

← →
Медвежонок Пятачок © (2009-11-13 19:37) [6]

да просто вместо батника пишешь модуль на любимом скриптовом языке.
в скрипте создаешь оле объект xmlhttprequest делаешь ему оупен с методом гетом, сенд и взад получаешь свой файл.

ну а сам скрипт запускешь через windows scripting host

← →
wicked © (2009-11-14 01:06) [7]

http://curl.haxx.se

← →
AlexDan © (2009-11-14 02:06) [8]

> Медвежонок Пятачок © (13.11.09 19:37) [6]
> да просто вместо батника пишешь модуль на любимом скриптовом
> языке.
> в скрипте создаешь оле объект xmlhttprequest делаешь ему
> оупен с методом гетом, сенд и взад получаешь свой файл.
вот они эти страшные слова,
procedure TForm1.Button1Click(Sender: TObject);
Var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
{IdFTP1.Host := "192.168.10.20";}
{IdFTP1.Connect;}
{IdFTP1}idHTTP1.get(Edit1.Text,ms{,true});//111.bmp
ms.SaveToFile("12.bmp");
ms.Free;
end;
сколько я ими файлов с чужих хостов попереп-л;), иногда очень удобно было..)

сколько я ими файлов с чужих хостов попереп-л;), иногда очень удобно было..)

особенно удобно когда перед тобой прокси.

Забираем.:

" Set your settings
strFileURL = "http://www.domain.com/file.zip"
strHDLocation = "D:\file.zip"

" Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 "adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 "Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing

Создайте файл с расширением vbs и киньте туда этот код.

Как скачать файл с помощью батника? Найти похожие ветки