Код:

#NoTrayIcon
TraySetIcon(@ProgramFilesDir & "\JetAudio\JetAudio.exe",452) ;Присвоюю значок JetAudio
Global $letter
Switch @WDAY
    Case 1
        $week = "Неділя"
    Case 2
        $week = "Понеділок"
    Case 3
        $week = "Вівторок"
    Case 4
        $week = "Середа"
    Case 5
        $Week = "Четвер"
    Case 6
        $week = "П'ятниця"
    Case 7
        $week = "Субота"
EndSwitch
;~ 
;Заборона запуска музики в Суботу і Неділю
If @WDAY=7 Or @WDAY=1 Then ;7 - Субота 1-Неділя
Sleep(30000)
    Shutdown(9)
Else
Run(@ProgramFilesDir & "\JetAudio\JetAudio.exe", "", @SW_HIDE);Запускаю програму
Sleep(30000)
Send("{MEDIA_PLAY_PAUSE}")
While 1
Global $time = @HOUR*60+@MIN
;~ Запуск регулятора гучності           
;На пару
    $TimeShow = @HOUR & ':' & @MIN & ':' & @SEC
    Switch $time
        Case 7*60+59  To 8*60+14
                $letter="Запуск" 
        Case 8*60+15  To 9*60+34, 9*60+45  To 11*60+04, 11*60+25  To 12*60+44, 12*60+50  To 14*60+09, 14*60+15  To 15*60+34, 15*60+55  To 17*60+14, 17*60+20  To 18*60+39, 18*60+45  To 20*60+04
;~      Case 18*60+45 To 18*60+59 ;тест
                $letter = 'Пара'
            If @OSVersion="WIN_XP" Then ;Перевірка запущеної Ос
                SoundSetWaveVolume(40)
            ElseIf @OSVersion="WIN_7" Then ;Перевірка запущеної Ос
                $letter = $letter & ' (В стадії розробки для Windows 7)'
            EndIf
;На перерву    
        Case 9*60+35 To 9*60+44, 11*60+05 To 11*60+25, 12*60+45 To 12*60+49, 12*60+45 To 12*60+49, 14*60+10 To 14*60+14,  15*60+35 To 15*60+54, 17*60+15 To 17*60+19, 18*60+40 To 18*60+44, 20*60+05 To 20*60+14
;~      Case 19*60+00 To 19*60+30 ;тест
                $letter = 'Перерва'
            If @OSVersion="WIN_XP" Then ;Перевірка запущеної Ос
                SoundSetWaveVolume(100)
            ElseIf @OSVersion="WIN_7" Then ;Перевірка запущеної Ос
                $letter = $letter & ' (В стадії розробки для Windows 7)'
            EndIf
;Примусове виключення компютера в 20:15    
        Case 20*60+15
                Shutdown(9)
        Case Else
            $letter = 'Проблема'
            Beep(500,100)
            Sleep(500)
            Beep(500,100)
    EndSwitch

                ToolTip($letter &' '& $TimeShow &" "& $week) ;Вивід інформації під курсором
                Sleep(20);Затримка 20мс для розгрузки проца
WEnd
EndIf