Public Class Form1
    Private WithEvents webbrowser1 As New WebBrowser
    Private He As HtmlElement
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.InvokeScript("uiDoSave")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        CheckBox1.Text = "WLAN aktiv"
        Button1.Text = "Speichern"
        WebBrowser1.Url = New Uri( _
          "http://fritz.box/cgi-bin/webcm?getpage=..%2Fhtml%2Fde%2Fmenus%2Fmen" & _
          "2.html&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Alang=de&" & _
          "ar%3Apagename=common&var%3Aerrorpagename=common&var%3Amenu=wlan&var" & _
          "3Apagemaster=&time%3Asettings%2Ftime=1157302454%2C-120&wlan%3Asetti" & _
          "gs%2Fis_macfilter_active=1")
    End Sub
    Private Function GetState() As Boolean
        Dim text As String
        text = he.GetAttribute("checked")
        Return text
    End Function
    Private Sub SetState(ByVal State As Boolean)
        Select Case State
            Case True
                He.SetAttribute("Checked", "1")
            Case False
                He.SetAttribute("Checked", "")
        End Select
        WebBrowser1.Document.InvokeScript("uiOnChangeWLanActivated")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Button1.Enabled = True
        CheckBox1.Checked = GetState()
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        SetState(CheckBox1.Checked)
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      webbrowser1.DocumentCompleted
        Dim sw As New Stopwatch
        sw.Start()
        Do
            He = webbrowser1.Document.GetElementById("uiView_WLANActivated")
            Application.DoEvents()
        Loop While He = Nothing Or sw.ElapsedMilliseconds > 5000
        If IsNothing(He) Then Stop
 
        CheckBox1.Checked = GetState()
 
    End Sub
End Class

Gru?

Silver