Программа для автоматизации громкости по времени

Почему не работает SoundSetWaveVolume () на ХР. И как сделать это на Win7
копия темы autoit-script.ru
Извините но надо исправить проблему уже сегодня
Код:
#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