Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Text einer PHP Datei im Web auslesen...

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
20.01.2006, 23:18 Uhr
~Audron-AT-Gast
Gast


Hi!

Um in meinem Programm die dynamische IP des Benutzers zu ermitteln, habe ich die Datei "dynip.php" hochgeladen. (www.sxene.de/files/dynip.php)

In meinem Programm, will ich jetzt die IP Adresse die in dem WebBrowser Control steht als String haben, b.z.w. in einem Label/einer Textbox ausgeben.

Wie kann ich den Text aus dem WebBrowser Control als String kopieren?
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
20.01.2006, 23:44 Uhr
~Audron-AT-Gast
Gast


habs schon


Visual Basic:
Private Enum eWBTextFormat
  fmtPlain = 0
  fmtHTML = 1
End Enum

' Plain-/HTML-Text auslesen
Private Function GetWebBrowserText(ByVal nFormat As eWBTextFormat) As String
  ' Plaintext
  With WebBrowser1.Document
    If nFormat = fmtPlain Then
      GetWebBrowserText = .Body.InnerText
    Else
      GetWebBrowserText = .documentElement.OuterHTML
    End If
  End With
End Function

Private Sub Command1_Click()
Label1.Caption = GetWebBrowserText(fmtPlain)
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.sxene.de/files/dynip.php"
End Sub



(vb-archiv.de)
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
21.01.2006, 01:50 Uhr
~Audron-AT-Gast
Gast


Doch noch ein Problem.. Beim Clienten klappts perfekt mit dem Code oben... Aber beim Server zeigt er einen Fehler an.. "Runtime Error 91, object variable or with block variable not set".. Und markiert das " .Body.InnerText"
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
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

 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
21.01.2006, 12:53 Uhr
~Audron-AT-Gast
Gast


Nene, musste aufpassen, dass die Seite erst geladen ist, bevor ich den content auslese...

Wenn man den Befehl mit dem Format "fmtPlain" = Plain Text ausführt, ist es der Text der angezeigt wird. Wenn man es mit dem Format fmtHTML ausführt, ist es der Quellcode
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: