VB6 - WinHttpRequest 超时问题

Question

我在 VB6 中使用 WebRequest，并将超时设置为“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.Open 之前设置 objWinHTTP.SetTimeouts

，并且为 objWinHTTP.SetTimeouts 设置的四个参数是

Resolve, Connect, Send and Receive

因此每个值都应据此设置。