Downloader un .txt sans ouverture de "Téléchargement de fichier"

Question

Bonjour,

J'ai une application VB6 qui pilote IE. 
Je surf  vers une page, remplit les champs et la submit.
En retour, j'ai la fenetre classique "Téléchargement de fichier" qui me demande si je veux ouvrir ou enregistrer le .txt qui va être downloadé en retour.
J'aimerai bien supprimer cette etape ou bien piloter cette fenetre à partir de VB6 pour que mon programme ne nécessite pas d'intervention humaine.

Des idées ?

Merci

Gazman

PCPT · Answer

salut,
pourquoi passer par le pilotage d'IE
aucune boîte de dialogue en passant par INET ou par API

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_gazman · Answer

Bonjour,
Effectivement c'est ce que j'utilise lorsque je parviens à passer les paramètres dans l'url, mais ici, les paramètres sont passés à travers un form (radiobutton, checkbox et text).
Y a-t-il moyen de passer ces paramètres dans une URL ?
Ou bien y a-t-il une autre solution que de driver IE ?

Gazman

PCPT · Answer

salut, par FORM et POST comme çà semble être le cas, pas d'url composable non

mais peut-être connais-tu (à l'avance) l'emplacement du fichier grâce aux objets du FORM?
sinon pas beaucoup de solution non...

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_gazman · Answer

C'est un FORM avec un GET (par defaut) -> j'ai pu reconstituer l'URL.
C'est du HTTPS et la page est créée dynamiquement.
Pour y acceder, je dois d'abord m'identifier sur la home page. (c'est fait pour etre exécuté manuellement)
Ensuite :
si j'encode l'adresse dans le barre des menu et <enter> je reste avec une page blanche (il se connecte bien brievement au site mais rien ne se passe)
si je met l'adresse dans une balise  sur une page et que je clique dessus -> j'ai le popup de téléchargement
si j'attaque directement avec un controle Inet -> je recois un string vide en retour.

Gazman

PCPT · Answer

inet en string peut-être, mais en bytes çà devrait marcher

cs_gazman · Answer

Voilà mon bout de code. Quel paramètre détermine le string/byte ?

    Dim strURL As String ' Définit une adresse valide pour strURL.
    Inet1.AccessType = icUseDefault
    strURL = "

PCPT · Answer

... mouaip, c'est utile que je mette des liens ^^

     
Dim aBytes() As Byte  
     With Inet  
         .AccessType = icUseDefault  
         .Protocol = icHTTP  
         aBytes = .OpenURL(sUrl, icByteArray)  
         Do Until Not (.StillExecuting)  
            DoEvents  
         Loop  
     End With  

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_gazman · Answer

Merci pour le bout de code, mais aBytes reste désespéremment vide ...
Reste d'ailleur toujours le problème de l'identification sur le site.
Si je ne suis pas identifié, lorsque je tape l'URL dans IE, je suis par contre dirigé vers la page d'identification

Gazman

PCPT · Answer

transmets moi un login+mdp bidons par MP et je regarde çà dans l'heure

cs_gazman · Answer

Ca c'est un problème: je n'ai qu'un seul loggin.
Boursorama c'est le site sur lequel j'ai mes quelques économies ...
Tu comprendras facilement que j'ai du mal à le donner !
D'auter part, pas moyen de créer de compte "bidon" (c'est comme à la banque)
C'est pas pour nous faciliter la vie !

Gazman

PCPT · Answer

ok forcément... ^^

en reprenant mon lien, met par exemple
sDest = "C:\fichierdl.ext"

et en dessous de          
.Protocol = icHTTP

ajoute
.UserName = "ton_login"
.Password = "ton_pass"

si çà ne donne rien, faudra passer par la création d'un cookie
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

cs_gazman · Answer

Je faisais un break.
Je ne vois pas bien où intervient ton sDest.
Initialisé mais pas utilisé.

Gazman

PCPT · Answer

revoir mon tout premier lien...

cs_gazman · Answer

Désolé,
Je ne trouve pas de sDest dans ton code:

     Dim
 aBytes() As Byte  
     
With Inet  
         .AccessType = icUseDefault  
         .Protocol = icHTTP  
         aBytes = .OpenURL(sUrl, icByteArray)  
         
Do Until Not (.StillExecuting)  
            
DoEvents  
         
Loop  
     
End With  

Gazman

PCPT · Answer

mon tout premier message...
aucune boîte de dialogue en passant par INET
 ou par API

cs_gazman · Answer

Sorry,

J'avais pas capté qu'il y avait des liens en dessous de "Inet" et "API" !
J'ai plus le temps maintenant, je regarde ca ce soir.

Merci
Gazman

Downloader un .txt sans ouverture de "Téléchargement de fichier"

17 réponses

Votre réponse

Discussions similaires