Controle inet et CGI --> méthode GET impossible

kikochris Messages postés 13 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 19 mars 2007 - 12 oct. 2005 à 23:31
kikochris Messages postés 13 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 19 mars 2007 - 14 oct. 2005 à 15:01
Bonjour à tous

J'ai besoin d'un peu d'aide car je sèche sur ce problème, je compte sur vous.

Voila le problème :

en pointant sur cette URL:

http://www.animationfactory.com/cgi-bin/downloads.cgi?f=11837

j'obtiens la fenêtre de téléchargement habituelle et je peux télécharger le fichier zip proposé par le serveur.



Je souhaite faire la même chose avec un contrôle inet, mais malgré tous mes efforts, je bloque.

Un des problèmes est que l'on ne connait pas le nom du fichier zip qui va être téléchargé.

J'ai essayé divers fic_source, divers fic_dest, divers URL, divers execute, mais rien n'y fait.

Si quelqu'un a une idée, merci beaucoup.



fic_source = "http://www.animationfactory.com/cgi-bin/downloads.cgi?f=11837"

'fic_source = "http://www.animationfactory.com/cgi-bin/downloads.cgi"

fic_destination = "K:\home\a.zip"

'fic_destination = "K:\home"



With Inet1

.Protocol = icHTTP

'.URL = "http://www.animationfactory.com/cgi-bin/downloads.cgi?f=11837"

.URL = "http://www.animationfactory.com/cgi-bin/downloads.cgi"

.Execute , "Get fic_source fic_destination"

' .Execute "http://www.animationfactory.com/cgi-bin/downloads.cgi?f=11837", "GET"

End With

Do Until Inet1.StillExecuting = False ' WAIT Downloading..

DoEvents

Loop





merci beaucoup
kiko

5 réponses

Mikaels35 Messages postés 146 Date d'inscription dimanche 23 janvier 2005 Statut Membre Dernière intervention 17 novembre 2009 2
13 oct. 2005 à 15:59
Dim S as String

S = Inet1.OpenURL(fic_source)
While Inet1.StillExecuting
DoEvents
Wend

@+
0
Mikaels35 Messages postés 146 Date d'inscription dimanche 23 janvier 2005 Statut Membre Dernière intervention 17 novembre 2009 2
13 oct. 2005 à 16:06
Ensuite il faut analyser le fichier S pour trouver l'URL du .ZIP et son nom puis faire

Dim T() As Byte
Dim URL as String

URL="adresse du ZIP"

T = Inet1.OpenURL(URL, icByteArray)
While Inet1.StillExecuting
DoEvents
Wend

Open "chemin\nom du fichier.zip" For Binary Access Write As #1
Put #1, , U
Close
0
kikochris Messages postés 13 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 19 mars 2007
13 oct. 2005 à 20:33
Mikaels35, je te remercie bien.
Seulement, il subsiste un petit problème que voici:
lorsque je vais à cette URL :
http://www.animationfactory.com/cgi-bin/downloads.cgi?f=11837
avec Internet Explorer 6, j'ai une page d'erreur.
Lorsque j'y vais avec firefox 1.0.7, tout est ok, je peux télécharger le fichier zip.
Je suppose que le controle Inet utilise le moteur d'IE6. C'est pour ça que ça ne fonctionne pas !
Qu'en dites-vous ?
merci pour votre code qui fonctionne bien à part ce défaut.

kiko
0
Mikaels35 Messages postés 146 Date d'inscription dimanche 23 janvier 2005 Statut Membre Dernière intervention 17 novembre 2009 2
14 oct. 2005 à 07:42
J'ai aussi une erreur en allant sur la page que tu indiques avec IE6 !

"Whoops, our servers are a little busy and we couldn't perform your task.
Please go back and try again

If you are repeatedly getting this message, please let us know by sending an email message to our super tech guy, Jim. jim at animationfactory.com"

Essaie d'envoyer un email à "Jim" pour lui signaler ce problème avec IE6 !!

@+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
kikochris Messages postés 13 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 19 mars 2007
14 oct. 2005 à 15:01
merci bien pour votre aide
0
Rejoignez-nous