Leute , warum so umständlich: Ihr braucht keinen Zugriff auf das DOM, Ihr wollt doch nur den selektierten Text auslesen. Da reicht der Zugriff auf das IWebbrowser2 Interface um ExecWB ausführen zu können:
Beispiel
VB.NET-Quellcode
- Option Strict On
- ' Verweis auf COM: Microsoft Internet Controls muss gesetzt sein
- Imports SHDocVw
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' navigieren
- WebBrowser1.Navigate("www.focus.de")
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ' zum Interface IWebBrowser2 casten
- Dim iwb As IWebBrowser2 = CType(WebBrowser1.ActiveXInstance, IWebBrowser2)
- ' per OLE selektierten Text ins ClipBoard kopieren
- iwb.ExecWB(OLECMDID.OLECMDID_COPY, OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, Nothing, Nothing)
- ' clipboard anzeigen
- MessageBox.Show(Clipboard.GetText)
- End Sub
- End Class