使函数/命令超时

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 

干杯

哦，这是 VBA

亚伦

Answer 1

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