2010-12-28 20 views
4

私はVB6でWebRequestを使用していますが、タイムアウトは "5000"(5秒)に設定されていますが、5秒後でもタイムアウトしていません。VB6 - WinHttpRequestのタイムアウト問題

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 
+0

これはあなたの問題ではありませんが、「GoTo」は使用しないでください。それはQBasicで消え去った。あなたは 'while'ループを考えるかもしれません。 – Brad

+0

私は今それをソートしましたが、私はまだタイムアウトしていません。 – Ben

答えて

7

あなたはobjWinHTTP.SetTimeouts

objWinHTTP.Open前に設定する必要がありますし、あなたがobjWinHTTP.SetTimeoutsに設定された四つのパラメータが

Resolve, Connect, Send and Receive 

あるので、それぞれの値がそれに応じて設定する必要があります。