AutoIt Français

Code : Tout sélectionner

#include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$MainGUI = GUICreate("Skinner Tool ", 500, 300, -1, -1)
$Tools = GUICtrlCreateButton("Tools", 430, 30, 60, 30, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -166, 0)
GUISetState()

;Gui Tools
$ToolsGUI = GUICreate("", 82, 150, 410, 60,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_CLIPSIBLINGS),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$KeyCode  = GUICtrlCreateButton("Key Code", 2, 1, 80, 25, $BS_ICON)
GUISetState(@SW_HIDE,$ToolsGUI)
$ToolsGUIStatus = False

;Gui Key Code
$KeyCodeGUI = GUICreate("",100,70,505,-25,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_CLIPSIBLINGS,$WS_MINIMIZEBOX),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$KeyCodeLabel = GUICtrlCreateLabel("Key Code :",5,5,100,30)
GUISetState(@SW_HIDE,$KeyCodeGUI )
$KeyCodeGUIStatus = False

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Tools
            GUISwitch($ToolsGUI)
            if $ToolsGUIStatus = true Then
                GUISetState(@SW_HIDE,$ToolsGUI)
                $ToolsGUIStatus = False
            Else
                GUISetState(@SW_SHOW,$ToolsGUI)
                $ToolsGUIStatus = True
            EndIf

;Key Code
        Case $KeyCode
            GUISwitch($KeyCodeGUI)
            if $KeyCodeGUIStatus = true Then
                GUISetState(@SW_HIDE,$KeyCodeGUI)
                $KeyCodeGUIStatus = False
            Else
                GUISetState(@SW_SHOW,$KeyCodeGUI)
                While 1
                    sleep(100)
                    For $i = 1 to 255
                        If _IsPressed($i,'user32.dll') Then
                        GUICtrlSetData($KeyCodeLabel,asc($i))
                        EndIf
                    Next
                Wend
            EndIf

    EndSwitch

Wend