[R] Boucle

[touslesmatins]

BOnjour,
J'ai besoin d'une petite aide ?
Je souhaiterais telecharger des images à la volée... avec ce bout de code j y arrive mais seulement la premiere image... alors que je souhaiterais telecharger les autres images...
et je seche. Merci, toute aide sera la bienvenue
Je souhaiterais savoir pourquoi ceci ne fonctionne pas ?

Code : Tout sélectionner

For $oImg In $oImgs
    $ferme=InetGet($oImg.src, @ScriptDir&"\"&$num&".jpg", 1, 0)
    do
        sleEp(10)
    until InetGetInfo($ferme, 2)    ; Check if the download is complete.
Next
 

[Tlem]

Difficile de répondre, car il manque une partie du code.
Vous nous montrez une variable (vraisemblablement objet) $oImgs, mais on ne sait pas comment elle à été initialisée et si elle contient bien l'ensemble des images à télécharger ...

[touslesmatins]

effectivement...
Je dois récupérer toutes les images dans un intranet qui changent constamment et donc voici le début du code manquant :

Code : Tout sélectionner

$oIE = _IECreate ("http://www.......")
$oImgs = _IEImgGetCollection ($oIE)
$NUM=RANDOM(1,1000,1)

[Tlem]

Dans un premier temps, votre problème c'est le Random ...
Comme vous le faites qu'une seule fois, $NUM prend qu'un seul numéro et donc vous téléchargez bien la totalité des images, mais elles ce voient attribuer le même nom ...

Sinon, plus simplement, vous pouvez faire ceci :

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

$oIE = _IECreate ("http://www.......", 0, 0)
$oImgs = _IEImgGetCollection ($oIE)

For $oImg In $oImgs
    ConsoleWrite("Téléchargement de " & $oImg.nameProp  & @LF)
    InetGet($oImg.src, @ScriptDir & "\" & $oImg.nameProp, 1, 0)
Next

[touslesmatins]

Tout simplement parfait, j'oserai presque dire comme toujours...
Merci Tlem

[bloodwolff]

Avant que TLem le dise

SI le sujet est résolu , merci de mettre [R]