小编Ben*_*Ben的帖子

我在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

我正在尝试对我的应用程序进行多线程处理，以便它在执行进程时可见，这就是我到目前为止所拥有的：

Private Sub SendPOST(ByVal URL As String)
    Try
        Dim DataBytes As Byte() = Encoding.ASCII.GetBytes("")
        Dim Request As HttpWebRequest = TryCast(WebRequest.Create(URL.Trim & "/webdav/"), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.ContentLength = DataBytes.Length
        Request.Timeout = 1000
        Request.ReadWriteTimeout = 1000

        Dim PostData As Stream = Request.GetRequestStream()
        PostData.Write(DataBytes, 0, DataBytes.Length)

        Dim Response As WebResponse = Request.GetResponse()
        Dim ResponseStream As Stream = Response.GetResponseStream()
        Dim StreamReader As New IO.StreamReader(ResponseStream)
        Dim Text As String = StreamReader.ReadToEnd()
        PostData.Close()
    Catch ex As Exception
        If ex.ToString.Contains("401") Then
            TextBox2.Text = …