[エージェントを表示する]

エージェントを表示して、色んな動作をさせています。
参考ＵＲＬ：http://www.microsoft.com/msagent/

【ソースコード】

[tips0179.vbs]
Option Explicit
On Error Resume Next

Dim objAc           ' エージェントコントロール
Dim objAgent        ' エージェント
Dim objRequestId    ' リクエスト番号

Set objAc = WScript.CreateObject("Agent.Control.1", "Agent_")
If Err.Number = 0 Then
    objAc.Connected = True
    objAc.Characters.Load "Agent"
    Set objAgent = objAc.Characters("Agent")
    If Err.Number = 0 Then
        objAgent.MoveTo 100, 100    ' 表示位置
        objAgent.Show               ' 表示
        objAgent.GestureAt 0, 300   ' 指定座標を指差す
        objAgent.MoveTo 300, 300    ' 移動

        ' 処理中止（考えるのをやめる）
        Set objRequestId = objAgent.Think("えっとー")
        objAgent.Stop(objRequestId)

        objAgent.Speak "ByeBye"     ' 吹き出し表示
        objAgent.Hide               ' 非表示

        ' アニメーションの終了待ち
        WScript.Sleep 10000
    Else
        WScript.Echo "エラー：" & Err.Description
    End If
    objAc.Characters.Unload "Agent"
    objAc.Connected = False
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objAc = Nothing