Func Mise_a_jour()
$s_DatFile = "
http://SITE.cfun.fr/version.dat";l'adresse ou vous avez mis votre .dat
$s_DatFile_Local = @ScriptDir & '\NOM DU FICHIER UNE FOIS SUR LE PC.dat'; a peu d'importance, il vaut mieux ne pas toucher
$b_Download_UpdateDat = 1;0 pour tester en local <- pas forcément important
If $b_Download_UpdateDat Then ; si $b_Download_UpdateDat = 1 alors ... sinon mode local
MsgBox(0 + 48, "M.A.J", "Téléchargement du fichier, CLIQUER sur OK")
$inetget = InetGet($s_DatFile, $s_DatFile_Local, 1, 1);Commande qui va recuperer en ligne le fichier.dat pour pouvoir l'analyser après
sleep(5000)
Else
FileCopy(@ScriptDir & 'Versiondl.ini', $s_DatFile_Local) ; pour tester en local
EndIf
While 1
If $inetget = 0 And $b_Download_UpdateDat = 1 Then ;si mode non-local et si echec de téléchargement alors ...
$i_Res = MsgBox(0, 'Erreur de Connexion à Internet', 'La plupart des composants nécessitent une Connexion Internet.' & @LF & _
"Vous pouvez tout de même lancer le programme en cliquant sur [Continuer]" & @LF & @LF & _
"Vous pouvez également retenter de vous connecter en cliquant sur [Recommencer]," & @LF & _
"après avoir vérifié que:" & @LF & _
"- Vous êtes bien connecté à Internet" & @LF & _
"- Internet Explorer n'est pas bloqué ou mal configuré" & @LF & _
"- Vous n'avez pas de proxy ou autre porgramme pouvant couper la connection" & @LF & _
"- Vous pouvez acceder au forum
http://www.autoitscript.fr/" @LF & _
"- Votre pare-feu ne bloque pas l'accès Internet à ce programme")
ExitLoop ;sinon passe à la suite du programme
Else ;si pas d'échec on stock les valeurs du .dat qui se lit comme un ini
Global $Version_DAT, $Type_DAT, $Site_DAT, $Fichier_rar, $Destination
MsgBox(0, "M.A.J", "Comparaison du fichier, CLIQUER sur OK")
$Version_DAT = IniRead($s_DatFile_Local, 'MiseAJour', 'version', 'Erreur de lecture') ;variable de version
$Type_DAT = IniRead($s_DatFile_Local, 'MiseAJour', 'type', 'Erreur de lecture') ;variable de type
$Site_DAT = IniRead($s_DatFile_Local, 'MiseAJour', 'adresse', 'Erreur de lecture') ;variable de Adresse
$Fichier_rar = IniRead($s_DatFile_Local, 'MiseAJour', 'fichier_rar', '')
$Destination_rar = IniRead($s_DatFile_Local, 'MiseAJour', 'destination_rar', '')
$Temps_DAT = IniRead($s_DatFile_Local, 'MiseAJour', 'temps', '')
sleep(5000)
MsgBox(0, "M.A.J", "Fichier comparé, CLIQUER sur OK")
FileDelete($s_DatFile_Local)
If $Version_DAT <> $Version Then;On compare ici les versions, marche pour n'importe quel système de version avec des points "." si nouvelle maj supérieur alors
If $Type_DAT = "majeur" Then
MsgBox(0, "Nouvelle Mise à jour", "La version " & $Version_DAT & " est désormais disponible" & @CRLF & "Il s'agit d'une version "&$Type_DAT & @CRLF & "Se rendre sur " & $Site_DAT & " Car il s'agit d'un nouveau Setup, vous pouvez désinstaller celui la")
ExitLoop
ElseIf $Type_DAT = "mineur" Then
$MsgVersion = MsgBox(4 + 48, "Nouvelle Mise à jour", "La version " & $Version_DAT & " est désormais disponible" & @CRLF & "Il s'agit d'une version "&$Type_DAT & @CRLF & "Le Temps de téléchargement est estimer à: "&$Temps_DAT & @CRLF & @CRLF & "Voullez Vous la télécharger ?")
If $MsgVersion = 6 Then
MsgBox(0, "Temps", "Le téléchargement commencera dans 15 Seconde")
sleep(5000)
sleep(5000)
MsgBox(0, "Temps", "5 Seconde", 3)
Sleep(5000)
ElseIf $MsgVersion =7 Then
ExitLoop
EndIf
InetGet($Fichier_rar, @ScriptDir & $Destination_rar, 1, 1) ;télécharge l'exe
While @InetGetActive
TrayTip("Downloading Version "&$Version_DAT, "Bytes = " & @InetGetBytesRead, 10, 16) ; affiche l'avancement du téléchargement
Sleep(50)
WEnd
Sleep(1000)
MsgBox(0 + 48, "M.A.J", "Fichier Uploader avec succés, pensez à déziper le fichier téléchargé, il se trouve dans le repertoire de T5")
ExitLoop
EndIf
ElseIf $Version_DAT = $Version Then
sleep(1000)
MsgBox(0 + 48, "M.A.J", "Aucune Nouvelle version n'est disponible, pour plus d'information se rendre sur " & $Site & @CRLF & "Vous disposez de la version : " & $Version )
ExitLoop
Else
MsgBox(0, "M.A.J", "ERREUR",5)
ExitLoop
EndIf
EndIf
WEnd
;~ Ici tu met le code pour la mise a jour
EndFunc ;==>Mise_a_jour
