к=_GetPerformanceCounter();
Пока Соединение.Status<>200 Цикл
Если _GetPerformanceCounter()-к>=2000 Тогда
Сообщить("Страница не отвечает. "+ОписаниеОшибки());
Возврат 0;
КонецЕсли;
Состояние("Ожидание соединения...");
КонецЦикла;
(3) Спасибо ещё раз!
Круто! Работает быстро, гораздо быстрее, чем через e-mail!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший