Comment enregistrer une page HTML via le contrôle WebBrowser? [Résolu]
Signaler
Sylvain20007
Sylvain20007
- Messages postés
- 22
- Date d'inscription
- mardi 18 mars 2003
- Statut
- Membre
- Dernière intervention
- 24 septembre 2005
Sylvain20007
- Messages postés
- 22
- Date d'inscription
- mardi 18 mars 2003
- Statut
- Membre
- Dernière intervention
- 24 septembre 2005
A voir également:
- Comment enregistrer une page HTML via le contrôle WebBrowser?
- Récuperer le code source d'une page html via mirc ✓ - Forum - IRC
- Envoie mail anonyme ( html ) via page web + sauvegarde des adresses - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Affichage XML via Ajax d'une et une seule balise, dans ma page html ✓ - Forum - Javascript / DHTML
- Transmettre variable via javascript à un swf présent dans une autre page html ✓ - Forum - Flash
- Enregistrer une page web en html ✓ - Forum - VB.NET
4 réponses
cs_bill7
- Messages postés
- 4
- Date d'inscription
- jeudi 25 août 2005
- Statut
- Membre
- Dernière intervention
- 24 septembre 2005
bonjour, tu as trouvé ta solution ça m interesse aussi
bmccoy@tele2.fr
bmccoy@tele2.fr
Sylvain20007
- Messages postés
- 22
- Date d'inscription
- mardi 18 mars 2003
- Statut
- Membre
- Dernière intervention
- 24 septembre 2005
Beh non, j'ai toujours pas trouvé...
Tout ce qui à commencé à un début, M. Anderson
Allez voir : www.laboiteacons.fr.tc , pour bien déconner
Tout ce qui à commencé à un début, M. Anderson
Allez voir : www.laboiteacons.fr.tc , pour bien déconner
cs_bill7
- Messages postés
- 4
- Date d'inscription
- jeudi 25 août 2005
- Statut
- Membre
- Dernière intervention
- 24 septembre 2005
j ai trouvé mais maintenant je voudrais envoyer le fichier par email;
créer un form avec dedans un control webbrowser puis :
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.fr"
WebBrowser1.Visible = True
'Wait until page is loaded
Do Until Not WebBrowser1.Busy
DoEvents
Loop
lg = WebBrowser1.Document.documentElement.innerHTML
Open ("D:\VB\vb_benoit\sauve_html.html") For Output As #1
Print #1, lg
Close #1
voilà
créer un form avec dedans un control webbrowser puis :
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.fr"
WebBrowser1.Visible = True
'Wait until page is loaded
Do Until Not WebBrowser1.Busy
DoEvents
Loop
lg = WebBrowser1.Document.documentElement.innerHTML
Open ("D:\VB\vb_benoit\sauve_html.html") For Output As #1
Print #1, lg
Close #1
voilà