contenu des Frames HTML (VB6)

Question

Bonjour à tous,

Je souhaiterais savoir si quelqu'un connaitrait le moyen, en vb6 de lire le contenu d'une page web contenant des frames.

Je m'explique:

Lorsque vous entrez sur une page web avec des frames et que vous affichez le code source, seul le code du frameset apparait, on ne peut accéder au reste du code qu'en selectionnant les frames un par un.

Avec la méthode WebBrowser1.Document.documentElement.innerHTML, je ne parviens donc à recuperer que le code du frameset, mais pas celui des frames qui m'interessent...

Est ce que quelqu'un connait la manip?

En vous remerciant.

michelxld · Answer

bonjour

j'espere que cet exemple pourra t'aider

Dim Frms As Object
Dim i As Integer


Set Frms = WebBrowser1.Document.frames
For i = 0 To Frms.Length - 1
    Debug.Print WebBrowser1.Document.frames(i).Document.all.Item.innerHTML
Next


 


bonne journée
michel

Asaiel · Answer

Merci beaucoup de ta reponse michel, je commencais à m'arracher les cheveux :D


J'essaye ca au plus vite et je te tiens au courant.

Asaiel · Answer

Alors, j'ai essayé ta méthode, voila le resultat obtenu:


J'obtiens l'erreur "80020009: Une exception s'est produite" à l'entrée dans la boucle.


Ce qui m'étonnes, c'est qu'au deboguage, frms.length vaut 1 alors que la page contient 3 frames...


En ce qui concerne "Debug.Print
WebBrowser1.Document.frames(i).Document.all.Item.innerHTML", es tu sur
qu'il faut mettre deux fois "document"?

Asaiel · Answer

D'autre part, si je supprime la boucle avec juste la formule suivante:
"Debug.Print
WebBrowser1.Document.frames(1).Document.all.Item.innerHTML", j'obtiens
la meme erreur.

Squall____ · Answer

J'ai le même problème... Je n'arrives pas à récupérer le code des frames...
Vous avez du nouveau sur se sujet ?

signé: Squall [8)]

Asaiel · Answer

Bonjour,

Non, tojours pas d'info sur ce problème, je pense que ce topic est oublié...

Si vous réussissez a avoir ces informations, j'aimerais vraiment que vous m'en fassiez part.

Squall____ · Answer

Rebonjour,

J'ai essayé la méthode de MichelXLD et ça fonctionne... Mais moi comme j'aime bien faire dans le compliqué, j'essaye d'accéder au code d'une frame dans une autre frame ! Et là bien sur, je n'y arrive pas...

Comment faire ?

Voici un extrait du code que j'utilise :

Public WithEvents IE As InternetExplorer


Private Sub CMD_LancerIE_Click()
 Set IE = New InternetExplorer
 IE.Visible = True
 IE.navigate "http://www.monSiteWeb"
end sub


Private Sub IE_DownloadComplete()


    Dim Frms As Object
    Dim Frms2 As Object
    Dim i As Integer
    
    Set Frms = IE.document.frames
    MsgBox "Code de la page de base : " & Chr(10) & Chr(10) & IE.document.all.Item.innerHTML
    For i = 0 To Frms.Length - 1
        MsgBox "Code de la frame : " & Chr(10) & Chr(10) & Frms(i).document.all.Item.innerHTML
    Next


    MsgBox "Nombre de frames dans la frame : " & Frms.Length


    Set Frms2 = Frms(0).document.frames 'Là je suis obligé de mettre 0 car il me met une erreur quand je met plus !
    For i = 0 To Frms2.Length - 1
        MsgBox "Code de la seconde frame : " & Chr(10) & Chr(10) & Frms2(i).document.all.Item.innerHTML
         'Le résultat de se message est vide !
    Next


    IE.Quit
end sub

Quelqu'un pour m'aider ?

tomkich · Answer

Alors et bien du coté de chez ca marche pas toujour le meme code d'erreur sauf que j'ai entre les parenthese (80070005)

vortex3m · Answer

Utilise un winsock pour récupérer le code source de la page!

Squall____ · Answer

Alors ça les winsocks j'y connais rien !

Contenu des Frames HTML (VB6)

10 réponses

Votre réponse

Discussions similaires