dim txtQuellcode as String
 
Private Sub Timer1_Timer()
   txtQuellcode.Text = WebBrowser.Document.DocumentElement.outerHTML
   WebBrowser.Refresh
End Sub
 
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   If  WebBrowser.Document.DocumentElement.outerHTML <> txtQuellcode.Text Then
      MsgBox "Änderung!"
   End If
End Sub

Dunkles Mittelalter? Mein Browsergame:
http://www.fma-game.de