Использование VBScript

[Агент Майкрософт не рекомендуется использовать в Windows 7 и может быть недоступен в последующих версиях Windows.]

VBScript — это язык программирования, входящий в состав Microsoft Internet Обозреватель. Для других браузеров обратитесь к поставщику по вопросам поддержки. Для использования с агентом рекомендуется VBScript 2.0 (или более поздней версии). Хотя более ранние версии VBScript могут работать с агентом, в них отсутствуют некоторые функции, которые вы можете использовать. Вы можете скачать VBScript 2.0 и получить дополнительные сведения о VBScript на сайте загрузок Майкрософт и на сайте Microsoft VBScript.

Чтобы программировать Microsoft Agent из VBScript, используйте теги HTML <SCRIPT> . Чтобы получить доступ к интерфейсу программирования, используйте имя элемента управления, назначаемого в <теге OBJECT> , за которым следует подобъект (если таковой есть), имя метода или свойства, а также все параметры или значения, поддерживаемые методом или свойством:

agent[.object].Method parameter, [parameter]
agent[.object].Property = value

Для событий укажите имя элемента управления, за которым следует имя события и все параметры:

Sub agent_event (ByVal parameter[,ByVal parameter])
statements
End Sub

Вы также можете указать обработчик событий с помощью <тега SCRIPT>для... Синтаксис события :

<SCRIPT LANGUAGE=VBScript For=agent Event=event[(parameter[,parameter])]>
statements
</SCRIPT>

Хотя microsoft Internet Обозреватель поддерживает этот последний синтаксис, это делают не все браузеры. Для обеспечения совместимости используйте только предыдущий синтаксис для событий.

С помощью VBScript (2.0 или более поздней версии) можно проверить, установлен ли microsoft Agent, попытавшись создать объект и проверить, существует ли он. В следующем примере показано, как проверка для элемента управления "Агент" без активации автоматического скачивания элемента управления (как и при добавлении тега <OBJECT> для элемента управления на странице):

<!-- WARNING - This code requires VBScript 2.0.
It will always fail to detect the Agent control
in VbScript 1.x, because CreateObject doesn't work.
-->

<SCRIPT LANGUAGE=VBSCRIPT>
If HaveAgent() Then
      'Microsoft Agent control was found.
document.write "<H2 align=center>Found</H2>"
Else
      'Microsoft Agent control was not found.
document.write "<H2 align=center>Not Found</H2>"
End If

Function HaveAgent()
' This procedure attempts to create an Agent Control object.
' If it succeeds, it returns True.
'    This means the control is available on the client.
' If it fails, it returns False.
'    This means the control hasn't been installed on the client.

   Dim agent
   HaveAgent = False
   On Error Resume Next
   Set agent = CreateObject("Agent.Control.1")
   HaveAgent = IsObject(agent)

End Function

</SCRIPT>