Récupérer code HTML d'une page internetRésolu

Question

Bonjour à tous, :)

J'ai une fonction qui récupère le code HTML d'une page internet :
Private Function Html(WUrl As String) As String

WebBrowser.Navigate (WUrl)
Do Until WebBrowser.ReadyState = READYSTATE_COMPLETE
        DoEvents
Loop
Html = WebBrowser.Document.documentElement.innerHtml

End Function

Le problème est que le code HTML retourné est tronqué, limité à environ 240 caractères.

Je ne pense pas que ce soit un problème de variable car si je mets un espion sur WebBrowser.Document.documentElement.innerHtml, déjà le code est tronqué.

Y a-t-il une limitation ? Est-il possible de récupérer le code complet de la page internet ?

Merci d'avance votre aide :)

ucfoutu · Answer

Bonjour,
Il te faut à mon sens attendre que tout "soit là" et le récupérer par outerHTML dans l'évènement qui le constate.
Essaye donc ceci :
 Private Sub WebBrowser1_DocumentComplete()  html = WebBrowser1.Document.documentElement.outerHTMLEnd Sub

EDIT : ah oui ... Gaffe toutefois, si ton webbrowser affiche plusieurs Frames distincts dans une page (mais tu ne nous as rien dit à ce sujet ...)
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

yoanpg · Answer

Merci pour ta réponse.

En effet pas de frame dans ma page à afficher, seulement un tableau.

J'ai mis le code que tu me proposes, mais le résultat est le même, le code est tronqué au même endroit que avec mon code (vu avec l'espion de variables) :(

ucfoutu · Answer

Bon ...
Mets ici le lien de la page Web concernée ...
On y verra peut-être plus clair en ce qui concerne les raisons de cette "étrangeté" ....

yoanpg · Answer

A la base c'est une page PHP dont le contenu dépend des paramètres passés en barre d'adresse. J'ai créé une page HTML qui contient le même contenu mais statique : http://www.sportingclubplaisance.org/formulaires/test.htm Quand je teste avec cette page dans VB, j'ai le même comportement, l'élément outerHtml prend la valeur :

Time	ID	NOM

ucfoutu · Answer

On dirait que le body n'est pas lu (et donc non plus le tbody)
Essaye (juste pour voir) de tout "embarquer" avec .DocumentText

yoanpg · Answer

Je comprends pas bien ce que tu me proposes.
C'est mon code VB que je dois modifier ? Comment ?
Merci

ucfoutu · Answer

Désolé. Cette propriété n'existe pas sous VB6.
 Va falloir essayer autrement
Peut-être en invoquant d'abord l'objet Body
 WebBrowser1.Document.body.innerHTML
????

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

yoanpg · Answer

Avec cette propriété ça me retourne la même chose, le code HTML tronqué :(

herman291 · Answer

Salut, on est en train de faire la même chose... 


Tape dans google Grossamer... il y a une fct de post et get secure avec u dirve virtuel et possibilité de bd perl etc...

Code complet mais fait attention il y a plusieurs zip de revision
http://www.vbforums.com/showthread.php?532752-VB6-Yet-Another-Web-Server

yoanpg · Answer

Ca me parait bien compliqué tout ça !

CGSI3 · Answer

Bonsoir a tous,

Je suis également sur ce genre de recherche,
je passe rapidement vous donner une piste a suivre vu que j'ai également trouvé très peu de réponse a mon problème.

La parade que j'ai trouvé est la suivante  .. Attendre 
A vous de régler et améliorer ce code  

  Try     WebBrowserTemp.ScriptErrorsSuppressed = True                Dim debutA As Long = Environment.TickCount ' millisec     WebBrowserTemp.Navigate(REMOTE_URL)      Do While WebBrowserTemp.ReadyState <> WebBrowserReadyState.Complete        System.Threading.Thread.Sleep(10)         Application.DoEvents()        If (Environment.TickCount - debutA) / 1000 > 1 Then Exit Do     Loop     'MsgBox("Chargement terminé !")Catch ex As Exception    Console.WriteLine("HTML : error " & ex.Message)End Try ' Récuperer les tablesDim TableCollection As HtmlElementCollection = WebBrowserTemp.Document.GetElementsByTagName("table") 

Harf  VB6 ...   Biensur ce code est du VB.NET  Dsl

Bonne soirée

yoanpg · Answer

J'ai pensé au problème de temps en effet.
J'ai donc fait un test de charger la page grâce à un premier bouton, puis de récupérer son contenu grâce à un second bouton.
Mais le problème reste le même.

Je ne comprends pas pourquoi ça fonctionne pas alors que pour d'autres (d'après les recherches que j'ai faites) ça semble fonctionner :(

ucfoutu · Answer

Re,
Vérifie quand même (sait-on jamais ?) que tu n'as pas un caractère null de terminaison chr(0)  dans la chaîne importée 
 car sinon, ma foi ...
Regarde :
toto = "aaaaa" & Chr(0) & "bbbbb"MsgBox totoText1.Text = toto
Essaye ce que tu obtiendrais en remplaçant chr(0) par "" avec la fonction replace

ucfoutu · Answer

Tout cela est assez curieux. Je viens de lancer ton propre code sur le lien/test que tu as donné ===>> voici ce que j'obtiens avec msgbox (affichage limlité) ===>>> et voici ce que j'obtiens (non limité, donc) en textbox :

Time	ID	NOM	Prénom	Naissance	Age	Sexe	Ceinture	CeintureTxt	Club	Responsable	Vérification
1457713325348	1	TEST	Tést	2000	Cadet	M	1	Blanche-jaune	GIMNASIO TENDO	rest	ok 12345
1457800662926	2	TSR	Tree	2000	Cadet	M	1	Blanche-jaune	GIMNASIO TENDO	resp	ok 12345
1457800662926	3	DSF	Sf	2000	Cadet	M	2	Jaune	GIMNASIO TENDO	resp	ok 12345

J'ai fait cela depuis un userform Excel. ________________________ Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

yoanpg · Answer

Bon en fait effectivement le code HTML est extrait en entier.

Le problème venait de l'espion qui lui troque la valeur de la variable, mais si je l'écrit dans un fichier texte je retrouve bien tout mon code HTML.

Que de temps perdu pour un truc si bête :s

Merci beaucoup pour votre aide

Récupérer code HTML d'une page internet

15 réponses

Votre réponse