#RequireAdmin #include #include #include #include ;~ -------------------------------------------------------------------------------------------------------------------------- Interface Opt("GUIOnEventMode", 1) $SNI = GUICreate("Sud Nivernais Informatique - SNI", 639, 198, 192, 124) GUISetFont(9, 400, 0, "Arno Pro Caption") $IE_vista = GUICtrlCreateCheckbox("IE Vista", 50, 35, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $IE_XP = GUICtrlCreateCheckbox("IE XP", 50, 55, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Firefox = GUICtrlCreateCheckbox("Firefox", 50, 75, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $supercopier = GUICtrlCreateCheckbox("Supercopier", 50, 95, 97, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Vlc = GUICtrlCreateCheckbox("Vlc", 150, 35, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Winrar = GUICtrlCreateCheckbox("Winrar", 150, 55, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Unlocker = GUICtrlCreateCheckbox("Unlocker", 150, 75, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Ccleaner = GUICtrlCreateCheckbox("Ccleaner", 150, 95, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Microsoft = GUICtrlCreateCheckbox("Microsoft Antivirus Essantials", 250, 35, 217, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Avira = GUICtrlCreateCheckbox("Avira", 250, 55, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $Avast = GUICtrlCreateCheckbox("Avast", 250, 75, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $DrWeb = GUICtrlCreateCheckbox("DrWeb", 250, 95, 81, 17) GUICtrlSetFont(-1, 12, 400, 0, "Arno Pro Caption") $copyright = GUICtrlCreateGroup("Copyright 2010 Damda58", 88, 152, 457, 33) GUICtrlSetFont(-1, 11, 400, 0, "Arno Pro Caption") GUICtrlSetColor(-1, 0x0000FF) GUICtrlCreateGroup("", -99, -99, 1, 1) $Pic1 = GUICtrlCreatePic("T:\sauvegarde\sni.jpeg", 544, 8, 80, 60, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) ;~ -------------------------------------------------------------------------------------------------------------------------- Boutons $SIW = GUICtrlCreateButton("System Info", 560, 96, 65, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "SIW") $Cureit = GUICtrlCreateButton("MAJ Cureit", 560, 128, 65, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "cureit") $Fermer = GUICtrlCreateButton("Quitter", 10, 160, 65, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "fermer") $Installer = GUICtrlCreateButton("Lancer", 560, 160, 65, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "install") GUISetState(@SW_SHOW) ;~ -------------------------------------------------------------------------------------------------------------------------- Boucle affichage While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;~ -------------------------------------------------------------------------------------------------------------------------- Install Func install() If _IsChecked($IE_vista) then SplashTextOn("","Installation de Internet Explorer Vista", 300, 50) RunWait("") check2() Else check2() EndIf EndFunc Func check2() If _IsChecked($IE_XP) then SplashTextOn("","Installation de Internet Explorer XP", 300, 50) RunWait("") SplashOff() check3() Else check3() EndIf EndFunc Func check3() If _IsChecked($Firefox) then SplashTextOn("","Installation de Firefox", 300, 50) RunWait("logiciels/Firefox.exe -ms -ira") SplashTextOn("","Installation de Flash", 300, 50) RunWait("logiciels/flashplayer.exe /s") SplashOff() check4() Else check4() EndIf EndFunc Func check4() If _IsChecked($supercopier) then SplashTextOn("","Installation de SuperCopier", 300, 50) RunWait("") SplashOff() check5() Else check5() EndIf EndFunc Func check5() If _IsChecked($Vlc) then SplashTextOn("","Installation de Vlc", 300, 50) RunWait("logiciels/vlc.exe -y /q /r:n /S") SplashOff() check6() Else check6() EndIf EndFunc Func check6() If _IsChecked($Winrar) then SplashTextOn("","Installation de Winrar", 300, 50) RunWait("logiciels/Winrar.exe /s /noreboot") SplashOff() check7() Else check7() EndIf EndFunc Func check7() If _IsChecked($Unlocker) then SplashTextOn("","Installation de Unlocker", 300, 50) RunWait("") SplashOff() check8() Else check8() EndIf EndFunc Func check8() If _IsChecked($Ccleaner) then SplashTextOn("","Installation de Ccleaner", 300, 50) RunWait("logiciels/ccleaner.exe /S") SplashOff() check9() Else check9() EndIf EndFunc Func check9() If _IsChecked($Microsoft) then SplashTextOn("","Installation de Microsoft AV Essentials", 300, 50) RunWait("") SplashOff() check10() Else check10() EndIf EndFunc Func check10() If _IsChecked($Avira) then SplashTextOn("","Installation de Avira", 300, 50) RunWait("") SplashOff() check11() Else check11() EndIf EndFunc Func check11() If _IsChecked($Avast) then SplashTextOn("","Installation de Avast!", 300, 50) RunWait("") SplashOff() check12() Else check12() EndIf EndFunc Func check12() If _IsChecked($DrWeb) then SplashTextOn("","Installation de DrWeb Sécurity Space", 300, 50) RunWait("") SplashOff() MsgBox(64, "SNI - Information", "Installation terminé merci d'avoir utilisé notre logiciel") Else MsgBox(64, "SNI - Information", "Installation terminé merci d'avoir utilisé notre logiciel") EndIf EndFunc ;~ -------------------------------------------------------------------------------------------------------------------------- Fonctions Func _IsChecked($control) Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED EndFunc Func fermer() Exit 0 EndFunc Func SIW() Run("logiciels/SIW.exe") EndFunc Func cureit() Run("logiciels/cureit/DrWeb.exe") Sleep(1000) EndFunc EndSwitch WEnd