[..] Mise à jour automatisée de mon application

[peuchere83]

Bonjour à tous,

Je cherche à exploiter la commande "FileGetVersion" afin de comparer exécutable local est l'exécutable de référence qui se trouve sur le serveur. (il faut savoir que ces exécutables, ont été générés avec autoit)

Ce que je n'arrive pas à faire c'est à inscrire la version de mon application autoit dans la fenêtre d'information qui apparaît lors du clic droit.

Si quelqu'un a une idée, je suis preneur.

Bonne journée

[roselito13]

Sa c'est mon script ^^ j'utilise pas ta fonction mais c'est pareil a la fin !

Faut un fichier sur internet (VERSION.dat) et des variable de version dans e source, moi il était dans un ini a cotée (VERSIONDL.ini)!

► Afficher le texte

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

Voici le contenue du fichier DAT SU INTERNET

► Afficher le texte

[MiseAJour]
version=1.0
type=mineur
adresse=http://www.cheat-wOw.com/ ou http://www.cheat4rpg.com/
temps= 10sec
Fichier_rar=http://sd-1.archive-host.com/membres/up ... 140/T5.rar
Destination_rar=\Mise_A_Jour.rar

Il faut dans le script uniquement 1 variable

Code : Tout sélectionner

$Version = "1.0"
 

Ou dans le INI

Code : Tout sélectionner

[MiseAJour]
version=1.0
 

Il faudra peu être modifier les nom de MQGBOX ! et autre !
Et Voila j'espere t'avoir aider !

[jbnh]

Sinon, il a un magnifique tutoriel de timmalos ici : http://www.autoitscript.fr/forum/viewto ... =11&t=1697