003
21.01.2006, 10:37 Uhr
FlAsH
keine Ahnung
|
Hi! versuchs mal so:
Visual Basic: |
Dim GetWebBrowserText Private Sub Form_Load() WebBrowser1.Navigate "http://www.sxene.de/files/dynip.php" End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim sContent As String
With WebBrowser1.Document.documentElement sContent = .outerHTML End With aa = "html,head,body" GetWebBrowserText = Replace(sContent, "<HTML>", "") GetWebBrowserText = Replace(GetWebBrowserText, "</HTML>", "") GetWebBrowserText = Replace(GetWebBrowserText, "<BODY>", "") GetWebBrowserText = Replace(GetWebBrowserText, "</BODY>", "") GetWebBrowserText = Replace(GetWebBrowserText, "<HEAD>", "") GetWebBrowserText = Replace(GetWebBrowserText, "</HEAD>", "") GetWebBrowserText = Replace(GetWebBrowserText, vbCrLf, "") MsgBox GetWebBrowserText End Sub
|
|