Option Explicit
Dim F As Integer
Dim counter As Integer
Dim A As String
'#####################################################################
'#  Name         : Pause
'#  Beschreibung : Wartenfunktion für Quelltextaufbau
'#  Parameter    : Pause in Sekunden
'#  Datum        : 27 nov 2004
'#####################################################################
Sub Pause(warten)
Dim Start As Long
    Start = Timer
      Do Until Timer - Start >= warten
    DoEvents
Loop
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 _
  "http://195.185.42.58/cgi-bin/heidpark/wetter_stadt_hp.pl?aoAuswertung=Deuts" & _
  "hland&aoStadt=Erkelenz&Button1=Prognose"
End Sub
'#####################################################################
'#  Name         : Start Timer für Aktualisierung
'#  Beschreibung : Wartenfunktion für Quelltextaufbau
'#  Parameter    : Timerintervall in millisekunden
'#  Datum        : 27 nov 2004
'#####################################################################
Private Sub Start_Click()
Timer1_Timer   ''startet den Timer
Timer1.Interval = 60000  '' setzt Timerintervall in millisekunden
End Sub
'#####################################################################
'#  Name         : Akualisieren
'#  Beschreibung : Aktualisieren der Anzeige im Stundenbereich
'#  Parameter    : Timerintervall in millisekunden
'#  Datum        : 27 nov 2004
'#####################################################################
Private Sub Timer1_Timer()
If counter < 60 Then  ''Ein "counterintervall" ist max 1 min = 60000 dann zählt _
  Counter jede Minute eins dazu bis 60
    counter = counter + 1
     Else
       WebBrowser1.Navigate2 _
         "http://195.185.42.58/cgi-bin/heidpark/wetter_stadt_hp.pl?aoAuswertun" & _
         "=Nordrhein-Westfalen&aoStadt=D%FCsseldorf&Button1=Prognose"
         Pause 2
          Zeigen_Click
       counter = 0
    End If
End Sub
'#####################################################################
'#  Name         : Suchfunktion
'#  Beschreibung : Anzeigen der Strings zwischen C und % im Array (5 Label)
'#  Parameter    :
'#  Datum        : 27 nov 2004
'#####################################################################
Private Sub Zeigen_Click()
  Dim Ende As Long
  Dim nCT As Long
  Dim Start As Long
  Dim GefStr As String
  Dim i As Integer
 
   i = 0
   nCT = 0
    If Text1.Text <> "" Then
    ' an erster Position begonnen
    Start = 1
 
     Do
      ' nach einleitendem Zeichen suchen ","
       Start = InStr(Start, LCase$(Text1.Text), ",")
 
        If Start > 0 Then
        ' Zeichen gefunden, jetzt End-Zeichen suchen
         Ende = InStr(Start, Text1.Text, "%")
           If Ende > 0 Then
                   ' End-Zeichen gefunden
                   ' jetzt alles zwischen Start und Ende filtern
              GefStr = Mid$(Text1.Text, Start, Ende - Start)
                If InStr(Mid$(GefStr, 2), "%") = 0 Then
                   ' nur wenn % nicht nochmals vorhanden ist
                 GefStr = Mid$(GefStr, 2)
                 Label1(i) = GefStr + " %" 'fügt Leerzeichen und % an den String
                i = i + 1
                  'MsgBox Start
                  'MsgBox I
               Label1(i - 1).Visible = True
 
               End If
             End If
           Start = Start + 1
          Else
        Exit Do
      End If
    Loop
  End If
 
End Sub
Private Sub Quelltext_Click()
Text1.Text = WebBrowser1.Document.All(0).outerHTML
End Sub
Private Sub Klartext_Click()
Text1.Text = WebBrowser1.Document.All(0).innerText
End Sub