IFrame auslesen

Alle anderen Themen ...

Moderator: ModerationP

IFrame auslesen

Beitragvon Fennek » 30. Jun 2018, 11:58

Hallo,

motiviert durch viewtopic.php?f=166&t=770451

habe ich versucht die Url in einem IFrames auszulesen.

Die einzige einigermaßen passende Quelle (https://stackoverflow.com/questions/449 ... -using-vba) konnte ich aber nicht umsetzen.

Als Beispiel:

Code: Alles auswählen
<iframe  src="http://cdn.www.spiegel.de/producing/ipad/2018/603_spiegel_dna/ad/index.html"></iframe>


Hier soll die Url ausgelesen werden. Mit RegEx bzw "Split(Tx, "iframe") ist dies natürlich möglich, die Frage ist, ob es auch einfachere Ansätze gibt.

Warum? Zusammen mit "links" und "img src" kann man damit einen eigenen AdBlocker basteln (blacklist im router)

Vielen Dank

mfg
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 497
Registriert: 12. Feb 2016, 18:56

Re: IFrame auslesen

Beitragvon Fennek » 30. Jun 2018, 20:15

Soweit habe ich es hinbekommen:

Code: Alles auswählen
Sub F_en()

i = 1
Sp = Cells(1, Columns.Column).End(xlToLeft).Column + 1

  With CreateObject("MSXML2.XMLHTTP")

Url = "http://www.spiegel.de" : cells(1, Sp) = Url

    .Open "Get", Url, False
    .send
    c00 = .responseText
  End With
       
  With CreateObject("htmlfile")
    .Body.innerhtml = c00

'img
Set myImg = .getElementsByTagName("img")
        For Each Lk In myImg
            If Left(Lk.src, 4) = "http"  Then
                i = i + 1
                Cells(i, Sp) = Lk.src
            End If
        Next Lk

'links
    For Each it In .Links
                If Left(it.href, 4) = "http"  Then
                    i = i + 1
                    Cells(i, Sp) = it.href
                End If
    Next
 
'IFrame
 Set myFr = .getElementsByTagName("iframe")
    For Each it In myFr
        i = i + 1
        Cells(i, Sp) = "IFrame: " & it.src
    Next
   
'Script
 Set myScr = .getElementsByTagName("script")
    For Each it In myScr
        i = i + 1
        Cells(i, Sp) = "Script: " & it.src
    Next
End With

End Sub


mfg

(kleine Änderungen nach Tests auf der Festplatte)
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 497
Registriert: 12. Feb 2016, 18:56


Zurück zu Offtopic (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste