загрузка ЦП

[bebus]

Что я пытаюсь выполнить?
простецкий скрипт(насколько я понимаю, а понимаю я не очень) на проверку активности открытого приложения

Спойлер

$count = 0

While 1
If WinExists("Untitled document - ABBYY FineReader 10 Corporate Edition") Then
If Not(WinActive("Untitled document - ABBYY FineReader 10 Corporate Edition")) Then
$count = $count + 1
Sleep(1000)
If $count = 5 Then
MsgBox(0, "Алярма!", "Приложение будет закрыто через 5 секунд", 3)
ElseIf $count > 10 Then
WinClose("Untitled document - ABBYY FineReader 10 Corporate Edition")
$count = 0
EndIf
EndIf
EndIf
WEnd

Как я это пытался/ась выполнить?
сваяли мне его спецы с данного ресурса

Что я ожидаю от выполненных действии?
по сути происходит то, что ожидается
загрузку ЦП нужно минимизировать
как это сделать?

Что происходит на самом деле?
но при выполнении скрипта загрузка ЦП доходит до 100%

 

[sngr]

Выше WEnd пишешь sleep(100)