A27
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DenSyo,
Цитата: проверяйте статус ответа на запроса, если равен 200, то выводите результат
If http.Status = 200 Then WScript.Echo |
Изначально в скрипте так и было прописано. Если web сайт был не доступен, то это приводило к остановке выполнения скрипта ещё при выполнении метода ".Send", а следующие за ним оператор "If http.Status" и другие уже не выполнялись.
Но я, кажется, нашёл решение. Удивительно, но искал я его несколько недель перечитывая справочники и статьи! И только после того, как оставил данный вопрос на форуме, сразу наткнулся на решение. Стоит отметить, что описано оно не информативно, поэтому могу ошибиться в формулировке:
В VBScript есть метод Err, который является всегда объявленным. Узнать номер последней ошибки и факт её возникновения можно через Err.Number - если равно 0, то ошибки не было.
Так же имеются две конструкции:
On Error Goto 0 - при возникновении ошибки выполнение скрипта останавливается и выводится соответствующее сообщение (действует по умолчанию).
On Error Resume Next - отключает обработку ошибок, вывод сообщений о них и завершение скрипта.
Действие данных конструкций начинается с точки их указания и до конца тела текущей функции.
В моём случае код VBScript принял следующий вид:
Код: ...
On Error Resume Next
Http.Send
If Err.Number=0 Then
...
WScript.Echo "..."
End If
On Error Goto 0
... |
Теперь работает так, как это необходимо. |
