kann jemand helfen oder hat schon Erfahrung in Sachen Webabfrage bei Framesets?
Ich habe eine Website, welche mit Framesets aufgebaut ist und da funktioniert es leider nicht. Oder geht es da überhaupt nicht?
Danke T.
</head>
<frameset border="0" framespacing="0" frameborder="0" rows="126,*">
<frame src="htp://www.herber.de/forum/top.html" name="top">
<frameset cols="*,1010,*">
<frame>
<frame src="htp://www.herber.de/forum/body.html" name="content">
<frame>
</frameset>
</frameset>
</html>
..also wird im oberen Teil https://www.herber.de/forum/top.html
angezeigt, im unteren Teil https://www.herber.de/forum/body.html.
Diese Seiten kannst Du mit der Web-Abfrage abfragen.
Oder zeig mal den Link zur Seite, dann können wir das für Dich machen.
Gruß- Micha
PS: Rückmeldung wäre nett.
Dim i As Integer
Dim l As Integer
Dim strInhalte() As String
'Login- Seite aufrufen.
WebBrowser1.Navigate "hxxp://www.eigenheim-finanz-service.de/web_a/script/welcome.php"
Do: DoEvents: Loop While WebBrowser1.Busy
'Einloggen
WebBrowser1.Document.forms("loginform").elements("username").Value = "a"
WebBrowser1.Document.forms("loginform").elements("userpw").Value = "a"
WebBrowser1.Document.forms("loginform").submit
Do: DoEvents: Loop While WebBrowser1.Busy
'Anzahl der <TD>- Tags ermitteln
l = WebBrowser1.Document.all.tags("TD").Length - 1
ReDim strInhalte(l)
'Alle Texte innerhalb der TD- Tags ermitteln
For i = 0 To l
strInhalte(i) = i & " : " & WebBrowser1.Document.all.tags("TD")(i).innertext
Next
MsgBox "Inhalt aller Tabellenzellen im Dokument:" & vbCrLf & Join(strInhalte, vbCrLf)
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen