[nibble74]

Так я не силён в написании скриптов, поэтому и просил помощи.
К сожалению, при запуске скрипта повышается нагрузка на процессор, до 50% грузится, что не есть гуд.
Как так, что может так нагружать ?

Подсказали ещё с одним вариантом, но не пойму как вписывать названия окон.

Код:

Global $all_windows

While 1
    $all_windows = WinList()

    For $i = 1 to $all_windows[0][0]

        If WinActive($all_windows[$i][1]) Then
            $iState = WinGetState("[ACTIVE]", "")

            If BitAND($iState, 32) Then
                Send("^!{h}")
                SoundPlay(@WindowsDir & "\media\Windows Exclamation.wav")

                Do
                    Sleep(100)
                Until WinWaitClose($all_windows[$i][1])
                Send("^!{h}")
                SoundPlay(@WindowsDir & "\media\Windows Notify.wav")
            EndIf
        EndIf
    Next
WEnd