InternetExplorer / IE Browser fernsteuern bzw. bedienen

Dieses kleine Tutorial soll euch eine kleine Anleitung geben wie man den InternetExplorer fernsteuern bzw. bedienen kann. Mittels eine VB.Net Programms kann man somit eine komplette Homepage auslesen, Formulare ausfüllen und vieles mehr.

Hier meine IEBrowser-Klasse:

Imports SHDocVw
Public Class IEBrowser
Public IE As SHDocVw.InternetExplorerClass
Public WB As IWebBrowserApp
Public ReadOnly Property Document()
Get
Return WB.Document
End Get
End Property
Public ReadOnly Property Busy()
Get
Return WB.Busy
End Get
End Property
Public Sub New()
IE = New SHDocVw.InternetExplorerClass
WB = CType(IE, IWebBrowserApp)
WB.Visible = True
End Sub
‘ Zur URL navigieren und solange warten bis diese geöffnet ist
Public Sub browse(ByVal szURL As String)
WB.Navigate(szURL)
While WB.Busy
Application.DoEvents()
End While
End Sub
Public Sub refresh()
WB.Refresh2()
While WB.Busy
Application.DoEvents()
End While
End Sub
Public Sub close()
WB.Stop()
WB.Quit()
WB = Nothing
IE = Nothing
End Sub
End Class

Mit dieser Klasse lässt sich der InternetExplorer wunderbar bedienen, aber das ist noch nicht alles:

Dim HTML As mshtml.HTMLDocumentClass
Dim htmlTags As mshtml.IHTMLElementCollection
Dim IE as IEBrowser = new IEBrowser
Dim szContent as string
HTML = DirectCast(IE.Document, mshtml.HTMLDocument)
‘ Nach www.google.de browsen
IE.browse(”http://www.google.de”)
‘ HTML-Dokument laden
HTML = DirectCast(IE.Document, mshtml.HTMLDocument)
‘ kompletten Quelltext laden
szContent = HTML.body.innerHTML
‘ Alle “A-Tags” laden (also alle Links)
htmlTags = HTML.getElementsByTagName(”A”)
‘ Alle Hyperlink-URLs ausgeben
For Each htmlElement In htmlTags
msgbox(htmlElement.getAttribute(”HREF”))
Next