VB调用Microsoft Agent控件与电脑交谈
添加时间: 2006-2-16 8:58:49 作者: VB教程 阅读次数:181 来源: http://www.d9soft.com
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( 提 供 语 音 识 别 功 能) Actcnc.exe。
(4) 另 外 还 需 要Agnet 动 画 人 物 数 据 文 件， 在 本 文 中 使 用 了Genie.acs、Robby.acs 两 个 文 件。
上 述 文 件 均 可 从 http://www.microsoft.com/workshop/prog/agent 下 载。
2. Microsoft Agent 控 件 的 初 始 化
先 把Microsoft Agent 控 件 添 加 到VB 的 控 制 工 具 条 上， 并 在 用 户 的Form 上 绘 制 该 控 件( 在 下 述 例 子 中， 其Name 属 性 设 为MyAgent)。 下 面 的 代 码 调 用IAgentCtlCharacters::Load() 方 法 装 入 一 个 动 画 人 物 的 数 据， 调 用IAgentCtlCharacter::Show()/Hide() 方 法 来 显 示/ 隐 藏 动 画 人 物。
Const DATAPATH = "c:\"
Dim Genie As IAgentCtlCharacter
Dim Robby As IAgentCtlCharacter
Dim GenieRequest1, GenieRequest2 As IAgentCtlRequest
Dim RobbyRequest1 As IAgentCtlRequest
Private Sub Form_Load()
' 装 入 动 画 人 物 数 据， 其 中 第 一 个 参 数 为CharacterID
MyAgent.Characters.Load "Genie", DATAPATH & "Genie.acs"
MyAgent.Characters.Load "Robby", DATAPATH & "Robby.acs"
' 获 取 与CharacterID 相 对 应 的IAgentCtlCharacter 变 量
Set Genie = MyAgent.Characters("Genie")
Set Robby = MyAgent.Characters("Robby")
' 显 示/ 隐 藏 动 画 人 物
Genie.Show
Genie.Hide
End Sub
3. Microsoft Agent 控 件 的 动 画 编 程
每 个 动 画 人 物 都 有 自 己 特 定 的 动 作， 例 如Genie 有 听、 看、 读、 写、 发 怒、 感 谢 等 数 十 种 动 画 形 态。 可 以 调 用IAgentCtlCharacter::play() 方 法 来 设 置 动 画 动 作。 为 了 在 多 个 动 画 人 物 之 间 协 调 它 们 的 动 作， 比 如 让Robby 等 待Genie 的 某 个 动 作 执 行 完 毕 后， 方 才 做 另 外 一 个 动 作， 这 时 可 采 用IAgentCtlCharacter::Wait() 方 法 来 实 现 同 步。 在 数 十 种 动 画 动 作 中 有 一 类 比 较 特 殊( 动 作 名 以"ing" 为 后 缀， 如"Searching")， 一 旦 执 行 便 循 环 播 放 一 段 动 画， 只 有 调 用IAgentCtlCharacter::Interrupt() 方 法 才 能 终 止。 示 例 代 码 如 下：
Private Sub Command1_Click()
Genie.Show
' 执 行 名 为"Suggest" 的 动 作
Genie.Play "Suggest"
' 把Genie 移 动 到 座 标(200,200) 处，
用GenieRequest1 来 标 识 该 动 作 请 求
Set GenieRequest1 = Genie.MoveTo(200, 200)
' 执 行 名 为"Searching" 的 循 环 动 画 动 作，
用GenieRequest2 来 标 识 该 动 作 请 求
Set GenieRequest2 = Genie.Play("Searching")
' Robby 等 待Genie 的MoveTo 方 法 执 行 完 毕， 方 才 显 示
Robby.Wait GenieRequest1
Robby.Show
Robby.Play "Suggest"
Robby.Play "read"
Robby.Play "Congratulate"
' 由Robby 来 终 止Genie 的 循 环 动 画 动 作
Robby.Interrupt GenieRequest2
Genie.Play "write"
Genie.Hide
Robby.Hide
End Sub
4. Microsoft Agent 控 件 的 语 音 合 成 功 能
Microsoft Agent 控 件 支 持 英 语 的 语 音 合 成 功 能， 只 需 输 入 句 子 的 文 字， 便 会 生 成 该 句 子 的 语 音 信 号 并 通 过 声 卡、 音 箱 播 放 出 来。 语 音 合 成 功 能 通 过 调 用IAgentCtlCharacter::Speak() 方 法 来 实 现。 输 出 中 文 时 不 能 用 上 述 方 法， 只 能 用WAV 文 件 代 替， 给Speak() 方 法 的 第 一 个 参 数 传 递 文 字 气 球 中 包 含 的 文 字， 给 第 二 个 参 数 传 递 一 个WAV 文 件 路 径。 同 样 为 同 步 多 个 动 画 人 物 的 语 音 输 出 也 必 须 使 用IAgentCtlCharacter::Wait() 方 法。 目 前Microsoft Agent 控 件 还 不 支 持 多 个 人 物 的 声 音 混 合 效 果。 具 体 实 现 代 码 如 下：
Private Sub Command2_Click()
Genie.MoveTo 100, 200
Genie.Show
Genie.Play "Greet"
' Speak() 方 法 的 第 一 个 参 数 即 为 需 进 行
语 音 合 成 的 句 子 文 字
Genie.Speak "I am Genie, your most humble and loyal servant."
Genie.Speak "Where is Robby?"
Set GenieRequest1 = Genie.Play("LookLeft")
' 等Genie 的"LookLeft" 执 行 以 后， 再 执 行Robby 的 动 作
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 控 件 的 语 音 识 别 功 能
Microsoft Agent 控 件 具 有 语 音 识 别 能 力， 用 户 可 以 向 动 画 人 物 发 出 语 音 命 令( 同 时 按 住Scroll Lock 键)。Microsoft Agent 控 件 为 每 个Agent 动 画 人 物 提 供 一 个 特 殊 物 命 令 窗 口， 用 以 显 示 该 动 画 人 物 能 够 接 受 的 所 有 语 音 命 令。 该 命 令 窗 口 中 的 命 令 不 能 用 鼠 标 或 键 盘 来 选 取， 只 能 通 过 语 音。 可 以 用IAgentComands::Add() 方 法 来 为 命 令 窗 口 添 加 自 定 义 命 令。 第 一 个 参 数 是 命 令 的 标 识 符ID， 第 二 个 参 数 是 该 命 令 在 命 令 窗 口 中 的 显 示 标 签， 第 三 个 参 数 是 该 命 令 对 应 的 语 音 识 别 句 子。 当 用 户 通 过 麦 克 风 向 动 画 人 物 发 出 命 令 时 会 激 发IAgent 的Command 事 件， 可 以 编 写 一 个 接 收Command 事 件 的 过 程 来 完 成 与 语 音 命 令 相 对 应 的 任 务。
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"
' 当 听 到"What time is it?" 后 回 答 当 前 时 间
Genie.Speak "The time is " & Time
Case "Word"
' 当 听 到"word" 后， 便 运 行MS Word
Genie.Speak "Yes,sir!"
Shell "d:\winword\winword.exe", vbNormalFocus
Case "Bigger"
' 当 听 到"bigger" 后，Genie 会 放 大
Genie.Width = Genie.Width * 1.5
Genie.Height = Genie.Height * 1.5
Case "Smaller"
' 当 听 到"samller" 后，Genie 会 缩 小
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
上下文章:
上一篇文章: 如何在VB中终止Windows系统 下一篇文章: Visual Basic 的工程限制