Option Explicit
Option Compare Binary
 
 
Private Sub Testen_Click()
 
    Dim URL As String
    Dim counter
    Dim Test1, Test2, Test3
    Test1 = "Klausur"
    Test2 = "diezweiteseite"
    Test3 = "klausurbestanden"
 
 
    URL_Load "http://klausur1.de"
 
    SaveQuelltext App.Path & "\URL_Quelltext.txt"
    DoEvents
    Open "\URL_Quelltext.txt" For Binary As #1
    URL = Space$(LOF(1))
    Get #1, , URL
    Close #1
 
    If InStr(1, URL, test1, 0) = 0 Then
        URL_Load "http://klausur2.de"
        DoEvents
        SaveQuelltext App.Path & "\URL_Quelltext.txt"
        Open "\URL_Quelltext.txt" For Binary As #1
        URL = Space$(LOF(1))
        Get #1, , URL
        Close #1
        MsgBox "test1 nicht gefunden"
 
     Else
        MsgBox "test1 gefunden"
    EndIf
 
End Sub
 
' Ereignis wird ausgelöst, sobald die Webseite
' vollständig geladen wurde
Private Sub wb_DocumentComplete(ByVal pDisp _
  As Object, URL As Variant)
  On Error Resume Next
  wb.Tag = ""
End Sub
 
' URL (Webseite) laden
Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
 
  With wb
    .Tag = "Load"
    .Navigate sURL
 
    ' Warten bis Seite vollständig geladen ist
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub
 
' Bsp.: Seitenquelltext in Datei speichern
Private Sub SaveQuelltext(ByVal sFilename As String)
  Dim F As Integer
 
  With wb.Document.documentElement
    F = FreeFile
    Open sFilename For Output As #F
    Print #F, .outerHTML;
    Close #F
  End With
End Sub