
Pour faire une sorte de programe de mise a jour

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