AutoIt Français

Code : Tout sélectionner

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

;~ Par défaut dans AutoIt "ESC" correspond au clic sur la croix de fermeture de la gui
;~ Le comportement est différent si la hotkey est posée pour quitter le script :
HotKeySet("{ESC}", "_exit")

Opt("GuiOnEventMode", 1)

GUICreate("My GUI") 
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$btn = GUICtrlCreateButton("stop", 10, 50, 50, 20)
GUICtrlSetOnEvent(-1, "_btn")
$label = GUICtrlCreateLabel("0", 100, 50, 20, 20)
GUISetState() 
 
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
GUIRegisterMsg($WM_SYSCOMMAND, "_WM_SYSCOMMAND")  

Local $aAccelKeys[1][2] = [["{SPACE}", $btn]]
GUISetAccelerators($aAccelKeys)

Global $stop = 0, $close = 0

While 1
   If $stop <> 0 Then Exitloop
   If $close <> 0 Then Exit
   Sleep(300)
   GuiCtrlSetData($label, GuiCtrlRead($label)+1)
Wend
Msgbox(64,"", "stopped")

Opt("GuiOnEventMode", 0)
While 1
   Switch GuiGetMsg() 
       Case $GUI_EVENT_CLOSE 
             $close = 4
             Msgbox(64, $close, "close GuiGetMsg")
       Case  $btn
             Msgbox(64, "", "bouton GuiGetMsg")
   EndSwitch
   If $close <> 0 Then Exit
   Sleep(10)
Wend
;=========================================

;~ fonction appelée par eventmode (bouton)
Func _btn()
    $stop = 1
    Msgbox(64, $stop, "bouton on event")
EndFunc

;~ fonction appelée par eventmode (croix)
Func _close()
    $close = 1
    Msgbox(64, $close, "close on event")
EndFunc

;~ interception du message Windows (bouton)
Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
 #forceref $hWnd, $Msg, $lParam
   If BitAND($wParam, 0xFFFF) = $btn Then
        $stop = 2
        Msgbox(64, $stop, "bouton wm_command")
   EndIf
  Return 'GUI_RUNDEFMSG'
EndFunc  

;~ interception du message Windows (croix)
Func _WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
 #forceref $hWnd, $Msg, $lParam
    If BitAND($wParam, 0xFFF0) = 0xF060 Then   ; 0xF060 = $SC_CLOSE
       $close = 2
       Msgbox(64, $close, "close wm_syscommand") 
    EndIf
EndFunc

;~ fonction appelée par HotKeySet ESC
Func _exit()
    $close = 3
    Msgbox(64, $close, "close hotkey") 
EndFunc