#Include <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <Timers.au3>
Global $hGUI = GUICreate('Timers - WM_TIMER', 270, 110)
Global $lb1 = GUICtrlCreateLabel('Label1', 30, 30, 200, 15)
Global $lb2 = GUICtrlCreateLabel('Label2', 30, 60, 200, 15)
GUISetState()
GUIRegisterMsg($WM_TIMER, 'WM_TIMER')
Global $Timer1 = _Timer_SetTimer($hGUI, 1500) ; Таймер времени 1
Global $Timer2 = _Timer_SetTimer($hGUI, 600) ; Таймер времени 2
Do
Until GUIGetMsg() = -3
Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam) ; Событие таймера
#forceref $hWnd, $iMsg, $ilParam
Switch _Timer_GetTimerID($iwParam)
Case $Timer1
Label1_SetData()
;MsgBox(0, 'WM_TIMER', 'Событие Timer1', 1)
Case $Timer2
Label2_SetData()
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func Label1_SetData()
If GUICtrlRead($lb1) = 'Label1' Then
GUICtrlSetData($lb1, 'Label1 - Управляется таймером Timer1')
Else
GUICtrlSetData($lb1, 'Label1')
EndIf
EndFunc
Func Label2_SetData()
If GUICtrlRead($lb2) = 'Label2' Then
GUICtrlSetData($lb2, 'Label2 - Управляется таймером Timer2')
Else
GUICtrlSetData($lb2, 'Label2')
EndIf
EndFunc