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: » menu
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.4.9 Author: SurPriseS Script Function: Menu package auto. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #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 GUICtrlCreateGroup("Pack Bureautique", 10, 10, 150, 220) $check1 = GUICtrlCreateCheckbox ("Firefox", 20, 25, 120, 20) $check2 = GUICtrlCreateCheckbox ("ThunderBird", 20, 45, 120, 20) $check3 = GUICtrlCreateCheckbox ("******", 20, 65, 120, 20) $check4 = GUICtrlCreateCheckbox ("******", 20, 85, 120, 20) $check5 = GUICtrlCreateCheckbox ("******", 20, 105, 120, 20) $check6 = GUICtrlCreateCheckbox ("******", 20, 125, 120, 20) $check7 = GUICtrlCreateCheckbox ("******", 20, 145, 120, 20) $check8 = GUICtrlCreateCheckbox ("******", 20, 165, 120, 20) $check9 = GUICtrlCreateCheckbox ("******", 20, 185, 120, 20) $check10 = GUICtrlCreateCheckbox ("******", 20, 205, 120, 20) GUICtrlCreateGroup("Pack Securite", 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) GUICtrlCreateGroup("Drivers", 170, 130, 150, 100) $check15 = GUICtrlCreateLabel("Nvidia", 180, 145, 120, 20) GuiCtrlSetFont($check15, 9, 400, 4);underline GuiCtrlSetColor($check15, 0x0000FF) $check16 = GUICtrlCreateLabel("Ati", 180, 165, 120, 20) GuiCtrlSetFont($check16, 9, 400, 4);underline GuiCtrlSetColor($check16, 0x0000FF) $check17 = GUICtrlCreateLabel("Hitman Pro", 180, 185, 120, 20) GuiCtrlSetFont($check17, 9, 400, 4);underline GuiCtrlSetColor($check17, 0x0000FF) $check18 = GUICtrlCreatelabel ("******", 180, 205, 120, 20) GUICtrlCreateGroup("Pack Personnalisation", 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) GUICtrlCreateGroup("Pack Basique", 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 ;---------------------Drivers ;nvidia Case $msg = $check15 _ShellEx('http://www.nvidia.fr/page/drivers.html') ;ati Case $msg = $check16 _ShellEx('http://ati.amd.com/support/driver.html') ;Hitman pro Case $msg = $check17 _ShellEx('http://hitmanpro1.dyndns.org/strider2/link.aspx?name=download') ;--------------------- Bouton install Case $msg = $button_1 ;---------------------Pack sécurité ; Avg If BitAnd(GuiCtrlRead( $check11),$GUI_CHECKED) Then MsgBox(32,"AVG","test") EndIf ;---------------------Pack personalisation ;Pcperso If BitAnd(GuiCtrlRead( $check19),$GUI_CHECKED) Then MsgBox(32,"pcperso","test") EndIf ;---------------------pack basique ;7zip If BitAnd(GuiCtrlRead( $check23),$GUI_CHECKED) Then $fichier = "7zip.zip" download($fichier) unzip($fichier) EndIf ;acrobat reader 8 If BitAnd(GuiCtrlRead( $check24),$GUI_CHECKED) Then $fichier = "acrobat_reader.zip" download($fichier) unzip($fichier) EndIf ;---------------------pack bureautique EndSelect Wend ;-------------------------------------------------FONCTION : ;-------------------------Download : Func download($fichier) if FileExists($fichier) then FileDelete($fichier) $proto = "ftp" $ip = "192.168.0.100" $chemin = "/stock1/package_auto_4/" $url = $proto & "://" & $ip & $chemin & $fichier $cmd = "wget.exe " & $url $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 = "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) EndFunc ;-------------------------_ShellEx : Func _ShellEx($sCmd) DllCall("shell32.dll", "long", "ShellExecute", "hwnd", 0, "string", '', "string", $sCmd, "string", '', "string", '', "long", @SW_SHOWNORMAL) EndFunc ;==>_ShellEx