[Microsoft 에이전트는 Windows 7을 기준으로 더 이상 사용되지 않으며 이후 버전의 Windows에서는 사용할 수 없습니다.]
VBScript는 Microsoft 인터넷 Explorer 포함된 프로그래밍 언어입니다. 다른 브라우저의 경우 공급업체에 지원에 문의하세요. VBScript 2.0 이상은 에이전트와 함께 사용하는 것이 좋습니다. 이전 버전의 VBScript는 에이전트에서 작동할 수 있지만 사용하려는 특정 함수가 부족합니다. VBScript 2.0을 다운로드하고 Microsoft 다운로드 사이트 및 Microsoft VBScript 사이트에서 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 인터넷 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>