VB6 - WinHttpRequest超时问题

Question

VB6 - WinHttpRequest超时问题

4

我正在使用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

- Ben

这不是你的问题...但不要使用GoTo。那已经随着QBasic消失了。你可以考虑使用while循环。 - Brad

我现在已经解决了这个问题，但是仍然没有超时。 - Ben

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Binil · Accepted Answer

在执行 objWinHTTP.Open 之前，你应该先设置 objWinHTTP.SetTimeouts

你需要设置四个参数给 objWinHTTP.SetTimeouts

Resolve, Connect, Send and Receive

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