Récupérer les fichiers html
chour03
Messages postés
25
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
31 décembre 2008
-
1 juin 2003 à 02:07
chour03 Messages postés 25 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 31 décembre 2008 - 1 juin 2003 à 12:24
chour03 Messages postés 25 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 31 décembre 2008 - 1 juin 2003 à 12:24
A voir également:
- Récupérer les fichiers html
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Html array - Conseils pratiques -PHP
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
2 réponses
KodMojeg
Messages postés
9
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
21 février 2007
1 juin 2003 à 09:55
1 juin 2003 à 09:55
Alors tu peux utiliser winsock pour récupérer ta page.
Sachant que le service web est généralement en route sur le port 80 grace a un composant Winsock que tu va déposer sur ta form tu va pouvoir utiliser la fonction :
Dès que winsock1 sera connecté a l'hôte (ici "www.truc.com") l'évènement Winsock1_Connect sera activé ainsi tu va pouvoir envoyer ta requette HTTP dès que winsock1 sera connecté, pour ce faire :
Maintenant qu'on a envoyé notre requette on attend la réponse qui lorsqu'elle sera émise pourra etre récupèrée grace à l'evenement Winsock1_DataArrival comme ceci :
Voilà voilou j'espère que j'ai été clair ...
http://kodmojeg.suidzer0.org
Sachant que le service web est généralement en route sur le port 80 grace a un composant Winsock que tu va déposer sur ta form tu va pouvoir utiliser la fonction :
winsock1.connect "www.truc.com", 80
Dès que winsock1 sera connecté a l'hôte (ici "www.truc.com") l'évènement Winsock1_Connect sera activé ainsi tu va pouvoir envoyer ta requette HTTP dès que winsock1 sera connecté, pour ce faire :
Private Sub Winsock1_Connect() Winsock1.SendData "GET /index.html HTTP/1.0" & vbCrLf & vbCrLf End Sub
Maintenant qu'on a envoyé notre requette on attend la réponse qui lorsqu'elle sera émise pourra etre récupèrée grace à l'evenement Winsock1_DataArrival comme ceci :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data, vbString, bytesTotal
'Maintenant le contenu de ta page est dans data tu peux le mettre dans un ficher
' l'afficher, ...
End Sub
Voilà voilou j'espère que j'ai été clair ...
http://kodmojeg.suidzer0.org
chour03
Messages postés
25
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
31 décembre 2008
1 juin 2003 à 12:24
1 juin 2003 à 12:24
Merci infiniment, tu m'as bien dépanné !!!
Par contre, j'ai essayé de récupérer les informations de winsock, pour affiche sur la fenetre ce qu'il faisait, mais je n'ai trouvé que Winsock1.status, qui ne retourne qu'un numéro (4, 6, 9). Où peut-on avoir une aide détaillée de ce composant, qui reste asssez simple ?
@+++ !
Par contre, j'ai essayé de récupérer les informations de winsock, pour affiche sur la fenetre ce qu'il faisait, mais je n'ai trouvé que Winsock1.status, qui ne retourne qu'un numéro (4, 6, 9). Où peut-on avoir une aide détaillée de ce composant, qui reste asssez simple ?
@+++ !
