Bienvenue sur le wiki du site www.K1der.net. Se wiki contiendra les differents projets des differents membres, ainsi que des aides pour l’utilisation du site et des services proposés.
Bonne lecture.
Piste: » menu2
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.4.9 Author: ToMs/SurPriseS Script Function: Menu package auto. #ce ---------------------------------------------------------------------------- ; Script Start #include <GUIConstants.au3> #include <Date.au3> ;#NoTrayIcon AutoItSetOption("TrayAutoPause",0) AutoItSetOption("TrayIconDebug",1) ; GUI GuiCreate("Speed Install - Design By ToMs - Code SurPriseS", 500, 470) GUISetState (@SW_SHOW) ;picture GuiCtrlCreatePic("logo.jpg",355,30, 120,40) GUICtrlCreatelabel (_DateTimeFormat( _NowCalc(),2), 355,80) ;chkbox $ini_titre1 = IniRead("titre.ini","1","titre","") GUICtrlCreateGroup($ini_titre1, 10, 10, 150, 220) $ini_ckeck1 = IniRead("log.ini","1","name","") $check1 = GUICtrlCreateCheckbox ($ini_ckeck1, 20, 25, 120, 20) $ini_ckeck2 = IniRead("log.ini","2","name","") $check2 = GUICtrlCreateCheckbox ($ini_ckeck2, 20, 45, 120, 20) $ini_ckeck3 = IniRead("log.ini","3","name","") $check3 = GUICtrlCreateCheckbox ($ini_ckeck3, 20, 65, 120, 20) $ini_ckeck4 = IniRead("log.ini","4","name","") $check4 = GUICtrlCreateCheckbox ($ini_ckeck4, 20, 85, 120, 20) $ini_ckeck5 = IniRead("log.ini","5","name","") $check5 = GUICtrlCreateCheckbox ($ini_ckeck5, 20, 105, 120, 20) $ini_ckeck6 = IniRead("log.ini","6","name","") $check6 = GUICtrlCreateCheckbox ($ini_ckeck6, 20, 125, 120, 20) $ini_ckeck7 = IniRead("log.ini","7","name","") $check7 = GUICtrlCreateCheckbox ($ini_ckeck7, 20, 145, 120, 20) $ini_ckeck8 = IniRead("log.ini","8","name","") $check8 = GUICtrlCreateCheckbox ($ini_ckeck8, 20, 165, 120, 20) $ini_ckeck9 = IniRead("log.ini","9","name","") $check9 = GUICtrlCreateCheckbox ($ini_ckeck9, 20, 185, 120, 20) $ini_ckeck10 = IniRead("log.ini","10","name","") $check10 = GUICtrlCreateCheckbox ($ini_ckeck10, 20, 205, 120, 20) $ini_titre2 = IniRead("titre.ini","2","titre","") GUICtrlCreateGroup($ini_titre2, 170, 10, 150, 100) $check11 = GUICtrlCreateCheckbox ("Avg", 180, 25, 120, 20) $check12 = GUICtrlCreateCheckbox ("******", 180, 45, 120, 20) $check13 = GUICtrlCreateCheckbox ("******", 180, 65, 120, 20) $check14 = GUICtrlCreateCheckbox ("******", 180, 85, 120, 20) $ini_titre3 = IniRead("titre.ini","3","titre","") GUICtrlCreateGroup($ini_titre3, 170, 130, 150, 100) $check15 = GUICtrlCreateCheckbox ("Nvidia", 180, 145, 120, 20) $check16 = GUICtrlCreateCheckbox ("Ati", 180, 165, 120, 20) $check17 = GUICtrlCreateCheckbox ("Hitman Pro", 180, 185, 120, 20) $check18 = GUICtrlCreateCheckbox ("******", 180, 205, 120, 20) $ini_titre4 = IniRead("titre.ini","4","titre","") GUICtrlCreateGroup($ini_titre4, 330, 130, 150, 100) $check19 = GUICtrlCreateCheckbox ("Pcperso", 340, 145, 120, 20) $check20 = GUICtrlCreateCheckbox ("******", 340, 165, 120, 20) $check21 = GUICtrlCreateCheckbox ("******", 340, 185, 120, 20) $check22 = GUICtrlCreateCheckbox ("******", 340, 205, 120, 20) $ini_titre5 = IniRead("titre.ini","5","titre","") GUICtrlCreateGroup($ini_titre5, 10, 235, 470, 170) $check23 = GUICtrlCreateCheckbox ("7zip", 20, 250, 120, 20) $check24 = GUICtrlCreateCheckbox ("Acrobat Reader 8", 20, 270, 120, 20) $check25 = GUICtrlCreateCheckbox ("Java", 20, 290, 120, 20) $check26 = GUICtrlCreateCheckbox ("Maxi Compte", 20, 310, 120, 20) $check27 = GUICtrlCreateCheckbox ("Nero", 20, 330, 120, 20) $check28 = GUICtrlCreateCheckbox ("OpenOffice", 20, 350, 120, 20) $check29 = GUICtrlCreateCheckbox ("Pdf Créator", 20, 370, 120, 20) $check30 = GUICtrlCreateCheckbox ("Picasa", 180, 250, 120, 20) $check31 = GUICtrlCreateCheckbox ("VLC", 180, 270, 120, 20) $check32 = GUICtrlCreateCheckbox ("Windows Live MSN", 180, 290, 120, 20) $check33 = GUICtrlCreateCheckbox ("******", 180, 310, 120, 20) $check34 = GUICtrlCreateCheckbox ("******", 180, 330, 120, 20) $check35 = GUICtrlCreateCheckbox ("******", 180, 350, 120, 20) $check36 = GUICtrlCreateCheckbox ("******", 180, 370, 120, 20) $check37 = GUICtrlCreateCheckbox ("******", 340, 250, 120, 20) $check38 = GUICtrlCreateCheckbox ("******", 340, 270, 120, 20) $check39 = GUICtrlCreateCheckbox ("******", 340, 290, 120, 20) $check40 = GUICtrlCreateCheckbox ("******", 340, 310, 120, 20) $check41 = GUICtrlCreateCheckbox ("******", 340, 330, 120, 20) $check42 = GUICtrlCreateCheckbox ("******", 340, 350, 120, 20) ;Bouton $Button_1 = GUICtrlCreateButton ("Install", 200, 420, 100) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit ;--------------------- Bouton install Case $msg = $button_1 $i = 1 for $i = 1 to 11 If BitAnd(GuiCtrlRead( "$check" & $i),$GUI_CHECKED) Then $fichier = IniRead("log.ini",$i,"fichier","") MsgBox(0,"test",$fichier) ;download($fichier) ;unzip($fichier) EndIf $i = $i + 1 Next ;7zip If BitAnd(GuiCtrlRead( $check23),$GUI_CHECKED) Then $fichier = IniRead("log.ini",1,"fichier","") download($fichier) unzip($fichier) install($fichier) EndIf EndSelect Wend ;-------------------------------------------------FONCTION : ;-------------------------Download : Func download($fichier) if FileExists($fichier) then FileDelete($fichier) $proto = IniRead("cfg.ini","dl","protocole","") $ip = IniRead("cfg.ini","dl","ip","") $chemin = IniRead("cfg.ini","dl","chemin","") $url = $proto & "://" & $ip & $chemin & $fichier $cmd = "wget.exe " & $url $affichage = " " sleep(500) $affichage = "Telechargement de " & $fichier $check60 = GUICtrlCreateLabel($affichage, 200, 450) runwait($cmd,'',@SW_hide) $affichage = "Téléchargement terminée " $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Téléchargement terminée ." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Téléchargement terminée .." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Téléchargement terminée ..." $check60 = GUICtrlCreateLabel($affichage, 200, 450) EndFunc ;-------------------------Unzip : Func unzip($fichier) $cmd2 = "7za.exe x -y " & $fichier $affichage = " " sleep(500) $affichage = "Décompréssion de " & $fichier $check60 = GUICtrlCreateLabel($affichage, 200, 450) runwait($cmd2,'',@SW_hide) $affichage = "Décompréssion terminée " $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Décompréssion terminée ." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Décompréssion terminée .." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Décompréssion terminée ..." $check60 = GUICtrlCreateLabel($affichage, 200, 450) EndFunc ;-------------------------Install : Func install($fichier) $fichier_noext = StringSplit($fichier,".") $dossier = @ScriptDir & "\" & $fichier_noext[1] FileChangeDir($dossier) $search = FileFindFirstFile("auto*.exe") $file = FileFindNextFile($search) $affichage = " " sleep(500) $affichage = "Installation de " & $fichier $check60 = GUICtrlCreateLabel($affichage, 200, 450) RunWait($file) $affichage = "Installation terminée " $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Installation terminée ." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Installation terminée .." $check60 = GUICtrlCreateLabel($affichage, 200, 450) sleep(500) $affichage = "Installation terminée ..." $check60 = GUICtrlCreateLabel($affichage, 200, 450) EndFunc ;-------------------------_ShellEx : Func _ShellEx($sCmd) DllCall("shell32.dll", "long", "ShellExecute", "hwnd", 0, "string", '', "string", $sCmd, "string", '', "string", '', "long", @SW_SHOWNORMAL) EndFunc ;==>_ShellEx