AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
    Global $GUI = GUICreate("Zonic", 262, 216, 192, 124)
    Global $GroupeChoix = GUICtrlCreateGroup("Choix", 8, 8, 241, 193)
    Global $vnc = GUICtrlCreateCheckbox("VNC Server", 24, 32, 81, 17)
    Global $outil_pdf = GUICtrlCreateCheckbox("Outils PDF", 24, 56, 73, 17)
    Global $autocad = GUICtrlCreateCheckbox("Viewer Autocad 2011 ", 24, 80, 121, 17)
    Global $citrix = GUICtrlCreateCheckbox("Citrix", 24, 104, 49, 17)
    Global $office = GUICtrlCreateCheckbox("Office", 24, 128, 57, 17)
    Global $project = GUICtrlCreateCheckbox("Project", 24, 152, 57, 17)
    Global $ocs = GUICtrlCreateCheckbox("Ocs Inv", 24, 176, 57, 17)
    Global $finchoix = GUICtrlCreateButton("Fin choix", 160, 16, 81, 25, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $finchoix
            Local $str=@CRLF
            If GUICtrlRead($vnc)=$GUI_CHECKED Then $str&="- VNC"&@CRLF
            If GUICtrlRead($outil_pdf)=$GUI_CHECKED Then $str&="- OUTIL PDF"&@CRLF
            If GUICtrlRead($autocad )=$GUI_CHECKED Then $str&="- AUTO CAD"&@CRLF
            If GUICtrlRead($citrix)=$GUI_CHECKED Then $str&="- CITRIX"&@CRLF
            If GUICtrlRead($office)=$GUI_CHECKED Then $str&="- OFFICE"&@CRLF
            If GUICtrlRead($project)=$GUI_CHECKED Then $str&="- PROJECT"&@CRLF
            If GUICtrlRead($ocs)=$GUI_CHECKED Then $str&="- OCS"
            MsgBox(0,"a implémenter ...","les installations choisies:"&$str)
    EndSwitch
WEnd

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.6.0
 Auteur:         MonNom

 Fonction du Script :
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("WinTitleMatchMode", 2)
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("test", 142, 94, 192, 124)
Global $Group1 = GUICtrlCreateGroup("test", 16, 0, 73, 89)
Global $Checkbox1 = GUICtrlCreateCheckbox("Paint", 24, 16, 65, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("Google", 24, 40, 65, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("System", 24, 64, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("OK", 96, 8, 41, 81, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
                If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then
                    _DoPaint()
                    Sleep(500)
                EndIf
                If GUICtrlRead($Checkbox2)=$GUI_CHECKED Then
                    _DoGoogle()
                    Sleep(500)
                EndIf
                If GUICtrlRead($Checkbox3)=$GUI_CHECKED Then
                    _DoSystem()
                    Sleep(500)
                EndIf
    EndSwitch
WEnd

Func _DoPaint()
    TrayTip("Paint","Paint s'ouvrira dans 5 secondes",1000)
    Sleep(3000)
    ShellExecute(@SystemDir&"\mspaint.exe")
    Do
        Sleep(50)
    Until WinExists("Paint")
    If Not WinActive('Paint') Then WinActivate('Paint')
    TrayTip("Paint","paint est activé on va maintenant le fermer :P",1000)
    Sleep(1500)
    WinClose("Paint")
EndFunc

Func _DoGoogle()
    TrayTip("Google","Google s'ouvrira dans 5 secondes",1000)
    ShellExecute("www.google.be")
    Do
        Sleep(50)
    Until WinExists("Google")
    If Not WinActive("Google") Then WinActivate("Google")
    TrayTip("Google","google est activé on va maintenant le fermer :P",1000)
    Sleep(1500)
    WinClose("Google")
EndFunc

Func _DoSystem()
    MsgBox(0,'',@OSArch&" | "&@OSBuild&" | "&@OSServicePack&" | "&@OSVersion&@CRLF& _
    @OSType&" | "&@OSLang)
EndFunc