#include <Timers.au3>
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
Global $y = 0, $Radio1, $Radio2, $StatusBar1
HotKeySet("{F1}", "enter")
HotKeySet("{F2}", "enter_Stop")
$Form = GUICreate("Пример", 200, 100, -1, -1)
$Radio1 = GUICtrlCreateRadio("1", 16, 16, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("2", 16, 46, 65, 17)
$StatusBar1 = _GUICtrlStatusBar_Create($Form)
Dim $StatusBar1_PartsWidth[7] = [200, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Нажмите F1", 0)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Func _UbdateTimer($hWnd, $Msg, $iIDTimer, $dwTime)
If BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then
enter_Stop()
MsgBox(4096, "Info", "Выберите радиокнопку '1'")
Return 0
EndIf
$y += 1
_GUICtrlStatusBar_SetText($StatusBar1, $y, 0)
EndFunc ;==>_UbdateTimer
Func enter()
_Timer_SetTimer($Form, 10, '_UbdateTimer')
EndFunc ;==>enter
Func enter_Stop()
_Timer_KillAllTimers($Form)
EndFunc ;==>enter_Stop