Выделение функции / команды - PullRequest
Новая
       13

Выделение функции / команды

2 голосов
/ 24 февраля 2012

Я нашел бит кода ниже и изменил его для моего использования, единственная проблема состоит в том, что, если веб-сайт не дает неудачного возврата или успеха, код никогда не заканчивается.(Т.е. если сайт зависает)

есть ли способ установить тайм-аут после команды "HttpRequest.send".так что если через 30 секунд ответа нет, он помечает его как неудачный и продолжает?

     Set HttpRequest = CreateObject("Msxml2.XMLHTTP") 
   HttpRequest.open "HEAD", "http://example.com/", False 
   On Error Resume Next 
   HttpRequest.send 
   If Err.Number <> 0 Then 
     WScript.Echo "Error : " & Err.Number & ": " & Err.Description 
   Else 
     WScript.Echo "HTTP status: " & HttpRequest.status & " " _ 
      & HttpRequest.statusText 
   End If

ура

ОН, это VBA

Аарон

1 Ответ

2 голосов
/ 24 февраля 2012

Переключитесь на "Msxml2.ServerXMLHTTP.3.0", тогда вы можете установить тайм-ауты для нескольких условий; http://msdn.microsoft.com/en-us/library/windows/desktop/ms760403(v=vs.85).aspx

...