使用 VBScript

2023-06-13

[从 Windows 7 开始，Microsoft 代理已弃用，可能在后续版本的 Windows 中不可用。]

VBScript 是 Microsoft Internet Explorer 随附的一种编程语言。对于其他浏览器，请与供应商联系以获取支持。建议将 VBScript 2.0 (或更高版本) 与代理一起使用。尽管早期版本的 VBScript 可能适用于代理，但它们缺少你可能要使用的某些函数。可以在 Microsoft 下载站点和 Microsoft VBScript 站点下载 VBScript 2.0 并获取有关 VBScript 的详细信息。

若要从 VBScript 对 Microsoft 代理进行编程，请使用 HTML <SCRIPT> 标记。若要访问编程接口，请使用在 OBJECT> 标记中<分配的控件的名称，后跟子对象 (（如果有任何) ），使用方法或属性的名称，以及方法或属性支持的任何参数或值：

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

对于事件，请包括控件的名称，后跟事件的名称和任何参数：

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

还可以使用 <SCRIPT> 标记的 For... 指定事件处理程序。事件 语法：

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

尽管 Microsoft Internet Explorer 支持后一种语法，但并非所有浏览器都支持。为了兼容，请仅对事件使用以前的语法。

使用 VBScript (2.0 或更高版本) ，可以通过尝试创建对象并检查它是否存在来验证 Microsoft 代理是否已安装。以下示例演示了如何在不触发 (控件自动下载控件的情况下为代理控件检查，就像在页面上) 中包含<控件的 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>

通过

使用 VBScript

反馈

其他资源