OVH Cloud OVH Cloud

Code HTML d'une page web

2 réponses
Avatar
Mikel
Bonjour!

Ne maîtrisant pas la programmation web, je cherche, pour insérer dans un
programme perso, un exemple de code VB permettant:
- d'ouvrir automatiquement une page web dont l'adresse est connue
- de transférer automatiquement le code HTML de cette page dans un fichier
txt.
Merci par avance!
Mikel

2 réponses

Avatar
François Picalausa
Hello,

Tu peux te servir de l'API URLDownloadToFile ou encore des API Inet, voire
de winsock.

En ce qui concerne url download to file:
Declare Function URLDownloadToFile _
Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long

Private Sub Command1_Click()
Dim DownloadedWebPage As String, FFN As Integer, strFileContent As

URLDownloadToFile 0, "http://www.microsoft.com", "c:monfichier.htm, 0,
0
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Mikel" a écrit dans le message de
news:c8pqbq$cpo$
Bonjour!

Ne maîtrisant pas la programmation web, je cherche, pour insérer dans
un programme perso, un exemple de code VB permettant:
- d'ouvrir automatiquement une page web dont l'adresse est connue
- de transférer automatiquement le code HTML de cette page dans un
fichier txt.
Merci par avance!
Mikel


Avatar
Mikel
Merci pour ta réponse!
Je vais essayer tout de suite...
Les liens semblent très intéressant.
Cordialement, Mikel

"François Picalausa" a écrit dans le message de
news:%
Hello,

Tu peux te servir de l'API URLDownloadToFile ou encore des API Inet, voire
de winsock.

En ce qui concerne url download to file:
Declare Function URLDownloadToFile _
Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long

Private Sub Command1_Click()
Dim DownloadedWebPage As String, FFN As Integer, strFileContent As

URLDownloadToFile 0, "http://www.microsoft.com", "c:monfichier.htm,


0,
0
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Mikel" a écrit dans le message de
news:c8pqbq$cpo$
> Bonjour!
>
> Ne maîtrisant pas la programmation web, je cherche, pour insérer dans
> un programme perso, un exemple de code VB permettant:
> - d'ouvrir automatiquement une page web dont l'adresse est connue
> - de transférer automatiquement le code HTML de cette page dans un
> fichier txt.
> Merci par avance!
> Mikel