autoit:menu2 - SuSuuu Wiki

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: » blog » syntax » menu2 » aide
Cette page est en lecture seule. Vous pouvez en voir la source mais pas la modifier. Contactez votre administrateur si vous souhaitez l’éditer.
<code autoit>

#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


</code>
Vues

Navigation

Outils personnels

Recherche

Boîte à outils
