Отображение Sleep ,визуально

Global $k=0
$Gui = GUICreate("Нажми Start", 370, 140, -1, -1, 0x00040000+0x00020000)
GUICtrlCreateLabel('Изменить, текущий 300 мсек.', 5, 5, 360, 60)
$Start = GUICtrlCreateButton('Start', 10, 70, 70, 25)
$Stop = GUICtrlCreateButton('Stop', 90, 70, 70, 25)

GUISetState()

While 1
   $msg = GUIGetMsg()
   Select
       Case $msg = $Start 
           _Start()
       Case $msg = $Stop
           _Stop()
       Case $msg = -3
           Exit
   EndSelect
WEnd

Func _Start()
	GUIRegisterMsg(0x0113, "WM_TIMER")
	DllCall("User32.dll", "int", "SetTimer", "hwnd", $Gui, "int", 50, "int", 300, "int", 0) ; здесь 300 - установка интервала вызова WM_TIMER
EndFunc

Func _Stop()
	GUIRegisterMsg(0x0113, '')
    DllCall("user32.dll", "int", "KillTimer", "hwnd", $Gui, "int*", 50)
EndFunc

Func WM_TIMER()
	$k+=1
	WinSetTitle($Gui, '', 'Вызов ' &$k& ' раз')
EndFunc

Global $k=0, $p=6000
$Gui = GUICreate("Нажми Start", 370, 140, -1, -1, 0x00040000+0x00020000)
GUICtrlCreateLabel('Изменить, текущий 300 мсек.', 5, 5, 360, 60)
$Start = GUICtrlCreateButton('Start', 10, 70, 70, 25)
$Stop = GUICtrlCreateButton('Stop', 90, 70, 70, 25)

GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $Start
            $p=InputBox('Title', 'Введите паузу', $p, '', 170, 150)
            If $p < 6000 Then $p = 6000
			WinSetTitle($Gui, '', 'sleep ' &Int($p/6000) & '*6000')
            _Start()
        Case $Stop
            _Stop()
        Case -3
             Exit
    EndSwitch
WEnd

Func _Start()
    GUIRegisterMsg(0x0113, "WM_TIMER")
    DllCall("User32.dll", "int", "SetTimer", "hwnd", $Gui, "int", 50, "int", $p, "int", 0) ; здесь $p - установка интервала вызова WM_TIMER
EndFunc

Func _Stop()
    GUIRegisterMsg(0x0113, '')
    DllCall("user32.dll", "int", "KillTimer", "hwnd", $Gui, "int*", 50)
EndFunc

Func WM_TIMER()
    $k+=1
    WinSetTitle($Gui, '', 'sleep ' &Int($p/6000) & '*6000')
EndFunc

TrayTip