Option Strict On
Imports System.Windows.Forms
Imports System.IO
Imports System.Collections.Generic
 
Public Class BrowserForm
 
    Private browser1 As New WebBrowser()
 
    Public Sub New()
        InitializeComponent()
 
        browser1.Dock = DockStyle.Fill
        Controls.Add(browser1)
        ' Ereignishandler für das DocumentCompleted-Ereignis hinzufügen
        AddHandler browser1.DocumentCompleted, AddressOf _
          WebBrowser1_DocumentCompleted
 
        browser1.Navigate("http://www.google.de/") ' Google aufrufen
 
    End Sub
 
 
    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As _
      System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        ' Dokument ist fertig geladen.
 
        ' Node mit dem <input>-Tag suchen, das value="Google-Suche" enthält
        Dim doc As HtmlDocument = browser1.Document
        Dim inputColl As HtmlElementCollection = doc.GetElementsByTagName( _
          "input")
        For Each el As HtmlElement In inputColl
            If el.GetAttribute("value") = "Google-Suche" Then
                'Gefunden! Jetzt "value"-Attribut ändern.
                el.SetAttribute("value", "Geänderter Text!")
                Exit For
            End If
        Next
    End Sub
 
End Class