récupérer les images!!

salut

comment on fait pour récupérer des images sur le net
connaissant l'adresse genre
http://www.machin.fr/photo/photo1.jpg
et copier le fichier sur le disque dur!!
en vb bien sur lol sagit pas de faire "enregistrer sous" avec internet explorer etc...

merci

GhnombX

Salut

Teste avec : Microsoft Internet Transfaire Control 6.0 (SP4) chez moi

Code :
' Bien mettre le http://
Nom$ = "http://www.machin.fr/photo/photo1.jpg"

' Ici on charge l'image
b() = Inet1.OpenURL(Nom$, icByteArray)

' Si la taille de la variable est -1, rien n'a ete charger.
' Image introuvable ou autre probleme
If UBound(b) = -1 Then
Msgbox "L'image n'a pas ete charger"
Exit Sub
End If

' Nom de sauvegarde
a$ = "c:\Photo1.jpg"

' On sauve l'image
Open a$ For Binary As #1
Put #1, , b()
Close

Voila, je m'en ete servie pour faire une petite appli qui 'aspire' des listes d'url...

Question : Int19h@hotmail.com

++

Int19h

ça marche pas!!
jarive a récupérer qq chose mai je sai pa koi c pa une image lool

nan mais c koi le type de b?
pour le déclarer comme dim b as bytearray
c pas un type de vb ça...
enfin je sui perdu la



-------------------------------
Réponse au message :
-------------------------------

Salut

Teste avec : Microsoft Internet Transfaire Control 6.0 (SP4) chez moi

Code :
' Bien mettre le http://
Nom$ = "http://www.machin.fr/photo/photo1.jpg"

' Ici on charge l'image
b() = Inet1.OpenURL(Nom$, icByteArray)

' Si la taille de la variable est -1, rien n'a ete charger.
' Image introuvable ou autre probleme
If UBound(b) = -1 Then
Msgbox "L'image n'a pas ete charger"
Exit Sub
End If

' Nom de sauvegarde
a$ = "c:\Photo1.jpg"

' On sauve l'image
Open a$ For Binary As #1
Put #1, , b()
Close

Voila, je m'en ete servie pour faire une petite appli qui 'aspire' des listes d'url...

Question : Int19h@hotmail.com

++

Int19h

Salut

La declaration est : Public b() As Byte

++

int19h