Microsoft Agent 控 件 比Office 中 的 助 手 更 進(jìn) 了 一 步， 它 提 供 的 動(dòng) 畫 人 物 不 僅 有 生 動(dòng)、 有 趣 的 動(dòng) 作， 而 且 還 能 通 過 聲 卡、 麥 克 風(fēng) 與 用 戶 進(jìn) 行 交 談， 這 些 功 能 使 計(jì) 算 機(jī) 更 具 人 性 魅 力， 其 應(yīng) 用 前 途 相 當(dāng) 廣 泛。Microsoft Agent 控 件 的 內(nèi) 部 機(jī) 制 很 復(fù) 雜， 但 用VB 來 操 縱 它 卻 是 異 乎 尋 常 的 方 便， 本 文 將 介 紹VB 6.0 調(diào) 用Microsoft Agent 控 件 的 基 本 方 法。

1. 安 裝Microsoft Agent 控 件
　　 (1) 首 先 要 安 裝Microsoft Agent 的 核 心 組 件 msagent.exe
　　 (2) 接 著 要 安 裝Lernout & Hauspie TruVoice Text-to-Speech Engine( 完 成 從 文 字 合 成 語 音 的 工 作) cgram.exe。
　　 (3) 最 后 要 安 裝 Microsoft Command and Control Speech Engine( 提 供 語 音 識(shí) 別 功 能) Actcnc.exe。
　　 (4) 另 外 還 需 要Agnet 動(dòng) 畫 人 物 數(shù) 據(jù) 文 件， 在 本 文 中 使 用 了Genie.acs、Robby.acs 兩 個(gè) 文 件。
　　 上 述 文 件 均 可 從 http://www.microsoft.com/workshop/prog/agent 下 載。
2. Microsoft Agent 控 件 的 初 始 化
　　 先 把Microsoft Agent 控 件 添 加 到VB 的 控 制 工 具 條 上， 并 在 用 戶 的Form 上 繪 制 該 控 件( 在 下 述 例 子 中， 其Name 屬 性 設(shè) 為MyAgent)。 下 面 的 代 碼 調(diào) 用IAgentCtlCharacters::Load() 方 法 裝 入 一 個(gè) 動(dòng) 畫 人 物 的 數(shù) 據(jù)， 調(diào) 用IAgentCtlCharacter::Show()/Hide() 方 法 來 顯 示/ 隱 藏 動(dòng) 畫 人 物。
Const DATAPATH = "c:\"
Dim Genie As IAgentCtlCharacter
Dim Robby As IAgentCtlCharacter
Dim GenieRequest1, GenieRequest2 As IAgentCtlRequest
Dim RobbyRequest1 As IAgentCtlRequest

Private Sub Form_Load()
    ' 裝 入 動(dòng) 畫 人 物 數(shù) 據(jù)， 其 中 第 一 個(gè) 參 數(shù) 為CharacterID
    MyAgent.Characters.Load "Genie", DATAPATH & "Genie.acs"
    MyAgent.Characters.Load "Robby", DATAPATH & "Robby.acs"
    ' 獲 取 與CharacterID 相 對(duì) 應(yīng) 的IAgentCtlCharacter 變 量
    Set Genie = MyAgent.Characters("Genie")
    Set Robby = MyAgent.Characters("Robby")

    ' 顯 示/ 隱 藏 動(dòng) 畫 人 物
    Genie.Show
    Genie.Hide
End Sub
3. Microsoft Agent 控 件 的 動(dòng) 畫 編 程
　　 每 個(gè) 動(dòng) 畫 人 物 都 有 自 己 特 定 的 動(dòng) 作， 例 如Genie 有 聽、 看、 讀、 寫、 發(fā) 怒、 感 謝 等 數(shù) 十 種 動(dòng) 畫 形 態(tài)。 可 以 調(diào) 用IAgentCtlCharacter::play() 方 法 來 設(shè) 置 動(dòng) 畫 動(dòng) 作。 為 了 在 多 個(gè) 動(dòng) 畫 人 物 之 間 協(xié) 調(diào) 它 們 的 動(dòng) 作， 比 如 讓Robby 等 待Genie 的 某 個(gè) 動(dòng) 作 執(zhí) 行 完 畢 后， 方 才 做 另 外 一 個(gè) 動(dòng) 作， 這 時(shí) 可 采 用IAgentCtlCharacter::Wait() 方 法 來 實(shí) 現(xiàn) 同 步。 在 數(shù) 十 種 動(dòng) 畫 動(dòng) 作 中 有 一 類 比 較 特 殊( 動(dòng) 作 名 以"ing" 為 后 綴， 如"Searching")， 一 旦 執(zhí) 行 便 循 環(huán) 播 放 一 段 動(dòng) 畫， 只 有 調(diào) 用IAgentCtlCharacter::Interrupt() 方 法 才 能 終 止。 示 例 代 碼 如 下：
Private Sub Command1_Click()
    Genie.Show
    ' 執(zhí) 行 名 為"Suggest" 的 動(dòng) 作
    Genie.Play "Suggest"
' 把Genie 移 動(dòng) 到 座 標(biāo)(200,200) 處，
用GenieRequest1 來 標(biāo) 識(shí) 該 動(dòng) 作 請(qǐng) 求
    Set GenieRequest1 = Genie.MoveTo(200, 200)
' 執(zhí) 行 名 為"Searching" 的 循 環(huán) 動(dòng) 畫 動(dòng) 作，
用GenieRequest2 來 標(biāo) 識(shí) 該 動(dòng) 作 請(qǐng) 求
    Set GenieRequest2 = Genie.Play("Searching")
    ' Robby 等 待Genie 的MoveTo 方 法 執(zhí) 行 完 畢， 方 才 顯 示
    Robby.Wait GenieRequest1
    Robby.Show
    Robby.Play "Suggest"
    Robby.Play "read"
    Robby.Play "Congratulate"

    ' 由Robby 來 終 止Genie 的 循 環(huán) 動(dòng) 畫 動(dòng) 作
    Robby.Interrupt GenieRequest2
    Genie.Play "write"
    Genie.Hide
    Robby.Hide
End Sub

4. Microsoft Agent 控 件 的 語 音 合 成 功 能
　　 Microsoft Agent 控 件 支 持 英 語 的 語 音 合 成 功 能， 只 需 輸 入 句 子 的 文 字， 便 會(huì) 生 成 該 句 子 的 語 音 信 號(hào) 并 通 過 聲 卡、 音 箱 播 放 出 來。 語 音 合 成 功 能 通 過 調(diào) 用IAgentCtlCharacter::Speak() 方 法 來 實(shí) 現(xiàn)。 輸 出 中 文 時(shí) 不 能 用 上 述 方 法， 只 能 用WAV 文 件 代 替， 給Speak() 方 法 的 第 一 個(gè) 參 數(shù) 傳 遞 文 字 氣 球 中 包 含 的 文 字， 給 第 二 個(gè) 參 數(shù) 傳 遞 一 個(gè)WAV 文 件 路 徑。 同 樣 為 同 步 多 個(gè) 動(dòng) 畫 人 物 的 語 音 輸 出 也 必 須 使 用IAgentCtlCharacter::Wait() 方 法。 目 前Microsoft Agent 控 件 還 不 支 持 多 個(gè) 人 物 的 聲 音 混 合 效 果。 具 體 實(shí) 現(xiàn) 代 碼 如 下：
Private Sub Command2_Click()
    Genie.MoveTo 100, 200
    Genie.Show
    Genie.Play "Greet"

' Speak() 方 法 的 第 一 個(gè) 參 數(shù) 即 為 需 進(jìn) 行
語 音 合 成 的 句 子 文 字
    Genie.Speak "I am Genie, your most humble and loyal servant."
    Genie.Speak "Where is Robby?"
    Set GenieRequest1 = Genie.Play("LookLeft")
    ' 等Genie 的"LookLeft" 執(zhí) 行 以 后， 再 執(zhí) 行Robby 的 動(dòng) 作
    Robby.Wait GenieRequest1
    Robby.MoveTo 250, 200
    Robby.Show
    Robby.Play "Greet"
    Robby.Speak "Sorry for the delay."
Set RobbyRequest1 =
Robby.Speak("Traffic is really busy today on the  Information Superhighway.")

    ' 等Robby 講 完 了，Genie 再 講
    Genie.Wait RobbyRequest1
    Genie.Play "LookLeftReturn"
Genie.Speak "Welcome to the release of  Microsoft Agent,
the new ActiveX   technology that supports interactive characters"
' 輸 出 中 文 語 音，
" 歡 迎 光 臨" 的 中 文 語 音 包 含 在welcome.wav 中
    Genie.Speak " 歡 迎 光 臨", "c:\welcome.wav"
    Genie.Hide
    Robby.Hide
End Sub


5. Microsoft Agent 控 件 的 語 音 識(shí) 別 功 能
　　 Microsoft Agent 控 件 具 有 語 音 識(shí) 別 能 力， 用 戶 可 以 向 動(dòng) 畫 人 物 發(fā) 出 語 音 命 令( 同 時(shí) 按 住Scroll Lock 鍵)。Microsoft Agent 控 件 為 每 個(gè)Agent 動(dòng) 畫 人 物 提 供 一 個(gè) 特 殊 物 命 令 窗 口， 用 以 顯 示 該 動(dòng) 畫 人 物 能 夠 接 受 的 所 有 語 音 命 令。 該 命 令 窗 口 中 的 命 令 不 能 用 鼠 標(biāo) 或 鍵 盤 來 選 取， 只 能 通 過 語 音。 可 以 用IAgentComands::Add() 方 法 來 為 命 令 窗 口 添 加 自 定 義 命 令。 第 一 個(gè) 參 數(shù) 是 命 令 的 標(biāo) 識(shí) 符ID， 第 二 個(gè) 參 數(shù) 是 該 命 令 在 命 令 窗 口 中 的 顯 示 標(biāo) 簽， 第 三 個(gè) 參 數(shù) 是 該 命 令 對(duì) 應(yīng) 的 語 音 識(shí) 別 句 子。 當(dāng) 用 戶 通 過 麥 克 風(fēng) 向 動(dòng) 畫 人 物 發(fā) 出 命 令 時(shí) 會(huì) 激 發(fā)IAgent 的Command 事 件， 可 以 編 寫 一 個(gè) 接 收Command 事 件 的 過 程 來 完 成 與 語 音 命 令 相 對(duì) 應(yīng) 的 任 務(wù)。


Private Sub Command3_Click()
    Static initialized As Boolean

    ' 添 加 自 定 義 命 令
    If Not initialized Then
        Genie.Commands.Add "Word", "Run Word", "word", True, True
        Genie.Commands.Add "Time", "What time is it?", "What time is it?", True, True
        Genie.Commands.Add "Bigger", "Bigger", "Bigger", True, True
        Genie.Commands.Add "Smaller", "Smaller", "Smaller", True, True
        initialized = True
   End If
    Genie.Show

   Genie.Speak "Can I help you?"

End Sub

Private Sub MyAgent_Command(ByVal UserInput As Object)
    Select Case UserInput.Name
        Case "Time"
            ' 當(dāng) 聽 到"What time is it?" 后 回 答 當(dāng) 前 時(shí) 間
            Genie.Speak "The time is " & Time
        Case "Word"
            ' 當(dāng) 聽 到"word" 后， 便 運(yùn) 行MS Word
            Genie.Speak "Yes,sir!"
            Shell "d:\winword\winword.exe", vbNormalFocus
        Case "Bigger"
            ' 當(dāng) 聽 到"bigger" 后，Genie 會(huì) 放 大
            Genie.Width = Genie.Width * 1.5
           Genie.Height = Genie.Height * 1.5
        Case "Smaller"
            ' 當(dāng) 聽 到"samller" 后，Genie 會(huì) 縮 小
            Genie.Width = Genie.Width / 1.5
            Genie.Height = Genie.Height / 1.5
    End Select
End Sub

/*////////////////////////////////////////////////////////////////////*/

/* 附 完 整 源 程 序 agent.frm                */

VERSION 5.00

Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}

#1.5#0"; "AGENTCTL.DLL"

Begin VB.Form Form1

   Caption         =   "Form1"

   ClientHeight    =   3195

   ClientLeft      =   60

   ClientTop       =   345

   ClientWidth     =   4680

   LinkTopic       =   "Form1"

   ScaleHeight     =   3195

   ScaleWidth      =   4680

   StartUpPosition =   3  'Windows Default

   Begin VB.CommandButton Command3

      Caption         =   "Command3"

      Height          =   615

      Left            =   2880

      TabIndex        =   2

      Top             =   360

      Width           =   1095

   End

   Begin VB.CommandButton Command2

      Caption         =   "Command2"

      Height          =   615

      Left            =   1320

      TabIndex        =   1

      Top             =   360

      Width           =   1095

   End

   Begin VB.CommandButton Command1

      Caption         =   "Command1"

      Height          =   615

      Left            =   120

      TabIndex        =   0

      Top             =   360

      Width           =   855

   End

   Begin AgentObjectsCtl.Agent MyAgent

      Left            =   360

      Top             =   2520

   End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False



Option Explicit



Const DATAPATH = "c:\"



Dim Genie As IAgentCtlCharacter

Dim Robby As IAgentCtlCharacter

Dim GenieRequest1, GenieRequest2 As IAgentCtlRequest

Dim RobbyRequest1 As IAgentCtlRequest



Private Sub Command1_Click()

    Genie.Show

    Genie.Play "Suggest"

    Set GenieRequest1 = Genie.MoveTo(200, 200)

    Set GenieRequest2 = Genie.Play("Searching")

    Robby.Wait GenieRequest1

    Robby.Show

    Robby.Play "Suggest"

    Robby.Play "read"

    Robby.Play "Congratulate"

    Robby.Interrupt GenieRequest2

    Genie.Play "write"

    Genie.Hide

    Robby.Hide

End Sub



Private Sub Command2_Click()

    Genie.MoveTo 100, 200

    Genie.Show

    Genie.Play "Greet"

    Genie.Speak "I am Genie, your most humble and loyal servant."

    Genie.Speak "Where is Robby?"

    Set GenieRequest1 = Genie.Play("LookLeft")

    Robby.Wait GenieRequest1

    Robby.MoveTo 250, 200

    Robby.Show

    Robby.Play "Greet"

    Robby.Speak "Sorry for the delay."

Set RobbyRequest1 = Robby.Speak

("Traffic is really busy today on the Information Superhighway.")

    Genie.Wait RobbyRequest1

    Genie.Play "LookLeftReturn"

    Genie.Speak "Welcome to the release of Microsoft Agent, the new

ActiveX technology that supports interactive characters"

    Genie.Speak " 歡 迎 光 臨", "c:\welcome.wav"

    Genie.Hide

    Robby.Hide

End Sub



Private Sub Command3_Click()

    Static initialized As Boolean



    If Not initialized Then

        Genie.Commands.Add "Word", "Run Word", "word", True, True

        Genie.Commands.Add "Time", "What time is it?", "What time is it?", True, True

        Genie.Commands.Add "Bigger", "Bigger", "Bigger", True, True

        Genie.Commands.Add "Smaller", "Smaller", "Smaller", True, True

        initialized = True

    End If



    Genie.Show

    Genie.Speak "Can I help you?"

End Sub



Private Sub Form_Load()

    MyAgent.Characters.Load "Genie", DATAPATH & "Genie.acs"

    MyAgent.Characters.Load "Robby", DATAPATH & "Robby.acs"

    Set Genie = MyAgent.Characters("Genie")

    Set Robby = MyAgent.Characters("Robby")

    Genie.Show

    Genie.Hide

End Sub


Private Sub MyAgent_Command(ByVal UserInput As Object)
    Select Case UserInput.Name
        Case "Time"
            Genie.Speak "The time is " & Time
        Case "Word"
            Genie.Speak "Yes,sir!"

            Shell "d:\winword\winword.exe", vbNormalFocus

        Case "Bigger"

            Genie.Width = Genie.Width * 1.5

            Genie.Height = Genie.Height * 1.5

        Case "Smaller"

            Genie.Width = Genie.Width / 1.5

            Genie.Height = Genie.Height / 1.5

    End Select

End Sub