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.

:autoit:menu1.jpg

#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
 
 
 

Outils personnels