Téléchargement impossible ?

[Georges-85]

Bonjour,
En tant que nouvel utilisateur, je voulais télécharger des fichiers depuis Internet. Le code suivant trouvé sur ce forum marche parfaitement bien.

Code : Tout sélectionner

If InitNetwork()=0
   MessageRequester("Erreur","Connexion internet indisponible"+Chr(10)+"ce programme va se terminer.",#MB_ICONEXCLAMATION)
Else
  url$="http://ftp.gamez-mania.info/config.xml"
  filtre$=""
  destination$="E:\Mes Documents\PureBasic\Essais_telechargement\recu.xml"
  NomDeFichier$ = SaveFileRequester("Enregistrement du fichier", destination$, filtre$, 0)
  If NomDeFichier$=""
     MessageRequester("erreur","Pas de nom de fichier, ce programme va se terminer.") ;
     End
   Else
     If ReceiveHTTPFile(url$,NomDeFichier$)
        MessageRequester("succés","le fichier à été copié sous "+NomDeFichier$+Chr(10)+"ce programme va se terminer.") ;
        End
     Else
        MessageRequester("erreur","impossible de télécharger le fichier "+Chr(10)+url$+Chr(10)+Chr(10)+"Ce programme va se terminer.") ;
        End
     EndIf
   EndIf
EndIf

Je me suis dit que serait rigolo de télécharger les résultats du loto et pour ce faire, j'ai modifié le code ci-dessus comme suit :

Code : Tout sélectionner

If InitNetwork()=0
   MessageRequester("Erreur","Connexion internet indisponible"+Chr(10)+"ce programme va se terminer.",#MB_ICONEXCLAMATION) ;
Else
   url$="https://media.fdj.fr/generated/game/loto/nouveau_loto.zip"
   filtre$="Compressé (*.zip)|*.zip"
   destination$="E:\Mes Documents\PureBasic\Essais_telechargement\recu.zip"
   NomDeFichier$ = SaveFileRequester("Enregistrement du fichier nouveau_loto.zip", destination$, filtre$, 0)
   If NomDeFichier$=""
      MessageRequester("erreur","Pas de nom de fichier, ce programme va se terminer.") ;
      End
   Else
      If ReceiveHTTPFile(url$,NomDeFichier$)
         MessageRequester("succés","le fichier à été copié sous "+NomDeFichier$+Chr(10)+"ce programme va se terminer.") ;
         End
      Else
         MessageRequester("erreur","impossible de télécharger le fichier "+Chr(10)+url$+Chr(10)+Chr(10)+"Ce programme va se terminer.") ;
         End
      EndIf
   EndIf
EndIf

Et là Toujours le même message "impossible de télécharger le fichier....."
Alors que si je saisis le même url dans Internet Explorer, ça se télécharge parfaitement
Quel peut être le problème, je nage....

[case]

il est possible que le serveur utilise des cookies , demande le referer ou le 'type de navigateur ' pour autoriser le téléchargement.

ce n'est pas disponible avec les fonctions de bases de pure basic.

[Backup]

pour les chiffres du loto, moi je lis le contenu de la page web
et j'extrais les numéros !

[Georges-85]

Case a écrit

demande le referer ou le 'type de navigateur ' pour autoriser le téléchargement.
ce n'est pas disponible avec les fonctions de bases de pure basic.

Pour moi "Le referer" qu'est-ce que c'est ?
Quand aux cookies c'est bien possible, j'en reçois quand j'y accède avec IE8.
********************
Merci Dobro, mais c'était pour faire utile.
Le téléchargement avec cette fonction ne marche pas non plus avec d'autres sites.
Alors je me demandais pourquoi ?

[case]

c'est peut etre aussi a cause du protocole hhtps utilisé...

https://media.fdj.fr/generated/game/loto/nouveau_loto.zip

[djes]

il est possible que le serveur utilise des cookies , demande le referer ou le 'type de navigateur ' pour autoriser le téléchargement.

ce n'est pas disponible avec les fonctions de bases de pure basic.

Ce n'est pas possible aussi facilement. Sinon, tout est possible

[case]

j'ai dit les fonctions de base sinon tout est en effet possible