2010-12-28 6 views
4

VB6에서 WebRequest를 사용하고 있는데 "5000"(5 초)으로 설정 한 시간 제한이 있지만 5 초 후에도 시간이 초과되지 않아도 도움이됩니다.VB6 - WinHttpRequest 시간 초과 문제

x: 
Dim objWinHTTP 
Set objWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 


    objWinHTTP.Open "POST", "http://twitter.com/" & TwitterUSERNAME 
    objWinHTTP.SetTimeouts 5000, 5000, 5000, 5000 


    Call objWinHTTP.Send(psData) 
    MsgBox (objWinHTTP.Status) 
    If objWinHTTP.Status <> 200 Then 
    Timer.Enabled = False 
    MsgBox ("D:") 
    GoTo x 
    End If 
+0

이것은 문제가 아니지만 'GoTo'를 사용하지 마십시오. 그것은 QBasic과 함께 사라졌습니다. 'while' 루프를 고려해 볼 수 있습니다. – Brad

+0

나는 지금 그것을 분류했다. 그러나 나는 아직도 시간을 재는 것이 아니다. – Ben

답변

7

당신은 objWinHTTP.Open

전에 objWinHTTP.SetTimeouts을 설정해야하고 objWinHTTP.SetTimeouts에 설정 한 네 개의 매개 변수는 각각의 값이 그에 따라 설정되어야합니다

Resolve, Connect, Send and Receive 

있습니다.