vba - 函数/命令超时

标签 vba error-handling timeout xmlhttprequest

我找到了下面的代码，并对其进行了更改以供我使用，唯一的问题是，如果网站没有给出失败返回或成功，则代码永远不会结束。 (如果网站挂起，即为 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

亚伦

最佳答案

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

关于vba - 函数/命令超时，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9430984/