VB6 - проблема тайм-аутов WinHttpRequest

Question

Я использую WebRequest в VB6, и у меня установлено время ожидания "5000" (5 секунд), но даже через 5 секунд он не истекает, любая помощь приветствуется.

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

Вы должны установить objWinHTTP.SetTimeouts до objWinHTTP.Open

и четыре параметра, которые вы установите для objWinHTTP.SetTimeouts:

Resolve, Connect, Send and Receive

Поэтому каждое значение должно быть установлено в соответствии с этим.