我正在使用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
GoTo
。那已经随着QBasic消失了。你可以考虑使用while
循环。 - Brad