3
oslokot
29.05.13
✎
12:09
|
Дарю:
Функция СохранитьФайлИзИнтернета(Ссылка,Путь)
Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language = "vbscript";
Соединение = CreateObject("WinHttp.WinHttpRequest.5.1");
Соединение.Open("GET", Ссылка, 0);
Соединение.SetTimeouts(10000, 60000, 30000, 30000);
Соединение.setRequestHeader("Accept", "application/xml");
Соединение.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded");
Соединение.Send();
Соединение.WaitForResponse();
к=_GetPerformanceCounter();
Пока Соединение.Status<>200 Цикл
Если _GetPerformanceCounter()-к>=2000 Тогда
Сообщить("Страница не отвечает. "+ОписаниеОшибки());
Возврат 0;
КонецЕсли;
Состояние("Ожидание соединения...");
КонецЦикла;
Stream = CreateObject("ADODB.Stream");
Stream.Mode = 3;
Stream.Type = 1;
Stream.Open();
Скрипт.AddObject("s",Stream);
Скрипт.AddObject("x",Соединение);
Скрипт.Eval("s.Write(x.responseBody)");
Stream.SaveToFile(Путь, 2);
Stream.Close();
Возврат 1;
КонецФункции
|
|