2010-12-28 6 views
4

Ich benutze eine WebRequest in VB6 und ich habe die Timeouts auf "5000" (5 Sekunden) eingestellt, aber selbst nach 5 Sekunden ist es kein Zeitlimit, jede Hilfe wird geschätzt.VB6 - WinHttpRequest Timouts Problem

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

Das ist nicht dein Problem ... aber benutze 'GoTo' nicht. Das ging mit QBasic weg. Sie könnten eine 'while' Schleife betrachten. – Brad

+0

Ich habe das jetzt sortiert, aber ich habe immer noch kein Zeitlimit. – Ben

Antwort

7

sollten Sie objWinHTTP.SetTimeouts vor objWinHTTP.Open

gesetzt und die vier Parameter, die Sie für objWinHTTP.SetTimeouts gesetzt sind

Resolve, Connect, Send and Receive 

So wird jeder Wert sollte nach dem, eingestellt werden.