Private Function DownloadFile(ByVal URL$, ByVal LocalPath$) As String
' Функция скачивает файл по ссылке URL$
' и сохраняет его под именем LocalPath$
Dim XMLHTTP, ADOStream, fileName
' On Error Resume Next: Kill LocalPath$
10 Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
'10 Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
20 XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
'C мозилой понимает язык русский IE не катит
30 XMLHTTP.setRequestHeader "user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)"
40 XMLHTTP.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3"
50 XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
60 XMLHTTP.send
' responseText
70 If XMLHTTP.statustext = "OK" Then
Debug.Print URL
80 Set ADOStream = CreateObject("ADODB.Stream")
90 ADOStream.Type = 1
100 ADOStream.Open
110 ADOStream.Write XMLHTTP.responseBody
120 ADOStream.SaveToFile LocalPath$, 2
130 ADOStream.Close: Set ADOStream = Nothing
140 DownloadFile = True
150 Else
'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
160 End If
170 Set XMLHTTP = Nothing
End Function
вместо картинок стала грузить файлы с расширением jpg, но с таким содержимым <html><head><script>function set_cookie(){var now = new Date();var time = now.getTime();time += 19360000 * 1000;now.setTime(time);document.cookie='beget=begetok'+'; expires='+now.toGMTString()+'; path=/';}set_cookie();location.reload();;</script></head><body></body></html> Что за беда, и как забороть?