contenu des Frames HTML (VB6)

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.

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

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.

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"?

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.

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é: [b]Squall[/b] [8)]

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.

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 " [ Lien ]"
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 ?

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

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