Source Html de plusieurs pages internetRésolu

Question

Bonjour,
Voici mon souci, je souhaite recuperer le code sources de plusieurs pages internet(trois pages). J'utilise le controle webbrowser pour ensuite recuperer le source avec la commande suivante : 
Codesrc = WebBrowser1.Document.documentElement.innerHTML 'recupération du codesrc
Le probleme est que le source n'est pas recupere entierement. J'ai essaye d'utiliser les boucles tenant compte de l'etat du webbrwoser. 
Do While WebBrowser1.ReadyState = READYSTATE_LOADING
   DoEvents
Loop
Do While WebBrowser1.ReadyState = READYSTATE_LOADED
   DoEvents
Loop
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
   DoEvents
Loop
Avec cela la machine tourne en boucle. Avez vous une solution pour moi ?
Par avance merci

capricorne83 · Accepted Answer

Pour info
En fait il s'agit d'un bug du composant webbrowser. Lorsque celui n'est pas visible sur la form, il reste bloqué au niveau du readystate. En revanche si il est visible sur la form aucun souci. Bug reconnu par crosoft.....

Mayzz merci de ton message je regarderai cela plus tard. Pour le moment je termine la routine de recup des données de films. (Le vieux serpent de mer d'allocine.....)

Mayzz · Answer

Salut, 

Ce n'est pas très 'approprié' comme méthode ça. Essaye de voir en passant par INet, ou Winsock (plus difficile) pour télécharger le code de la page directement sans ajouter un contrôle aussi lourd que le WebBrowser (sauf si bien entendu ton projet nécessite l'affichage d'une page web à l'écran).

Mon vb6 est loin donc je ne suis pas en mesure de donner un exemple de code, mais je pense que tu peux aisément trouver en tapant 'télécharger page web' dans le moteur recherche de vbfrance (codes sauf .Net).

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Source Html de plusieurs pages internet

2 réponses

Votre réponse

Discussions similaires