Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

html Quelltext auslesen
Autor: saxa
Datum: 20.06.04 20:04
hi, ich versuche gerade von mehreren seiten den Quelltext auszulesen. und die vorhandenen url´s zu ermitteln. bei der erste seite funktioniert es auch wunderbar.nur bei der zweiten seite liest er keinen quellcode mehr. was hab ich denn falsch gemacht?hier der code: Dim sHTMLText As String Dim sHTMLText2 As String Dim sURL As Variant Dim sURL2 As Varian Dim I As Integer ' zunächst Seitenquelltext ermitteln With WebBrowser1.Document sHTMLText = .documentElement.outerHTML End With ' jetzt URLs ermitteln sURL = HTML_GetAllURLs(sHTMLText) ' URLs vorhanden? 'If IsArray(sURL) Then For I = 1 To UBound(sURL) If Not InStr(sURL(I), "/home") Then MsgBox sURL(I) WebBrowser2.Navigate sURL(I) ' zunächst Seitenquelltext ermitteln With WebBrowser2.Document sHTMLText2 = .documentElement.outerHTML 'Hier kommt der Fehler End With end if nexti

html Quelltext auslesen	702	saxa	20.06.04 20:04
Re: html Quelltext auslesen	426	Dieter	20.06.04 23:08
Re: html Quelltext auslesen	425	saxa	21.06.04 09:24
Re: html Quelltext auslesen	397	Dieter	21.06.04 10:15
Re: html Quelltext auslesen	464	saxa	21.06.04 10:23
Re: html Quelltext auslesen	409	devnull	22.06.04 09:36
Re: html Quelltext auslesen	477	saxa	22.06.04 21:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen