скачиваю файл с помощью XMLHTTP
Модератор: Модераторы
1 сообщение
• Страница 1 из 1
- Белый котик
- Пользователь
- Сообщения: 64
- Зарегистрирован: 19 май 2005, 15:32
- Откуда: Екатеринбург
Белый котик » 19 май 2006, 15:02
Добрый день 
Итак, задача: лезем на страничку и выкачиваем оттуда файлики (по сути страница - веб-папка. все файлы в виде прямых ссылок)
чего делаю: создаю InternetExplorer.Application, пишу в реестр
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE
iexplore.exe (DWORD) = 0
иду по ссылке вида http://user:pass@host.ru
открывается целевая страничка, берем ссылки и последовательно скачиваем с помощью XMLHTTP и ADODB.Stream
фишка в том, что XMLHTTP имеет параметры, которые позволяют авторизоваться на сервере, а у меня ISA.
и если я передаю эти параметры - ISA считает, что это я ей передаю информацию и не пускает в инет, а если этих параметров не передавать - удаленный сервер не дает скачать файлы.
Внимание, вопрос: каким образом возможно это реализовать?
Заранее благодарен за ЛЮБУЮ помощь, Михаил. (код ниже)
Итак, задача: лезем на страничку и выкачиваем оттуда файлики (по сути страница - веб-папка. все файлы в виде прямых ссылок)
чего делаю: создаю InternetExplorer.Application, пишу в реестр
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE
iexplore.exe (DWORD) = 0
иду по ссылке вида http://user:pass@host.ru
открывается целевая страничка, берем ссылки и последовательно скачиваем с помощью XMLHTTP и ADODB.Stream
фишка в том, что XMLHTTP имеет параметры, которые позволяют авторизоваться на сервере, а у меня ISA.
и если я передаю эти параметры - ISA считает, что это я ей передаю информацию и не пускает в инет, а если этих параметров не передавать - удаленный сервер не дает скачать файлы.
Внимание, вопрос: каким образом возможно это реализовать?
Заранее благодарен за ЛЮБУЮ помощь, Михаил. (код ниже)
| Код |
|
sub DL_File(link_name, local_name) print "Downloading file:" & link_name ' ' Скачиваем файл ' Set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP") oHTTP.Open "GET", link_name, False, Proxy_Username, Proxy_Password oHTTP.Send Set oStream = CreateObject("ADODB.Stream") oStream.Type = 1 oStream.Open z = oHTTP.responseBody oStream.Write z ' ' Сохраняем файл локально (с перезаписью) ' print "Saved as " & local_name oStream.Savetofile local_name, 2 Set oStream = Nothing Set oHTTP = Nothing end sub [/code]
1 сообщение
• Страница 1 из 1
Кто сейчас на конференцииСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1 |