✔ Aktuelle Webseite auslesen

[ronaldo84]

Und wie mache ich das?

 

[D@nger]

Hallo,
OT: Wie im Chat hier.
Hier ein Screen:

 

[ronaldo84]

Alles klar. Danke.
Kannst du mir auch noch sagen mit welcher Eigenschaft ich nun auf den Quellcode zugreifen kann?

 

[D@nger]

Hallo,
klar kann ich.

WebBrowser1.Navigate "http://web.de"
On Error Resume Next
Text1.Text = WebBrowser1.Document.Body.innertext

Du fragst warum das On error resume next?
Hm, wenn das Dokument noch nicht geladen wurde kann es auch nicht ausgelesen werden.
Am besten tut man das:

Text1.Text = WebBrowser1.Document.Body.innertext

ins Document-Complete-Ereignis des Browser-Controls.

 

[ronaldo84]

Vielen Dank für deie Hilfe. Du hast mir sehr geholfen. Eine Frage habe ich jetzt allerdings doch noch:
Wie gesagt habe ich es ja im Editor von Office gemacht. Dort hat alles geklappt, auch mit dem Warten darauf das die Seite vollständig geladen wurden. Nun wollte ich das alles in Access und in ein Formular einbinden, dort wartet er aber nicht darauf das die Seite komplett geladen wurde.
Habe es so gemacht:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  On Error Resume Next
  Call Find(WebBrowser1.Document.body.innerHTML)
End Sub
 
 
Private Sub Befehl27_Click()
On Error GoTo Err_Befehl27_Click
Dim sViewedURL As String
 
sViewedURL = GetURLList()
WebBrowser1.Navigate (sViewedURL)
Exit_Befehl27_Click:
    Exit Sub
Err_Befehl27_Click:
    MsgBox Err.Description
    Resume Exit_Befehl27_Click
 
End Sub

Aber wenn ich debugge kommt er nicht in die Funktion

WebBrowser1_DocumentComplete

Warum?

 

[D@nger]

Hallo,
ich weiß nicht, warum das in Access so ist.
Was heißt denn

Call Find(WebBrowser1.Document.body.innerHTML)

Wo ist die Prozedur oder die Funktion Find denn?

 

[ronaldo84]

Hier ist Sie:

Public Function Find(quellcode As String)
MsgBox(quellcode)
end function

Ich habe die Funktion erstmal vereinfacht um zu gucken ob der Auruf klappt. Es kommt aber auch keine MsgBox.

 

[D@nger]

Hallo,
also so funktioniert's:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  On Error Resume Next
  Call Find(WebBrowser1.Document.body.innerHTML)
End Sub
 
 
Private Sub Command1_Click()
WebBrowser1.Navigate ("http://web.de")
End Sub

Public Function Find(quellcode As String)
MsgBox (quellcode)
End Function

 

[ronaldo84]

Meiner Meinung nach hatte ich das auch so. Aber jetzt scheint es zu funktionieren. Vielen Dank

 

[ronaldo84]

SOrry das ich das Thema doch nochmal eröffne. Durch einlesen des Quellcodes habe ich ja nun den exakten Pfad zu den Bildern. Wie kann ich diese nun aus dem Internet lokal auf meine Festplatte spichern.
Habe es mit Microsoft Internet Transfer Comtroll versucht. Wenn ich allerdings so ein Objekt auf meine Form ziehen will kommt die Meldung:

Sie Verfügen nicht über die Lizenz, die erforderlich ist, um dieses ActiveX-Steuerelement einzusetzen.

Warum dies kommt habe ich keine Ahnung. Habe Access 2003 auch aktiviert.
Wollte es dann mittels

FileCopy

versuchen, da kam aber immer die Meldung Pfad oder Datei ungültig. Weiß jemand noch eine andere Möglichkeit?
Danke