Private Sub Command1_Click() 'für die Online ip ui ermittlen
URL_Load "http://home.pages.at/troller507/Local/hompage-1/div/ip.php3"
End Sub
 
 
' Ereignis wird ausgelöst, sobald die Webseite
' vollständig geladen wurde
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp _
  As Object, URL As Variant)
  On Error Resume Next
  WebBrowser1.Tag = ""
End Sub
 
' URL (Webseite) laden
Private Sub URL_Load(ByVal sURL As String)
 Command1.Enabled = False
  Dim sQuelltext As String
 
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
 
    ' Warten bis Seite vollständig geladen ist
 
 
    While .Tag <> ""
      DoEvents
    Wend
  End With
 
   Label1.Caption = Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
     WebBrowser1.Document.documentElement.outerHTML, "<", "", 1), ">", "", _
     1), "HTML", "", 1), "HEAD", "", 1), "BODY", "", 1), "/", "", 1), vbCrLf, _
     "", 1)
   Command1.Enabled = True
 
End Sub