Webbrowser control

Jeg ER klar over at man kan hente den med diverse API-kald og Winsock-kontrollen. Jeg er IKKE interesseret i denne løsning.

-Det behøver heller ikke være med webbrowser-kontrollen. Jeg skal blot bruge kildekoden fra et HTML-doc på nettet. Hvordan får jeg det hentet og gemt i en variabel?

Prøv følgende:

Private Sub Command1_Click()
    Dim fso, txtfile

objWeb.Navigate "http://localhost/project1/test.asp"
Do While objWeb.ReadyState <> READYSTATE_COMPLETE
    DoEvents
    x = x + 1
    Text1.Text = x
Loop
a = objWeb.Document.documentelement.outerhtml
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("e:\inetpub\wwwroot\project1\test.htm", True)
    txtfile.Write (a) ' Write a line.
    txtfile.Close
End Sub

Tak for svaret thefish. Kunne du lige uddybe, hvad du gør i do-loopet?
Hvad er x?

MHT den nederste del, så har jeg prøvet med både outerhtml og innerhtml. Det er sådan set udmærket, men giver ikke HELE kildekoden. Hvis der f.eks. er scripts i koden kommer de IKKE med.

/tjacob

Sorry

Det gik lidt hurtigt med at paste noget kode ind.
Årsagen til mit loop er at jeg afventer at browseren er færdig med at hente siden. Jeg har dårlige erfaringer med at bruge events med browseren

Det du ikke kan se er at jeg opdaterer en testform med x så jeg kan se hvor lang tid det tager at hente siden

Den følgende kode skulle meget gerne give dig alt det du skal bruge i en variabel:

Private Sub Command1_Click()
Dim objWeb As InternetExplorer

    Set objWeb = New InternetExplorer

objWeb.Navigate "http://www.computerworld.dk"
Do While objWeb.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop
a = objWeb.Document.documentelement.outerhtml
End Sub

-Det kører nu. Tak for hjælpen.