精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: 用VB5.0 调用Microsoft Agent 控件与电脑交谈
发信站: 哈工大紫丁香 (2000年09月07日12:27:12 星期四), 站内信件

用VB5.0 调用Microsoft Agent 控件与电脑交谈
----------------------------------------------------------------------------
----
---- Microsoft Agent 控件比Office 97 中的助手更进了一步，它提供
的动画人物不仅有生动、有趣的动作，而且还能通过声卡、
麦克风与用户进行交谈，这些功能使计算机更具人性魅力，
其应用前途相当广泛。Microsoft Agent 控件的内部机制很复杂，
但用VB 来操纵它却是异乎寻常的方便，本文将介绍VB 5.0 调用M
icrosoft 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( 提供语
音识别功能) Actcnc.exe。
---- (4) 另外还需要Agnet 动画人物数据文件，在本文中使用了G
enie.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 有听、看、
读、写、发怒、感谢等数十种动画形态。可以调用IAgentCtlCharac
ter::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 文件代替，给S
peak() 方法的第一个参数传递文字气球中包含的文字，给第二
个参数传递一个WAV 文件路径。同样为同步多个动画人物的语
音输出也必须使用IAgentCtlCharacter::Wait() 方法。目前Microsoft Ag
ent 控件还不支持多个人物的声音混合效果。具体实现代码如
下：
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?", T
rue, 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?", T
rue, 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

--
├┝┞┟┠┢┣◣◢
               ∣
             ▆▆▆
              ▇▇

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.208]

VB 版 (精华区)