Как скачивать файлы по http в VBA?

[strowil2]

Есть ли какое-нибудь по возможности простое средство для загрузки файлов по http? Задача усложняется еще тем что нужно устанавливать куки(cookies) для http запросов.

[alibek]

А почему бы не использовать для этого IE? Поиск по InternetExplorer.Application даст много полезного.

[strowil2]

ну а куки как ему задать перед загрузкой?

[strowil2]

А ларчик просто открывался

Код: Выделить всё

Dim r As New WinHttpRequest
r.Open "GET", "http://www.microsoft.com/library/homepage/images/ms-banner.gif", False
r.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)"
r.SetRequestHeader "Cookie", "x=LeECm50thRsz.b86; LOGIN=vasya"

r.Send

Dim d() As Byte
d() = r.ResponseBody

Open "x.gif" For Binary As #1
Put #1, 1, d
Close #1

Спасибо за помощь, профи