;~ *************************************************************************** ;~ *************************************************************************** ;~ *** ReamFor *** ;~ *** *** ;~ *************************************************************************** ;~ *************************************************************************** ;~ ############################################# ;~ ;~ Dexcrption : Include pour ReamFor ;~ ;~ ############################################# #include #include #include #include #include ;~ ############################################# ;~ ;~ Dexcrption : Variable initialisation ;~ ;~ ############################################# If Not FileExists(@ScriptDir &"Configuration.ini") Then IniWrite(@ScriptDir &"Configuration.ini", "MiseAJour", "version", "1.0") $Version = IniRead(@ScriptDir &"Configuration.ini", "MiseAJour", "version", "Erreur") $Site = "http://teamgolden.cfun.fr" $Lien = "Http://" $Serveur_liste = IniRead(@ScriptDir &"Configuration.ini", "CONFIG", "serveurs", "") $Nom_du_serveur = StringSplit($Serveur_liste, '|', 1) Local $check[100] ;~ ############################################# ;~ ;~ Dexcrption : GUI ;~ ;~ ############################################# #Region ### START Koda GUI section ### Form= $GUI_Main = GUICreate("Reamfor | By Q&D", 359, 169, 192, 124) GUISetBkColor(0xFFFFFF) $Menu = GUICtrlCreateMenu("Menu") $Menu_maj = GUICtrlCreateMenuItem("Vérifier les mises à jour", $Menu) $Menu_quitter = GUICtrlCreateMenuItem("Quitter", $Menu) $Menu_interogation = GUICtrlCreateMenu("?") $Menu_version = GUICtrlCreateMenuItem("Version", $Menu_interogation) $Menu_lien = GUICtrlCreateMenuItem("Lien", $Menu_interogation) $SELECTEUR = GUICtrlCreateCombo("", 96, 8, 161, 25) For $i = 1 To UBound($Nom_du_serveur[$i]) - 1 $check[$i] = GUICtrlSetData(-1, $Nom_du_serveur[$i]) Next $LANCER = GUICtrlCreateButton("Modifier", 96, 88, 145, 49, $WS_GROUP) $ADD = GUICtrlCreateButton("ADD", 32, 40, 140, 25, $WS_GROUP) $DELETE = GUICtrlCreateButton("DELETE", 192, 40, 140, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;~ ############################################# ;~ ;~ Dexcrption : Main While ;~ ;~ ############################################# While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Menu_quitter Exit Case $msg = $ADD ADD() Case $msg = $DELETE DELETE() Case $msg = $LANCER Go() Case $msg = $Menu_maj MAJ() Case $msg = $Menu_version MsgBox(0, "ReamFor | Version", "Version : "& $Version) Case $msg = $Menu_lien InputBox("ReamFor | Lien", "Voici un lien pour télécharger cette aplication, merci de la donner a vos amis", $Lien) EndSelect WEnd ;~ ############################################# ;~ ;~ Dexcrption : ADD ;~ ;~ ############################################# Func ADD() GUISetState(@SW_DISABLE, $GUI_Main) $GUI_Add = GUICreate("ReamFor | ADD", 258, 149, 302, 218) GUISetBkColor(0xFFFFFF) $Input_Nom = GUICtrlCreateInput("Nom du Serveur", 16, 8, 225, 21) $Input_Reamlist = GUICtrlCreateInput('Reamlist avec le "Set Reamlist..."', 16, 40, 225, 21) $Input_Chemin = GUICtrlCreateInput('Chemin de reamlist avec le "\reamlist.wtf"', 16, 72, 225, 21) $ADD_Add = GUICtrlCreateButton("ADD", 64, 104, 121, 33, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $ADD_Add IniWrite(@ScriptDir &"Configuration.ini", $Input_Nom, "Nom", $Input_Nom) IniWrite(@ScriptDir &"Configuration.ini", $Input_Nom, "Reamlist", $Input_Reamlist) IniWrite(@ScriptDir &"Configuration.ini", $Input_Nom, "Chemin", $Input_Chemin) $SAVE = IniRead(@ScriptDir &"Configuration.ini", "CONFIG", "serveurs", "") If $Save = "" Then IniWrite(@ScriptDir &"Configuration.ini", "CONFIG", "serveurs", $Input_Nom) Else IniWriteSection(@ScriptDir &"Configuration.ini", "CONFIG", "serveurs", $SAVE & "|" & $Input_Nom) EndIf MsgBox(0, "ReamFor | ADD", "Pour activer le serveur vous devez redémare l'aplication, celle si vas s'arréter toute seul mais ne redémarera pas automatiquement") GuiDelete($GUI_Add) Sleep(4000) Exit EndSelect WEnd EndFunc ;~ ############################################# ;~ ;~ Dexcrption : Mise à Jour ;~ ;~ ############################################# Func MAJ() $s_DatFile = "http://votfor.cfun.fr/ReamFor/version.dat";l'adresse ou vous avez mis votre .dat $s_DatFile_Local = @ScriptDir & 'Verification_de_la_Version.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 " & $Site & @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) MsgBox(0, "Temps", "10 Seconde",3) 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 VTF") 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