VB6-Problema de Oportunidades WinHttpRequest

timeout webrequest

Question

Estoy usando una WebRequest en VB6 y tengo los tiempos de espera establecidos en "5000" (5 segundos), pero incluso después de 5 segundos no se agota el tiempo, se agradece cualquier ayuda.

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

Answer 1

debe establecer objWinHTTP.SetTimeouts antes de objWinHTTP.Open

y los cuatro parámetros que estableces para objWinHTTP.SetTimeouts son

Resolve, Connect, Send and Receive

Entonces, cada valor debe establecerse de acuerdo con eso.