Question

我在下面找到了一些代码，并根据我的使用进行了更改，唯一的问题是，如果网站没有给出失败的返回或成功，代码永远不会结束。（IE如果网站挂起）

有没有办法在“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

欢呼声

OH这是VBA

亚伦

Answer 1

切换到"Msxml2.ServerXMLHTTP.3.0"，然后您可以为多个条件设置超时; http://msdn.microsoft.com/en-us/library/windows/desktop/ms760403(v=vs.85).aspx

定时功能/命令

1 个答案: