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.

 
#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
 
 

Outils personnels