Récupérer les images!!

Messages postés
43
Date d'inscription
lundi 22 avril 2002
Statut
Membre
Dernière intervention
8 février 2004
-
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003
-
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
%-6

3 réponses

Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003

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
Messages postés
43
Date d'inscription
lundi 22 avril 2002
Statut
Membre
Dernière intervention
8 février 2004

ç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
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003

Salut

La declaration est : Public b() As Byte

++

int19h