All pastes #73963 Raw Edit

Stuff

public text v1 · immutable
#73963 ·published 2006-06-28 14:08 UTC
rendered paste body
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;	Template AutoIt script.
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here


#include <GuiConstants.au3>

GuiCreate("Choix d'installation logiciels", 392, 316,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))


; création des cases
$Checkbox_1 = GuiCtrlCreateCheckbox("7 Zip", 30, 30, 130, 20)
$Checkbox_2 = GuiCtrlCreateCheckbox("Acrobat Reader 7", 30, 50, 140, 20)
$Checkbox_3 = GuiCtrlCreateCheckbox("Open Office 2", 30, 70, 150, 20)
$Checkbox_4 = GuiCtrlCreateCheckbox("PDFcreator", 30, 90, 160, 20)
$Checkbox_5 = GuiCtrlCreateCheckbox("Machine Java", 30, 110, 170, 20)


;création des boutons
$Button_6 = GuiCtrlCreateButton("Sélectionner tout", 40, 220, 100, 40)
$Button_7 = GuiCtrlCreateButton("Désélectionner tout", 170, 220, 110, 40)
$Button_8 = GuiCtrlCreateButton("Installer", 40, 270, 100, 40)
$Button_9 = GuiCtrlCreateButton("Quitter", 170, 270, 110, 40)


;cases cochées defaut
GUICtrlSetState($Checkbox_1,$GUI_CHECKED)
;GUICtrlSetState($Checkbox_2,$GUI_CHECKED)

;
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_6 ; coche les cases
        GUICtrlSetState($Checkbox_1,$GUI_CHECKED)
        GUICtrlSetState($Checkbox_2,$GUI_CHECKED)
		GUICtrlSetState($Checkbox_3,$GUI_CHECKED)
        GUICtrlSetState($Checkbox_4,$GUI_CHECKED)
		GUICtrlSetState($Checkbox_5,$GUI_CHECKED)
    Case $msg = $Button_7 ; decoche les cases
        GUICtrlSetState($Checkbox_1,$GUI_UNCHECKED)
        GUICtrlSetState($Checkbox_2,$GUI_UNCHECKED)
		GUICtrlSetState($Checkbox_3,$GUI_UNCHECKED)
        GUICtrlSetState($Checkbox_4,$GUI_UNCHECKED)
		GUICtrlSetState($Checkbox_5,$GUI_UNCHECKED)
	Case $msg = $Button_8 ; lance les installations
		;	Run("7zip\automatisation 7zip.exe")
		;else 
		;	exit
		;	EndIf

	Case $msg = $Button_9 ;quit
		exit
    
	Case Else
   ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---