Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim webadresse As String
        webadresse = _
          "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offset=0" & _
          "grp=0&inv=-2147483648&flag=15&sensor=0"
        WebBrowser1.Navigate(webadresse)
        webadresse = _
          "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offset=-" & _
          "&grp=0&inv=-2147483648&flag=15&sensor=0"
        WebBrowser1.Navigate(webadresse)
        webadresse = _
          "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offset=-" & _
          "&grp=0&inv=-2147483648&flag=15&sensor=0"
        WebBrowser1.Navigate(webadresse)
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        Dim seiteninhalt As String
        Dim index1 As Integer = -1
        Dim index2 As Integer = -1
 
        If Me.Button1.Enabled = False Then
 
            seiteninhalt = WebBrowser1.Document.Body.InnerText
 
            If seiteninhalt.Contains("Maximalwert") Then
 
                index1 = seiteninhalt.IndexOf("Maximalwert")
 
                If index1 > -1 Then
                    index2 = seiteninhalt.IndexOf("W", index1)
                End If
 
                If index1 > -1 And index2 > -1 Then
                    RichTextBox1.Text += seiteninhalt.Substring(index1 + _
                      "Maximalwert".Length, index2 - (index1 + _
                      "Maximalwert".Length)) + Environment.NewLine
                End If
 
            Else
                RichTextBox1.Text = "Nichts"
            End If
 
            Button1.Enabled = True
 
        End If
 
    End Sub
 
    Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim AktuellesWebfenster As WebBrowser
        Dim Url As String
 
        ' Die URL der PopUp-Seite wird ausgelesen und im WebBrowser geöffnet
        AktuellesWebfenster = sender
        Url = AktuellesWebfenster.StatusText
        ' RichTextBox2.Text = Url
        WebBrowser1.Navigate(Url)
 
        ' Das Öffnen des PopUp-Fensters wird unterdrückt
        e.Cancel = True
 
        AktuellesWebfenster = Nothing
    End Sub
End Class