Discussion :

[spootnic22]

Salut,
Le code suivant me permet d'enregistrer le code html de la page web afficher dans un WebBrowser1,ce code html est enregistré sous le nom "page.html".Le problème pour moi c'est que j'ai pas un seul url dans la page web affichée mais c'est plusieurs,donc je veux des instructions qui me pertmettent à chaque fois que je clic sur un lien,le code html de la page correspondante pour chaque url doit être enregistrer dans le même chemin avec un nom différent et une extension (.html)(sauvgarde dynamique)
---------------------------------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command2_Click()
    Dim src, HTMLFileIn, numfile As String
    Dim x, i As Integer
    src = WebBrowser1.Document.documentElement.outerHTML
    For x = 0 To WebBrowser1.Document.links.length - 1
     Url = WebBrowser1.Document.links(x)
    Next
    numfile = FreeFile
 
    Open "d:\production\page.html" For Output As #numfile
    Print #numfile, src
    Close #numfile
 
End Sub

-----------------------------------------------------------------------
Et Merci d'avance.

[Delbeke]

Je te propose d'utiliser inet pour recuperer le contenu d'une page web
queque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Data() as byte
Data() = Inet1.OpenURL(Url, icByteArray)
Open Monfichier For binary as #NumFich
put #NumFich,,data()
close #NumFich