sauvegarder le code html

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:

---

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.

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

Code:

---

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

---