3
Laufenden IE Prozess abfragen
Guten Morgen Zusammen,
leider bin ich kein Profi in VB.NET, allerdings möchte ich folgendes realisieren.
Ich kann mit folgendem Code ein Browserobjekt erstellen, ansurfen und den Text der Seite lesen:
Das funktioniert ansich klasse!
In dem Beispiel erstelle ich aber selbst das Browserobjekt.
Gibt es eine Möglichkeit, auf einen bereits laufenden IE Prozesses zuzugreifen und den Text zu lesen ?
Danke im Voraus für die Denkanstöße
Gruß Joehuaba
leider bin ich kein Profi in VB.NET, allerdings möchte ich folgendes realisieren.
Ich kann mit folgendem Code ein Browserobjekt erstellen, ansurfen und den Text der Seite lesen:
Dim TheBrowser As New SHDocVw.InternetExplorer
TheBrowser.Navigate("http://yourURL.com")
Dim inhalt As String = TheBrowser.Document.Body.innerTextDas funktioniert ansich klasse!
In dem Beispiel erstelle ich aber selbst das Browserobjekt.
Gibt es eine Möglichkeit, auf einen bereits laufenden IE Prozesses zuzugreifen und den Text zu lesen ?
Danke im Voraus für die Denkanstöße
Gruß Joehuaba
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 376753
Url: https://administrator.de/contentid/376753
Printed on: April 19, 2024 at 20:04 o'clock
3 Comments
Latest comment
Hi,
Du kannst versuchen:
siehe z.B. hier: Laufende Instanzen des Internet Explorers ermitteln
E.
Du kannst versuchen:
Dim IE as Object = GetObject("InternetExplorer.Application") siehe z.B. hier: Laufende Instanzen des Internet Explorers ermitteln
E.
Danke @emeriks,
dein Denkanstoß war gut
Habe nun ein wenig weiter geschaut und diese Lösung gefunden / gebastelt:
dein Denkanstoß war gut
Habe nun ein wenig weiter geschaut und diese Lösung gefunden / gebastelt:
Dim objShellWindows As New SHDocVw.ShellWindows
Dim objShellWindow As Object
' Fehler beim Zugriff auf die Document-Eigenschaft ignorieren
On Error Resume Next
' Iterieren über alle Shell-Windows
For Each objShellWindow In objShellWindows
' InnerText der angezeigten Seite anzeigen
MsgBox(objShellWindow.Document.body.innertext)
Next objShellWindow
Die Frage die sich mir stellt: warum mit Kanonen auf Spatzen schießen und den Internet Explorer nehmen?
Mit einem Webclient und dem Html Agility Pack geht das ganze wesentlich eleganter, mit dem Internet Explorer greifst du immerhin potentiell in die Arbeitsumgebung des Nutzers ein.
Mit einem Webclient und dem Html Agility Pack geht das ganze wesentlich eleganter, mit dem Internet Explorer greifst du immerhin potentiell in die Arbeitsumgebung des Nutzers ein.
Dim client As New WebClient()
Dim content As String = client.DownloadString("http://istdiestrassedes17tenjunigesperrt.de/")
Dim document As New HtmlDocument()
document.LoadHtml(content)
Dim body = document.DocumentNode?.Descendants.FirstOrDefault(Function(n) n.Name.Equals("body", StringComparison.InvariantCultureIgnoreCase)) 
