1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| 'Test Asynchrone
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, INTERNET_FLAG_ASYNC)
If CBool(hOpen) Then
'Test Asynchrone avec un serveur virtuel qui attends 15 secondes avant de retourner la chaine souhaitée
stUrlDeb = "127.0.0.1"
hConnect = InternetConnect(hOpen, stUrlDeb, 8080, vbNullString, _
vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
If hConnect > 0 Then
'Préparation de l'ouverture de la page
hRequest = HttpOpenRequest(hConnect, "GET", stUrlFin, "HTTP/1.0", vbNullString, 0, _
INTERNET_FLAG_KEEP_CONNECTION, 0)
If CBool(hRequest) Then
'Test asynchrone
PauseTime = 5000 ' Définit la durée de temporisation en ms.
Start = Timer ' Définit l'heure de début.
Do While iRetVal = 0 And EnCours < (Start + PauseTime)
iRetVal = HttpSendRequest(hRequest, vbNullString, 0, vbNullString, 0)
EnCours = Timer
'InternetReadFile Open_Requete, tampon, Len(tampon), Nbr_Char
'Lecture de la page dans le buffer
DoEvents ' Donne le contrôle à d'autres processus.
Loop
..... |
Partager