DIAdem
How can i get the content of a web page?
Option Explicit 'Erzwingt die explizite Deklaration aller Variablen in einem Skript.
Dim oIE
' Get IE object
Set oIE = CreateObject("InternetExplorer.Application")
' Load Page
oIE.Navigate("http:\\www.measx.com")
' wait until page is loaded
While oIE.Busy
Wend
MsgBox oIE.Document.documentElement.outerHTML
Hallo Uwe!
Zu 1.: Will man Infos finden ist es das einfachste den Befehl TypeName auf ein Objekt anzuwenden und das Ergebnis in einer Messagebox auszugegeben. Für das oIE Objekt bekommst du dann 'IWebBrowser2'. Im Internet findet man dazu bei Microsoft ('http://msdn2.microsoft.com/en-us/library/aa752127(VS.85).aspx') dann die Beschreibung. Das Objektmodell vom IE ist aber recht komplex so das etwas dauert bis man dann den Gesamtausdruck zusammen hat.
Zu 2.+3.: Hier der erweiterte Code:
Option Explicit
Dim oIE
Dim sgHTML
Dim nProgress
' Get IE object
Set oIE = CreateObject("InternetExplorer.Application")
Call LoopInit()
Call MsgLineDisp("Load document 'http:\\www.measx.com'")
' Load Page
oIE.Navigate("http:\\www.measx.com")
' wait until page is loaded and show progress
While oIE.Busy
Call LoopInc(nProgress mod 100)
nProgress = nProgress + 1
Wend
' Get HTML
sgHTML = oIE.Document.documentElement.outerHTML
' Save to file
Call CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Measx.htm",true,true).Write(sgHTML)
Die Verlaufsanzeige ist rechts/unten in DIAdem. Da nicht klar ist wie lange das Laden dauert wird immer wieder bei 0 begonnen. Ich hab das HTML erstmal in einen String gespeichert und dann erst in eine Datei geschreiben. Das kann man auch alles in eine Zeile packen, finde ich aber nicht gut lesbar.
Matthias
