Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Executer des inet en rafale

Executer des inet en rafale

4 réponses
Avatar
Pascal Duchêne
Bonjour,

Je cherche à exécuter des inet1.openURL en rafale (sans attendre que chaque
instruction renvoie un résultat).

Est-ce possible ?

Avec Inet1.Execute, pourrais-je paramétrer un temps maximal d'attente et
récupérer le code source de la page web visée ?

Merci beaucoup
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Kernox
Bonjour,

il suffit de faire patienter le composant INET a chaque recuperation de
donnée.

'recuperation de données

While (compInet.StillExecuting = True)
DoEvents
Wend

'suite du code

-Kernox-

"Pascal Duchêne" a écrit dans le message de
news: 42d543b7$0$304$
Bonjour,

Je cherche à exécuter des inet1.openURL en rafale (sans attendre que


chaque
instruction renvoie un résultat).

Est-ce possible ?

Avec Inet1.Execute, pourrais-je paramétrer un temps maximal d'attente et
récupérer le code source de la page web visée ?

Merci beaucoup




Avatar
Pascal Duchêne
"Kernox" a écrit dans le message de news:
%
Bonjour,

il suffit de faire patienter le composant INET a chaque recuperation de
donnée.

'recuperation de données

While (compInet.StillExecuting = True)
DoEvents
Wend

'suite du code




Je ne vois vraiment pas comment faire le code afin de recuperer le code
source d'une page web.
Avatar
Jean-Marc
"Pascal Duchêne" a écrit dans le message de
news:42d5571a$0$309$

"Kernox" a écrit dans le message de news:
%
> Bonjour,
>
> il suffit de faire patienter le composant INET a chaque recuperation de
> donnée.
>
> 'recuperation de données
>
> While (compInet.StillExecuting = True)
> DoEvents
> Wend
>
> 'suite du code
>

Je ne vois vraiment pas comment faire le code afin de recuperer le code
source d'une page web.



Hello,

Tu peux éviter le controle INet.
UrlDownloadToFile est plus efficace pour faire ce que tu veux, amha.

comme ceci:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long,
ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long,
ByVal lpfnCB As Long) As Long

Public Function DownloadFile(url As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Et un exemple d'appel:

Dim url As String
Dim r As Boolean


url = "http://www.google.fr"
r = DownloadFile(url, App.Path & "work.htm")
If r Then
msgbox "page chargée. Succes"
else
msgbox "page non chargée. Erreur ."
End If


--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Pascal Duchêne
"Jean-Marc" a écrit dans le message de news:
42d55b32$0$6922$
"Pascal Duchêne" a écrit dans le message
de
news:42d5571a$0$309$

Je ne vois vraiment pas comment faire le code afin de recuperer le code
source d'une page web.



Hello,

Tu peux éviter le controle INet.
UrlDownloadToFile est plus efficace pour faire ce que tu veux, amha.

comme ceci:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long,
ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As
Long,
ByVal lpfnCB As Long) As Long

Public Function DownloadFile(url As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Et un exemple d'appel:

Dim url As String
Dim r As Boolean


url = "http://www.google.fr"
r = DownloadFile(url, App.Path & "work.htm")
If r Then
msgbox "page chargée. Succes"
else
msgbox "page non chargée. Erreur ."
End If





Merci beaucoup mais j'aurais voulu pouvoir parametrer un serveur PROXY comme
dans Inet, chose qui n'est pas possible avec UrlDownloadToFile car il
utilise le PROXY parametré dans Internet explorer