Compartilhar via

Usando O VBScript

  • Artigo

[O Microsoft Agent foi preterido a partir do Windows 7 e pode estar indisponível nas versões subsequentes do Windows.]

O VBScript é uma linguagem de programação incluída no Microsoft Internet Explorer. Para outros navegadores, entre em contato com seu fornecedor sobre o suporte. O VBScript 2.0 (ou posterior) é recomendado para uso com o Agent. Embora versões anteriores do VBScript possam funcionar com o Agent, elas não têm determinadas funções que talvez você queira usar. Você pode baixar o VBScript 2.0 e obter mais informações sobre o VBScript no site downloads da Microsoft e no site do Microsoft VBScript.

Para programar o Microsoft Agent do VBScript, use as marcas DE SCRIPT> HTML<. Para acessar a interface de programação, use o nome do controle que você atribui na <marca OBJECT> , seguido pelo subobjeto (se houver), o nome do método ou propriedade e quaisquer parâmetros ou valores com suporte pelo método ou propriedade:

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

Para eventos, inclua o nome do controle seguido pelo nome do evento e todos os parâmetros:

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

Você também pode especificar um manipulador de eventos usando a <marca SCRIPT>for... Sintaxe de evento :

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

Embora o Microsoft Internet Explorer dê suporte a esta última sintaxe, nem todos os navegadores dão suporte. Para compatibilidade, use apenas a sintaxe anterior para eventos.

Com o VBScript (2.0 ou posterior), você pode verificar se o Microsoft Agent está instalado tentando criar o objeto e verificando se ele existe. O exemplo a seguir demonstra como marcar para o controle Agent sem disparar um download automático do controle (como aconteceria se você incluísse uma <marca OBJECT> para o controle na página):

<!-- 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>