VB6 - WinHttpRequest Timouts Problème

Je suis en utilisant un WebRequest en VB6 et j'ai les délais fixés à "5000" (5 secondes), mais même après 5 secondes, c'est pas du timing, toute aide est appréciée.

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

Ce n'est pas votre problème... mais ne pas utiliser de GoTo. Qui s'en était allée avec QBasic. Vous pourriez envisager un while boucle.
J'ai trié que maintenant, mais je ne suis toujours pas d'expirer.

OriginalL'auteur Ben | 2010-12-28

8

vous devez définir objWinHTTP.SetTimeouts avant objWinHTTP.Open

et les quatre paramètres que vous définissez pour objWinHTTP.SetTimeouts sont
```
Resolve, Connect, Send and Receive
```
De sorte que chaque valeur doit être définie en fonction de cela.

OriginalL'auteur Binil

Vous devez vous connecter pour publier un commentaire.