Prog de mise a jour?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
jblaise.cs
Messages : 30
Inscription : lun. 26/avr./2004 11:30
Localisation : V'dauban
Contact :

Prog de mise a jour?

Message par jblaise.cs »

Est ce que c est possible d enregistrer un fichier sur notre disque a partir d internet sans utiliser le wabgadget? :?
Pour faire une sorte de programe de mise a jour :)
Je sais je suis jeune et con... mais j ai toute la vie pour etre comme toi ;)
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

Un code récupéré sur CodeArchiv.

Il est tout simple, mais il fonctionne. Mais ne me demande pas de t'expliquer comment. :lol:

J'ai juste modifié l'adresse internet, celle du code n'avait pas l'air de fonctionner, et j'ai mis les MessageRequester en français
La nouvelle adresse pointe sur un fichier de 950 Ko, situé sur ma page.

Code : Tout sélectionner

; www.purearea.net (Sourcecode collection by cnesm)
; Author:
; Date: 22. November 2003


;You can set #Example = 0 Or = 1, depending on which code You want To use...

#Example = 1

CompilerIf #Example = 0

If URLDownloadToFile_(0,"http://www.cgsoftwares.com/PureBasic/PrgForum/Includes/Fichiers_Idl.zip","C:\Temp\Fichiers_Idl.zip",0,0) = #S_OK
  MessageRequester("INFO","Téléchargement terminé")
Else
  MessageRequester("Erreur","Le téléchargement a échoué")
EndIf
  
CompilerElse
  
Fichier$ = Space(2000)
If URLDownloadToCacheFile_(0,"http://www.cgsoftwares.com/PureBasic/PrgForum/Includes/Fichiers_Idl.zip",Fichier$,Len(Fichier$),0,0) = #S_OK
  ; Datei$ enthält den Name der Datei
  ; in der es gespeichert wurde
  MessageRequester("INFO","Fichier: "+Fichier$,0)
Else
  MessageRequester("Erreur","Le téléchargement à échoué")
EndIf
  
CompilerEndIf
Heis Spiter
Messages : 1092
Inscription : mer. 28/janv./2004 16:22
Localisation : 76
Contact :

Message par Heis Spiter »

Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL :D
jblaise.cs
Messages : 30
Inscription : lun. 26/avr./2004 11:30
Localisation : V'dauban
Contact :

Message par jblaise.cs »

Ok merci :D
Je sais je suis jeune et con... mais j ai toute la vie pour etre comme toi ;)
Répondre