Hallo,
es kennen sicher die meisten, man ruft die Suche in Google auf und jedesmal wenn man an das Ende der Seite scrollt wird etwas neues dazu geladen.
Ich versuche nun im WebBrowser Control eine Google Suche aufzurufen und es soll automatisch so lange ans Ende gescrollt werden bis wirklich alles geladen ist.
Ich habe es mit diesem Beitrag schon erfolglos versucht.
vb-paradise.de/index.php/Threa…er%2Bcompleted#post358085
Bisher versuche ich es mit dem DocumentCompleted event aber irgendwie funktioniert das nicht so richtig.
Es wird ein paar mal gescrollt und dann passiert nichts mehr, manuell kann ich dann noch scrollen und es wird auch noch etwas neues geladen.
Habe auch schon einen Sleep eingebaut aber das hat auch nicht geholfen.
Hier mein Code.
Hat jemand eine Idee oder habe ich vielleicht einen ganz falschen Ansatz?
Vielen Dank im voraus und ein schönes WE
es kennen sicher die meisten, man ruft die Suche in Google auf und jedesmal wenn man an das Ende der Seite scrollt wird etwas neues dazu geladen.
Ich versuche nun im WebBrowser Control eine Google Suche aufzurufen und es soll automatisch so lange ans Ende gescrollt werden bis wirklich alles geladen ist.
Ich habe es mit diesem Beitrag schon erfolglos versucht.
vb-paradise.de/index.php/Threa…er%2Bcompleted#post358085
Bisher versuche ich es mit dem DocumentCompleted event aber irgendwie funktioniert das nicht so richtig.
Es wird ein paar mal gescrollt und dann passiert nichts mehr, manuell kann ich dann noch scrollen und es wird auch noch etwas neues geladen.
Habe auch schon einen Sleep eingebaut aber das hat auch nicht geholfen.
Hier mein Code.
VB.NET-Quellcode
- Private Sub wbrWebSite_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles wbrWebSite.DocumentCompleted
- If (wbrWebSite.ReadyState = WebBrowserReadyState.Complete) Then
- wbrWebSite.Document.Window.ScrollTo(0, wbrWebSite.Document.Body.ScrollRectangle.Height)
- Threading.Thread.Sleep(5000)
- Else
- wbrWebSite.Document.Window.ScrollTo(0, 0)
- wbrWebSite.Dispose()
- End If
- End Sub
Hat jemand eine Idee oder habe ich vielleicht einen ganz falschen Ansatz?
Vielen Dank im voraus und ein schönes WE