V7HttpReader метод получить файл.

	Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.language = "vbscript";
		  
	x = CreateObject("Microsoft.XMLHTTP");
	x.Open("GET", АдресСтраницы, 0,"","");
	x.Send();
		  
	s = CreateObject("ADODB.Stream");
	s.Mode = 3;
	s.Type = 1;
	s.Open();
		  
	Скрипт.AddObject("s",s);
	Скрипт.AddObject("x",x);
	Скрипт.Eval("s.Write(x.responseBody)");
		  
	s.SaveToFile(ИмяФайлаЗагрузки, 2);

	Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
		Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "ExtForms\" + "v7plus.dll") <> 1 Тогда
			Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "v7plus.dll") <> 1 Тогда
				Предупреждение("Компонента v7plus.dll не найдена!", 60);
				Возврат;
			КонецЕсли;	
		КонецЕсли;
	КонецЕсли;          
	
	Попытка
		Соединение = СоздатьОбъект("Addin.V7HttpReader") ;
		Соединение.КоличествоПопытокАвторизации = 3;
	Исключение 
		Сообщить("Не удалось создать объект Addin.V7HttpReader!");
		Возврат;
	КонецПопытки; 
	ВремКаталог = КаталогВременныхФайлов();  
	Попытка                     
		Соединение.ПолучитьКакФайл(АдресРесурса+"katalogim.xml",ВремКаталог+"katalogim.xml");   
		СпЗагруженныхФайлов.ДобавитьЗначение("Файл",ВремКаталог+"katalogim.xml");
	Исключение 
		Сообщить("Неудачная попытка соединения.");
		Сообщить(Соединение.СтрокаСостоянияОтвета) ;
		Возврат;                   
	КонецПопытки;
	Если ФС.СуществуетФайл(ВремКаталог+"katalogim.xml")=0 Тогда
		Сообщить("Не удалось получить ответ с сайта. Проверьте интернет соединение."); 
		Возврат;
	КонецЕсли;  

		
	xmlАнализатор = СоздатьОбъект("AddIn.XMLParser");
	xmlФайл = xmlАнализатор.СоздатьПоследовательноСчитываемыйДокумент();
	xmlФайл.СвязатьСФайлом(ВремКаталог+"katalogim.xml");
	ТипТега = xmlФайл.Спуститься();
	Пока ТипТега <> 4 Цикл		//	пока не достигнут конец файла
		Если ТипТега <> 1 Тогда
			ТипТега = xmlФайл.Следующий();
			Продолжить;
		КонецЕсли;				
		
		ИмяТега = xmlФайл.СвойстваТекущегоУзла.Имя;     
		
		Если ИмяТега = "КаталогИМ"		Тогда
			ТипТега = xmlФайл.Спуститься();      
			Продолжить;
...
		ИначеЕсли ИмяТега="Файл" Тогда  
			ПутьКФайлу=""+xmlФайл.ТекущийЭлементВВидеОбъекта().Значение;
			НазвФайла=СтрЗаменить(СтрЗаменить(ПутьКФайлу,"/",""),""+ТаблОсн.КодТовара,""); 
			Если ФС.СуществуетФайл(ВремКаталог+ТаблОсн.КодТовара+"\")=0 Тогда
			    ФС.СоздатьКаталог(ВремКаталог+ТаблОсн.КодТовара); 
				СпЗагруженныхФайлов.ДобавитьЗначение("Каталог",ВремКаталог+ТаблОсн.КодТовара);
			КонецЕсли; 
			Если ФС.СуществуетФайл(ВремКаталог+ПутьКФайлу)=0 Тогда
				Попытка                     
					Соединение.ПолучитьКакФайл(АдресРесурса+ПутьКФайлу,ВремКаталог+ПутьКФайлу);   
					СпЗагруженныхФайлов.ДобавитьЗначение("Файл",ВремКаталог+ПутьКФайлу);
				Исключение 
					Сообщить("Неудачная попытка соединения.");
					//Сообщить(Соединение.СтрокаСостоянияОтвета) ;
				КонецПопытки;
				Если ФС.СуществуетФайл(ВремКаталог+ПутьКФайлу)=0 Тогда
					Сообщить("Не удалось получить изображение с сайта. Проверьте интернет соединение."); 
				КонецЕсли;  
			КонецЕсли;
			СпКартинок.ДобавитьЗначение(ВремКаталог+ПутьКФайлу,ПодписьКСкану);
			ПодписьКСкану="";
			ТаблОсн.Картинка=СпКартинок;
		КонецЕсли; 
		
		ТипТега = xmlФайл.Следующий();
		
	КонецЦикла;