Статья: Связка ActiveX - Internet Explorer

-->

</SCRIPT>

</HEAD>

<SCRIPT LANGUAGE="VBScript">

<!--

Sub findword1_OnWantDir()

findword1.page_location = location.href

{Получить текущий каталог, т.е. свойству page_location объекта присвоить местоположение нашей странички}

end sub

Sub findword1_OnDocClick()

{При возникновении события OnDocClick вызвать процедуру Procedure1 (открыть файл для просмотра)}

call Procedure1()

end sub

-->

</SCRIPT>

<p align = "center">

<OBJECT ID="findword1"

CLASSID="CLSID:47E50425-E611-11D3-970A-4854E82B17E6"

CODEBASE="findwords.ocx">

{Здесь просто имя файла без пути. Explorer зарегистрирует компонент невидимо для пользователя, взяв его из текущеего каталога (страничка и файл OCX находятся в одном каталоге)}

<PARAM NAME="Visible" VALUE="-1">

<PARAM NAME="AutoScroll" VALUE="0">

<PARAM NAME="AutoSize" VALUE="0">

<PARAM NAME="AxBorderStyle" VALUE="1">

<PARAM NAME="Caption" VALUE="findword">

<PARAM NAME="Color" VALUE="2147483663">

<PARAM NAME="Font" VALUE="MS Sans Serif">

<PARAM NAME="KeyPreview" VALUE="0">

<PARAM NAME="PixelsPerInch" VALUE="96">