Загрузка процессора

[winkot]

Простейший код

While 1
    If WinExists("Блокнот") Then
            MsgBox(4096,"", "Тест")
    EndIf
WEnd

вызвает загрузку процессора на 26% Как это исправить?

 

[sngr]

перед wend поставить sleep(100)