Menggunakan VBScript

[Microsoft Agent tidak digunakan lagi pada Windows 7, dan mungkin tidak tersedia dalam versi Windows berikutnya.]

VBScript adalah bahasa pemrograman yang disertakan dengan Microsoft Internet Explorer. Untuk browser lain, hubungi vendor Anda tentang dukungan. VBScript 2.0 (atau yang lebih baru) direkomendasikan untuk digunakan dengan Agen. Meskipun versi VBScript yang lebih lama dapat berfungsi dengan Agen, mereka tidak memiliki fungsi tertentu yang mungkin ingin Anda gunakan. Anda dapat mengunduh VBScript 2.0 dan mendapatkan informasi lebih lanjut tentang VBScript di situs Unduhan Microsoft dan situs Microsoft VBScript.

Untuk memprogram Agen Microsoft dari VBScript, gunakan tag SKRIP> HTML<. Untuk mengakses antarmuka pemrograman, gunakan nama kontrol yang Anda tetapkan di <tag OBJECT> , diikuti dengan subobject (jika ada), nama metode atau properti, dan parameter atau nilai apa pun yang didukung oleh metode atau properti:

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

Untuk peristiwa, sertakan nama kontrol diikuti dengan nama peristiwa dan parameter apa pun:

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

Anda juga dapat menentukan penanganan aktivitas menggunakan <tag SKRIP>Untuk... Sintaks peristiwa :

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

Meskipun Microsoft Internet Explorer mendukung sintaks terakhir ini, tidak semua browser melakukannya. Untuk kompatibilitas, gunakan hanya sintaks sebelumnya untuk peristiwa.

Dengan VBScript (2.0 atau yang lebih baru), Anda dapat memverifikasi apakah Microsoft Agent diinstal dengan mencoba membuat objek dan memeriksa apakah ada. Contoh berikut menunjukkan cara memeriksa kontrol Agen tanpa memicu pengunduhan otomatis kontrol (seperti yang <akan terjadi jika Anda menyertakan tag OBJECT> untuk kontrol di halaman):

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