URL = "http://www....." ' URL - реальный, открывается без ошибок On Error Resume Next Err.Clear '' Инициализация объекта для работы с HTTP-протоколом Set tmp_xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0") '' Отправка GET-запроса на сервер для получение ответа сервера Call tmp_xmlhttp.Open("GET", Trim(URL), false) '' Отправка GET-запроса Call tmp_xmlhttp.Send() '' Обработка ответа GET-запроса вызвала исключение (например, достижение timeout'a) If Err.Number <> 0 Then
- Форум тестировщиков
- → Публикации SergeyP