AutoIt Français

Code : Tout sélectionner

#include-once

; #INDEX# =======================================================================================================================
; Title .........: ControlPanel.au3
; AutoIt Version : 3.3
; Language ......: Français
; Description ...: Ouvre une partie spécifique du panneau de configuration
; Author(s) .....: TT22
; ===============================================================================================================================

; Valeurs de $flag :
; 0 = Lance le panneau de configuration
; 1 = Programmes et fonctionnalités "appwiz.cpl"
; 2 = Utilitaire de la carte DW WLAN "BCMWLCPL.CPL"
; 3 = Bluetooth "bthprops.cpl"
; 4 = Voisinage immédiat "collab.cpl"
; 5 = Résolution d’écran "desk.cpl"
; 6 = Pare-feu Windows "Firewall.cpl"
; 7 = Gestionnaire de périphériques "hdwwiz.cpl"
; 8 = Propriétés de : Internet "inetcpl.cpl"
; 9 = UNKNOWN_FILE "infocardcpl.cpl"
; 10 = Région et langue "intl.cpl"
; 11 = Agent d'authentification Bluetooth "irprops.cpl"
; 12 = Contrôleurs de jeu "joy.cpl"
; 13 = Propriétés de : Souris "main.cpl"
; 14 = Son "mmsys.cpl"
; 15 = Connexions réseau "ncpa.cpl"
; 16 = Options d’alimentation "powercfg.cpl"
; 17 = Propriétés système "sysdm.cpl"
; 18 = Stylet et fonction tactile "TabletPC.cpl"
; 19 = Telephone et modem "telephon.cpl"
; 20 = Date et heure "timedate.cpl"
; 21 = Centre de maintenance "wscui.cpl"
; 
; Retours :
; 1 en cas de réussite
; 0 en cas d'échec

Func _ControlPanel($flag)
    $EX = 0
    If $flag = 1 Then
        $cpl = "appwiz.cpl"
        $EX = 1
    EndIf
    
    If $flag = 2 Then
        $cpl = "BCMWLCPL.CPL"
        $EX = 1
    EndIf
    
    If $flag = 3 Then
        $cpl = "bthprops.cpl"
        $EX = 1
    EndIf
    
    If $flag = 4 Then
        $cpl = "collab.cpl"
        $EX = 1
    EndIf
    
    If $flag = 5 Then
        $cpl = "desk.cpl"
        $EX = 1
    EndIf
    
    If $flag = 6 Then
        $cpl = "Firewall.cpl"
        $EX = 1
    EndIf
    
    If $flag = 7 Then
        $cpl = "hdwwiz.cpl"
        $EX = 1
    EndIf
    
    If $flag = 8 Then
        $cpl = "inetcpl.cpl"
        $EX = 1
    EndIf
    
    If $flag = 9 Then
        $cpl = "infocardcpl.cpl"
        $EX = 1
    EndIf
    
    If $flag = 10 Then
        $cpl = "intl.cpl"
        $EX = 1
    EndIf
    
    If $flag = 11 Then
        $cpl = "irprops.cpl"
        $EX = 1
    EndIf
    
    If $flag = 12 Then
        $cpl = "joy.cpl"
        $EX = 1
    EndIf
    
    If $flag = 13 Then
        $cpl = "main.cpl"
        $EX = 1
    EndIf
    
    If $flag = 14 Then
        $cpl = "mmsys.cpl"
        $EX = 1
    EndIf
    
    If $flag = 15 Then
        $cpl = "ncpa.cpl"
        $EX = 1
    EndIf
    
    If $flag = 16 Then
        $cpl = "powercfg.cpl"
        $EX = 1
    EndIf
    
    If $flag = 17 Then
        $cpl = "sysdm.cpl"
        $EX = 1
    EndIf
    
    If $flag = 18 Then
        $cpl = "TabletPC.cpl"
        $EX = 1
    EndIf
    
    If $flag = 19 Then
        $cpl = "telephon.cpl"
        $EX = 1
    EndIf
    
    If $flag = 20 Then
        $cpl = "timedate.cpl"
        $EX = 1
    EndIf
    
    If $flag = 21 Then
        $cpl = "wscui.cpl"
        $EX = 1
    EndIf
    
        If $flag = 0 Then
            ShellExecute(@SystemDir&"\control.exe")
            Return 1
            $EX = 1
        EndIf
        
            If $EX = 1 Then
                ShellExecute(@SystemDir&"\control.exe",@SystemDir&"\"&$cpl)
                Return 1
            EndIf
            
                If $EX = 0 Then
                    Return 0
                EndIf
EndFunc

Code : Tout sélectionner

Func _ControlPanel($iFlag = 0)

    Switch $iFlag
        Case 0
            ShellExecute(@SystemDir & "\control.exe")
            Return 1

        Case 1
            $cpl = "appwiz.cpl"

        Case 2
            $cpl = "BCMWLCPL.CPL"

        Case 3
            $cpl = "bthprops.cpl"

        Case 4
            $cpl = "collab.cpl"

        Case 5
            $cpl = "desk.cpl"

        Case 6
            $cpl = "Firewall.cpl"

        Case 7
            $cpl = "hdwwiz.cpl"

        Case 8
            $cpl = "inetcpl.cpl"

        Case 9
            $cpl = "infocardcpl.cpl"

        Case 10
            $cpl = "intl.cpl"

        Case 11
            $cpl = "irprops.cpl"

        Case 12
            $cpl = "joy.cpl"

        Case 13
            $cpl = "main.cpl"

        Case 14
            $cpl = "mmsys.cpl"

        Case 15
            $cpl = "ncpa.cpl"

        Case 16
            $cpl = "powercfg.cpl"

        Case 17
            $cpl = "sysdm.cpl"

        Case 18
            $cpl = "TabletPC.cpl"

        Case 19
            $cpl = "telephon.cpl"

        Case 20
            $cpl = "timedate.cpl"

        Case 21
            $cpl = "wscui.cpl"

        Case Else
            Return 0

    EndSwitch

    If ShellExecute(@SystemDir & "\control.exe", @SystemDir & "\" & $cpl) Then
        Return 1
    Else
        Return 0
    EndIf

EndFunc   ;==>_ControlPanel

Code : Tout sélectionner

Func _ControlPanel($iFlag = 0)
    Local $aCPL[23] = ["", "appwiz.cpl", "BCMWLCPL.CPL", "bthprops.cpl", "collab.cpl", "desk.cpl", "Firewall.cpl", "hdwwiz.cpl", "inetcpl.cpl", "infocardcpl.cpl", "intl.cpl", "irprops.cpl", "joy.cpl", "main.cpl", "mmsys.cpl", "ncpa.cpl", "powercfg.cpl", "sysdm.cpl", "TabletPC.cpl", "telephon.cpl", "timedate.cpl", "wscui.cpl"]

    Local $szPath
    If $iFlag > 0 And $iFlag <= UBound($aCPL) Then
        $szPath = @SystemDir & "\" & $aCPL[$iFlag]
    ElseIf $iFlag = 0 Then
        $szPath = ""
    Else
        Return 0
    EndIf

    If ShellExecute(@SystemDir & "\control.exe", $szPath) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>_ControlPanel