Använda VBScript

[Microsoft Agent är inaktuell från och med Windows 7 och kan vara otillgänglig i efterföljande versioner av Windows.]

VBScript är ett programmeringsspråk som ingår i Microsoft Internet Explorer. Kontakta leverantören om support för andra webbläsare. VBScript 2.0 (eller senare) rekommenderas för användning med Agent. Även om tidigare versioner av VBScript kan fungera med Agent, saknar de vissa funktioner som du kanske vill använda. Du kan ladda ned VBScript 2.0 och få ytterligare information om VBScript på webbplatsen Microsoft Downloads och Microsoft VBScript-webbplatsen.

Om du vill programmera Microsoft Agent från VBScript använder du taggarna HTML <SCRIPT>. För att få åtkomst till programmeringsgränssnittet använder du namnet på kontrollen som du tilldelar i taggen <OBJECT> följt av underobjektet (om någon), namnet på metoden eller egenskapen och eventuella parametrar eller värden som stöds av metoden eller egenskapen:

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

För händelser inkluderar du namnet på kontrollen följt av namnet på händelsen och eventuella parametrar:

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

Du kan också ange en händelsehanterare med hjälp av <SCRIPT>-taggens För...Händelse-syntax:

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

Även om Microsoft Internet Explorer stöder den här senare syntaxen gör inte alla webbläsare det. För kompatibilitet använder du endast den tidigare syntaxen för händelser.

Med VBScript (2.0 eller senare) kan du kontrollera om Microsoft Agent har installerats genom att försöka skapa objektet och kontrollera om det finns. Följande exempel visar hur du söker efter agentkontrollen utan att utlösa en automatisk nedladdning av kontrollen (vilket skulle inträffa om du inkluderade en <OBJECT>-tagg för kontrollen på sidan):

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