Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Récupération de données distantes

Récupération de données distantes

5 réponses
Avatar
Florent
Bonjour,
Pour une petite application j'aurais besoin de récupérer le contenu d'un
fichier de données qui se trouve sur un hébergeur. Le problème est que je
n'arrive pas à récupérer les données de mon fichier en question. Pourtant
tout se passe bien si j'essaye de récupérer un fichier html (je récupère les
codes de la page en question sans problèmes).
Le fichier que je cherche à rapatrier se trouve chez lycos
(http://membres.lycos.fr/ ... )
Y'a-t'il des éléments à modifier par rapport au rapatriement d'une page html
(l'index de chez google marche bien) à part les chemins et le nom du
fichier?
Le chemin de connection est-il bien "membres.lycos.fr" ou
http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne récupère
aucune donnée...
J'apprécierais toute aide ou indication qui me mettrait sur la voix :)
Merci d'avance

Florent
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Avec quel code as-tu essayé de rapatrier le fichier ?

Quel méthode ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Florent" a écrit dans le message de news:
402bf306$0$6978$
Bonjour,
Pour une petite application j'aurais besoin de récupérer le contenu d'un
fichier de données qui se trouve sur un hébergeur. Le problème est que je
n'arrive pas à récupérer les données de mon fichier en question. Pourtant
tout se passe bien si j'essaye de récupérer un fichier html (je récupère


les
codes de la page en question sans problèmes).
Le fichier que je cherche à rapatrier se trouve chez lycos
(http://membres.lycos.fr/ ... )
Y'a-t'il des éléments à modifier par rapport au rapatriement d'une page


html
(l'index de chez google marche bien) à part les chemins et le nom du
fichier?
Le chemin de connection est-il bien "membres.lycos.fr" ou
http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne récupère
aucune donnée...
J'apprécierais toute aide ou indication qui me mettrait sur la voix :)
Merci d'avance

Florent






Avatar
Florent
Ah pardon :p
J'suis passé par winsock.. les codes sont (perso j'ai du mal les codes purs
... z'ètes forts :)


private Sub command1_click()
Winsock1.Connect "membres.lycos.fr/gtland", 80
End Sub

Private Sub Form_Load()
Open "t4c.dta" For Binary As #1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Close #1
End Sub

Private Sub winsock1_connect()
Winsock1.SendData "GET /t4c.dta" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf
& _
"Accept-Language: fr-ch" & vbCrLf & _
"Accept-Encoding: gzip, deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" & vbCrLf &
_
"Host: http://membres.lycos.fr/gtland" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

Private Sub winsock1_dataarrival(ByVal bytesTotal As Long)
Dim donnees As String
Winsock1.GetData donnees
MsgBox "Données"
Put #1, Seek(1), donnees
End Sub

En gros je veux stocker directement ce que je reçois dans un fichier... ca
passe avec un html (en me connectant sur www.google.fr) mais pas avec mon
piti fichier...

Merci d'avance :)

"ng" a écrit dans le message de news:

Salut,

Avec quel code as-tu essayé de rapatrier le fichier ?

Quel méthode ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Florent" a écrit dans le message de news:
402bf306$0$6978$
> Bonjour,
> Pour une petite application j'aurais besoin de récupérer le contenu d'un
> fichier de données qui se trouve sur un hébergeur. Le problème est que


je
> n'arrive pas à récupérer les données de mon fichier en question.


Pourtant
> tout se passe bien si j'essaye de récupérer un fichier html (je récupère
les
> codes de la page en question sans problèmes).
> Le fichier que je cherche à rapatrier se trouve chez lycos
> (http://membres.lycos.fr/ ... )
> Y'a-t'il des éléments à modifier par rapport au rapatriement d'une page
html
> (l'index de chez google marche bien) à part les chemins et le nom du
> fichier?
> Le chemin de connection est-il bien "membres.lycos.fr" ou
> http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne


récupère
> aucune donnée...
> J'apprécierais toute aide ou indication qui me mettrait sur la voix :)
> Merci d'avance
>
> Florent
>
>
>
>




Avatar
ng
Salut,

Tu peux essayer avec ce code, c'est plus facile :

Private 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
Public Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates ()
DownloadFile "http://www.allapi.net", "c:allapi.htm"
End Sub


Autrement si tu tiens vraiment à WinSock, je peux t'envoyer un exemple.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Florent" a écrit dans le message de news:
402cf9b1$0$6976$
Ah pardon :p
J'suis passé par winsock.. les codes sont (perso j'ai du mal les codes


purs
... z'ètes forts :)


private Sub command1_click()
Winsock1.Connect "membres.lycos.fr/gtland", 80
End Sub

Private Sub Form_Load()
Open "t4c.dta" For Binary As #1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Close #1
End Sub

Private Sub winsock1_connect()
Winsock1.SendData "GET /t4c.dta" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" &


vbCrLf
& _
"Accept-Language: fr-ch" & vbCrLf & _
"Accept-Encoding: gzip, deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" & vbCrLf


&
_
"Host: http://membres.lycos.fr/gtland" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

Private Sub winsock1_dataarrival(ByVal bytesTotal As Long)
Dim donnees As String
Winsock1.GetData donnees
MsgBox "Données"
Put #1, Seek(1), donnees
End Sub

En gros je veux stocker directement ce que je reçois dans un fichier... ca
passe avec un html (en me connectant sur www.google.fr) mais pas avec mon
piti fichier...

Merci d'avance :)

"ng" a écrit dans le message de news:

> Salut,
>
> Avec quel code as-tu essayé de rapatrier le fichier ?
>
> Quel méthode ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
>
> "Florent" a écrit dans le message de news:
> 402bf306$0$6978$
> > Bonjour,
> > Pour une petite application j'aurais besoin de récupérer le contenu


d'un
> > fichier de données qui se trouve sur un hébergeur. Le problème est que
je
> > n'arrive pas à récupérer les données de mon fichier en question.
Pourtant
> > tout se passe bien si j'essaye de récupérer un fichier html (je


récupère
> les
> > codes de la page en question sans problèmes).
> > Le fichier que je cherche à rapatrier se trouve chez lycos
> > (http://membres.lycos.fr/ ... )
> > Y'a-t'il des éléments à modifier par rapport au rapatriement d'une


page
> html
> > (l'index de chez google marche bien) à part les chemins et le nom du
> > fichier?
> > Le chemin de connection est-il bien "membres.lycos.fr" ou
> > http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne
récupère
> > aucune donnée...
> > J'apprécierais toute aide ou indication qui me mettrait sur la voix :)
> > Merci d'avance
> >
> > Florent
> >
> >
> >
> >
>
>




Avatar
Florent
Je ne tiens pas forcément à utiliser Winsock mais je veux bien un exemple
l'utilisant pour voir où se promène mon erreur :)
Merci beaucoup :)

"ng" a écrit dans le message de news:

Salut,

Tu peux essayer avec ce code, c'est plus facile :

Private 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
Public Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates ()
DownloadFile "http://www.allapi.net", "c:allapi.htm"
End Sub


Autrement si tu tiens vraiment à WinSock, je peux t'envoyer un exemple.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Florent" a écrit dans le message de news:
402cf9b1$0$6976$
> Ah pardon :p
> J'suis passé par winsock.. les codes sont (perso j'ai du mal les codes
purs
> ... z'ètes forts :)
>
>
> private Sub command1_click()
> Winsock1.Connect "membres.lycos.fr/gtland", 80
> End Sub
>
> Private Sub Form_Load()
> Open "t4c.dta" For Binary As #1
> End Sub
>
> Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
> Close #1
> End Sub
>
> Private Sub winsock1_connect()
> Winsock1.SendData "GET /t4c.dta" & vbCrLf & _
> "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" &
vbCrLf
> & _
> "Accept-Language: fr-ch" & vbCrLf & _
> "Accept-Encoding: gzip, deflate" & vbCrLf & _
> "User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" &


vbCrLf
&
> _
> "Host: http://membres.lycos.fr/gtland" & vbCrLf & _
> "Connection: Keep-Alive" & vbCrLf & vbCrLf
> End Sub
>
> Private Sub winsock1_dataarrival(ByVal bytesTotal As Long)
> Dim donnees As String
> Winsock1.GetData donnees
> MsgBox "Données"
> Put #1, Seek(1), donnees
> End Sub
>
> En gros je veux stocker directement ce que je reçois dans un fichier...


ca
> passe avec un html (en me connectant sur www.google.fr) mais pas avec


mon
> piti fichier...
>
> Merci d'avance :)
>
> "ng" a écrit dans le message de news:
>
> > Salut,
> >
> > Avec quel code as-tu essayé de rapatrier le fichier ?
> >
> > Quel méthode ?
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> >
> > "Florent" a écrit dans le message de news:
> > 402bf306$0$6978$
> > > Bonjour,
> > > Pour une petite application j'aurais besoin de récupérer le contenu
d'un
> > > fichier de données qui se trouve sur un hébergeur. Le problème est


que
> je
> > > n'arrive pas à récupérer les données de mon fichier en question.
> Pourtant
> > > tout se passe bien si j'essaye de récupérer un fichier html (je
récupère
> > les
> > > codes de la page en question sans problèmes).
> > > Le fichier que je cherche à rapatrier se trouve chez lycos
> > > (http://membres.lycos.fr/ ... )
> > > Y'a-t'il des éléments à modifier par rapport au rapatriement d'une
page
> > html
> > > (l'index de chez google marche bien) à part les chemins et le nom du
> > > fichier?
> > > Le chemin de connection est-il bien "membres.lycos.fr" ou
> > > http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne
> récupère
> > > aucune donnée...
> > > J'apprécierais toute aide ou indication qui me mettrait sur la voix


:)
> > > Merci d'avance
> > >
> > > Florent
> > >
> > >
> > >
> > >
> >
> >
>
>




Avatar
ng
Ok je te l'envoie pas mail.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Florent" a écrit dans le message de news:
402e21d5$0$6980$
Je ne tiens pas forcément à utiliser Winsock mais je veux bien un exemple
l'utilisant pour voir où se promène mon erreur :)
Merci beaucoup :)

"ng" a écrit dans le message de news:

> Salut,
>
> Tu peux essayer avec ce code, c'est plus facile :
>
> Private 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
> Public Function DownloadFile(URL As String, LocalFilename As String) As
> Boolean
> Dim lngRetVal As Long
> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> If lngRetVal = 0 Then DownloadFile = True
> End Function
> Private Sub Form_Load()
> 'example by Matthew Gates ()
> DownloadFile "http://www.allapi.net", "c:allapi.htm"
> End Sub
>
>
> Autrement si tu tiens vraiment à WinSock, je peux t'envoyer un exemple.
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
>
> "Florent" a écrit dans le message de news:
> 402cf9b1$0$6976$
> > Ah pardon :p
> > J'suis passé par winsock.. les codes sont (perso j'ai du mal les codes
> purs
> > ... z'ètes forts :)
> >
> >
> > private Sub command1_click()
> > Winsock1.Connect "membres.lycos.fr/gtland", 80
> > End Sub
> >
> > Private Sub Form_Load()
> > Open "t4c.dta" For Binary As #1
> > End Sub
> >
> > Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
> > Close #1
> > End Sub
> >
> > Private Sub winsock1_connect()
> > Winsock1.SendData "GET /t4c.dta" & vbCrLf & _
> > "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" &
> vbCrLf
> > & _
> > "Accept-Language: fr-ch" & vbCrLf & _
> > "Accept-Encoding: gzip, deflate" & vbCrLf & _
> > "User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" &
vbCrLf
> &
> > _
> > "Host: http://membres.lycos.fr/gtland" & vbCrLf & _
> > "Connection: Keep-Alive" & vbCrLf & vbCrLf
> > End Sub
> >
> > Private Sub winsock1_dataarrival(ByVal bytesTotal As Long)
> > Dim donnees As String
> > Winsock1.GetData donnees
> > MsgBox "Données"
> > Put #1, Seek(1), donnees
> > End Sub
> >
> > En gros je veux stocker directement ce que je reçois dans un


fichier...
ca
> > passe avec un html (en me connectant sur www.google.fr) mais pas avec
mon
> > piti fichier...
> >
> > Merci d'avance :)
> >
> > "ng" a écrit dans le message de news:
> >
> > > Salut,
> > >
> > > Avec quel code as-tu essayé de rapatrier le fichier ?
> > >
> > > Quel méthode ?
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > >
> > > "Florent" a écrit dans le message de news:
> > > 402bf306$0$6978$
> > > > Bonjour,
> > > > Pour une petite application j'aurais besoin de récupérer le


contenu
> d'un
> > > > fichier de données qui se trouve sur un hébergeur. Le problème est
que
> > je
> > > > n'arrive pas à récupérer les données de mon fichier en question.
> > Pourtant
> > > > tout se passe bien si j'essaye de récupérer un fichier html (je
> récupère
> > > les
> > > > codes de la page en question sans problèmes).
> > > > Le fichier que je cherche à rapatrier se trouve chez lycos
> > > > (http://membres.lycos.fr/ ... )
> > > > Y'a-t'il des éléments à modifier par rapport au rapatriement d'une
> page
> > > html
> > > > (l'index de chez google marche bien) à part les chemins et le nom


du
> > > > fichier?
> > > > Le chemin de connection est-il bien "membres.lycos.fr" ou
> > > > http://membres.lycos.fr . En fait pour l'un ou pour l'autre je ne
> > récupère
> > > > aucune donnée...
> > > > J'apprécierais toute aide ou indication qui me mettrait sur la


voix
:)
> > > > Merci d'avance
> > > >
> > > > Florent
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>