Текст HTML-документа будет следующий:

<HTML>
<HEAD>
<TITLE>Пример обработки событий получения/потери фокуса.</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Window_OnFocus()
    'Процедура выполняется при получении фокуса.
     Alert "Ура! Приложение активно!"
End Sub
Sub Window_OnBlur()
    'Процедура выполняется при потере фокуса.
     Alert "Жаль, что вы переключились на _
другое приложение."
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY>
<H2>Использование обработчиков получения/потери фокуса.</H2>
Переключитесь на другое приложение, а потом опять вернитесь к этому приложению.
</BODY>
</HTML>

Текст этой программы можно взять здесь.

Пример обработки событий получения/потери фокуса изображен на рисунке 1.

Рис.1. Пример обработки событий получения/потери фокуса