2012-02-24 4 views
2

아래 코드를 발견하여 사용하기 위해 변경했습니다. 유일한 문제는 웹 사이트가 실패한 반환 또는 성공을 제공하지 않으면 코드가 종료되지 않는다는 것입니다. (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이 다음에 여러 조건에 대한 시간 제한을 설정할 수 있습니다

+0

타임 아웃을 설정할 수없는 것 같습니다. 웹 사이트가 올바르게 응답하지 않는 경우 약 30 초가 지나면 시간이 초과되는 솔루션이 있습니까? – DevilWAH

+0

http://www.dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/을 보았습니까? – Fionnuala

답변

2

스위치 "Msxml2.ServerXMLHTTP.3.0"에 VBA

아론이다; http://msdn.microsoft.com/en-us/library/windows/desktop/ms760403(v=vs.85).aspx

+0

이 방법을 시도 할 때 활성 객체를 만들 수 없습니다. – DevilWAH

+0

이 64 비트 사무실을 실행하고있을 수 있습니까? 또는 내가 왜이 일을 얻을 수없는 이유와 함께 hep 할 수 있습니까? – DevilWAH

+0

이제 프록시 설정에 문제가 있습니다. IE에서 실행되는 것과 동일한 프록시 서버를 사용해야합니다. "서버"가 아닌 Msxml2.XMLHTTP를 사용하여 작동합니까? – DevilWAH