[VB6] Ottenere il codice html di tutti i frame

[wingman87]

Come si fa? Per un solo frame facevo così:

If PaginaWeb.frames.length > 0 Then
        Set FrameEL = PaginaWeb.All.Item("nomeframe")
        Set FrameDOC = FrameEL.contentWindow.Document
        html = FrameDOC.documentElement.innerHTML
end if

Per più frame allora pensavo si facesse così:

If PaginaWeb.frames.length > 0 Then
        For i = 1 To PaginaWeb.frames.length
            Set FrameEL = PaginaWeb.All.Item(, i)
            Set FrameDOC = FrameEL.contentWindow.Document
            html = FrameDOC.documentElement.innerHTML
        Next i
End If

Ma se faccio così il debug si ferma alla riga in neretto con il seguente messaggio:

Errore di runtime '438':
Proprietà o metodo non supportati dall'oggetto

Potrei usare il primo codice ma così x scaricare l'html devo conoscere il nome del frame..
Grazie x l'aiuto!

[wingman87]

Ce l'ho fatta! Ho cercato in lungo e in largo e alla fine ho trovato la soluzione tra i gruppi di google. Vi posto la soluzione, spero possa essere utile a qualcuno:

'Nelle dich generali:
Dim WithEvents PaginaWeb As HTMLDocument
Dim WithEvents FrameDOC As HTMLDocument

'Codice
Set PaginaWeb = Web.Document
For i = 0 To PaginaWeb.frames.length - 1
    Set FrameDOC = PaginaWeb.frames(i).Document
    html = FrameDOC.documentElement.innerHTML
Next

[wingman87]

Si è presentato un nuovo problema, a volte quando uso questo codice:

If PaginaWeb.frames.length > 0 Then
        Set FrameEL = PaginaWeb.All.Item("nomeframe")
        Set FrameDOC = FrameEL.contentWindow.Document
        html = FrameDOC.documentElement.innerHTML
end if

Arrivato alla riga rossa non carica il document perchè mi da "autorizzazione negata". Quello che mi serve è solo il codice html, non c'è un modo per averlo lo stesso? A scanso di equivoci, non devo copiare nessun sito o cose del genere.

[wingman87]

UP

[wingman87]

UP