Public Class Form1
 
    Dim i As Integer = 0
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        i = 0
        Seite_Laden( _
          "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offset=" _
          + i.ToString + "&grp=0&inv=-2147483648&flag=15")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        If i >= -3 And e.Url.ToString = _
          "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offset=" _
          + i.ToString + "&grp=0&inv=-2147483648&flag=15" Then
            Seite_auslesen()
            Seite_Laden( _
              "http://www.solarlog-home.de/kranich-solar/visu.html?mode=0&offs" & _
              "t=" + i.ToString + "&grp=0&inv=-2147483648&flag=15")
        End If
 
        Button1.Enabled = True
 
    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
        WebBrowser1.Navigate(Url)
 
        ' Das Öffnen des PopUp-Fensters wird unterdrückt
        e.Cancel = True
 
        AktuellesWebfenster = Nothing
    End Sub
 
    Private Sub Seite_Laden(ByVal webadresse As String)
        WebBrowser1.Navigate(webadresse)
    End Sub
 
    Private Sub Seite_auslesen()
 
        Dim seiteninhalt As String = Nothing
        Dim index1 As Integer = -1
        Dim index2 As Integer = -1
 
        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
        End If
        i = i - 1
    End Sub
End Class