对Microsoft Agent学习小结.doc

对Microsoft Agent学习小结在网逛，发现 Microsoft Agent有点意思。原来对 Widget有点了解，研究一下，如何有趣？一、什么是Microsoft Agent（动画精灵人物）？Microsoft Agent是一种基于微软视窗平台的可编程的即时交互性动画角色。开发人员能够用该角色作为助手介绍，向导，娱乐或作为一种加强网站及应用程序交互性开发的手段。 Microsoft Agent能使程序员和网站开发者设计出更加人性化的用户交互界面。除了可以接受键盘和鼠标的输入外, Microsoft Agent还可以听懂用户的语音命令，动画角色会根椐用户的准标语音命令通过同步语音，录音或文本框作出相应的回馈。二、初步印象（简单的理解就是让下面的小人，根据你的需要，在软件界面，桌面上活动、说话（英文，经过一定的配置也可说中文）三、如何使用Microsoft Agent（实例）？以下是在VB中的应用：也可应用到你的课件（PPT,AUTHORWARE）中相信大家都使用过系统的搜索功能，也相信大家一定对那只活泼可爱的小狗狗有深刻的印象，这就是系统的动画精灵。默认的动画精灵共有4个：1.默林（Merlin）：他是一个法术高强的魔法师，可能比刘谦还要厉害。2.小黄（rover）：就是那只小狗狗啦。3.清丽佳人（courtney)：天姿国色，清纯可亲，永远坐在一辆红色的跑车上。4.冲浪小子（earl）：冲浪技术可是一流的，据说获得过世界大赛的奖牌。这4个动画精灵文件在系统中的路径如下：-默林： %SystemRoot%msagentcharsMerlin.acs清丽佳人：%SystemRoot%srchasstcharscourtney.acs冲浪小子：%SystemRoot%srchasstcharsearl.acs小黄： %SystemRoot%srchasstcharsrover.acs-下面介绍的，就是如何用VB代码来调用这四个精灵。先介绍常用的方法：-Show 让精灵显示在屏幕上Hide 让精灵隐藏起来，但没有从内存中删除MoveTo x, y 让精灵移动到屏幕的 x,y 位置，单位：像素Speak 要说的话 让精灵“说话”，要说的话显示在一个语言气球内Think 思考内容 让精灵“思考”，思考内容显示在一个思考气球内Play 命令字符串 让精灵动作-请注意 Play 方法的“命令字符串”，这是使精灵做出各种动作的关键。这些命令字符串是微软预先设置好的，我们只能照本宣科地使用，无法自己创新。新建一个窗体，添加四个按纽，分别取名为：默林、小黄、清丽佳人、冲浪小子。代码如下：Option ExplicitPrivate Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Dim AgentPath As String 动画精灵文件的路径Dim AgentName As String 动画精灵名称Private Sub 默林_Click()Dim objAgent, objCharacterAgentName = MerlinAgentPath = Environ(SystemRoot) & msagentchars & AgentName & .acsSet objAgent = CreateObject(Agent.Control.2)With objAgent.Connected = True 启动与 Agent 的连接.Characters.Load AgentName, AgentPath 导入精灵。参数1-精灵名称，参数2-精灵文件路径Set objCharacter = .Characters.Character(AgentName)End WithWith objCharacter 显示精灵的各种动作.Width = .Width * 2 放大.Height = .Height * 2.MoveTo 420, 130 移动精灵到指定的屏幕位置，以像素为单位.Show 显示精灵.Speak 哈罗，我是魔法师默林。现在的时间是： & Time & 。下面开始表演.MoveTo 340, 250.Play Acknowledge 打招呼，点头，帽子上有螺旋桨.Play Alert 敬礼，待命.Play Announce 宣告，吹喇叭.Play Blink 眨眼.Play Confused 困惑、抓头.Play Congratulate 祝贺，变出一个大奖杯.Play Congratulate_2 祝贺，鼓掌.Play Decline 无奈，摊手，摇头.Play DoMagic1 变出一顶帽子.Play DoMagic2 变魔术2.Play DontRecognize 不认识没听清.Play Explain 辩解、摊手.Play GestureUp 向上手势，天哪.Play GestureDown 向下手势，请.Play GestureLeft 伸出左手.Play GestureRight 伸出右手.Play GetAttention 敲一下门.Play GetAttentionContinued 继续敲门.Play GetAttentionReturn 不敲了.Play Greet 问候、躹躬.Play Idle1_1 闲散1-1.Play Idle1_2 闲散1-2.Play Idle1_3 闲散1-3.Play Idle1_4 闲散1-4.Play Idle2_1 闲散2-1，拿出魔术棒.Play Idle2_2 闲散2-2，两手在腹前交叉.Play Idle3_1 闲散3-1，打呵欠.Play LookUp 上看.Play LookDown 下看.Play LookLeft 左看.Play LookRight 右看.Play LookDownBlink 俯视眨眼，帽子上有螺旋桨，戴眼镜.Play LookDownReturn 点头眨眼，帽子上有螺旋桨，戴眼镜.Play MoveUp 上移，帽子上有螺旋桨，戴眼镜.Play MoveDown 下蹲，马步，帽子上有螺旋桨，戴眼镜.Play MoveLeft 左移，帽子上有螺旋桨，戴眼镜.Play MoveRight 右移，帽子上有螺旋桨，戴眼镜.Play Pleased 满足，双手在腹前相握.Play Process 加工，调配.Play Read 读.Play ReadContinued 接着读.Play ReadReturn 不读了.Play Sad 悲哀.Play Search 查找，变出一个球.Play StartListening 开始听.Play StopListening 不听了，掩耳.Play Suggest 变出一个灯泡.Play Surprised 惊讶.Play Uncertain 无可奉告，身体前倾.Play Write 写.Play WriteContinued 接着写.Play WriteReturn 不写了.Speak 拜拜.Play Wave 挥手Sleep 10000.HideEnd WithDo While objCharacter.VisibleSleep 100LoopSet objAgent = NothingSet objCharacter = NothingEnd SubPrivate Sub 小黄_Click()Dim objAgent, objCharacterAgentName = roverAgentPath = Environ(SystemRoot) & srchasstchars & AgentName & .acsSet objAgent = CreateObject(Agent.Control.2)With objAgent.Connected = True.Characters.Load AgentName, AgentPathSet objCharacter = .Characters.Character(AgentName)End WithWith objCharacter.Width = .Width * 1.5.Height = .Height * 1.5.MoveTo 400, 300.Show.Speak 汪汪.Play Acknowledge 打招呼后坐下.Play Congratulate 起身摇尾祝贺.Play GestureLeft 向左看.Play LookUpLeft 向左上方看.Play GetAttention 抬左前腿.Play Greet 甩头.Play LookUp 向上看.Play Pleased 抬头向上看.Play Surprised 惊讶，起身，伸舌头.Play Writing 举起双爪.Speak 886.Sleep 10000.HideEnd WithDo While objCharacter.VisibleSleep 100LoopSet objAgent = NothingSet objCharacter = NothingEnd SubPrivate Sub 清丽佳人_Click()Dim objAgent, objCharacterAgentName = courtneyAgentPath = Environ(SystemRoot) & srchasstchars & AgentName & .acsSet objAgent = CreateObject(Agent.Control.2)With objAgent.Connected = True.Characters.Load AgentName, AgentPathSet objCharacter = .Characters.Character(AgentName)End WithWith objCharacter.Width = .Width * 2.Height = .Height * 2.MoveTo 420, 230.Show.Speak 哈罗，我是清丽佳人.MoveTo 340, 250.Play Acknowledge 打招呼.Play Announce 宣告，拿出手提话筒.Play Congratulate 祝贺，拿出一枝花.Play Explain 辩解、摆一下右手.Play GestureLeft 伸出左手.Play GetAttention 按小车喇叭两声.Play Greet 问候、挥右手.Play LookUp 向上看.Play Pleased 满足.Play Surprised 惊讶.Play Writing 掏出手机通话.Speak 886.Sleep 5000.HideDoEventsEnd WithDo While objCharacter.VisibleSleep 100LoopSet objAgent = NothingSet objCharacter = NothingEnd SubPrivate Sub 冲浪小子_Click()Dim objAgent, objCharacterAgentName = earlAgentPath = Environ(SystemRoot) & srchasstchars & AgentName & .acsSet objAgent = CreateObject(Agent.Control.2)With objAgent.Connected = True.Characters.Load AgentName, AgentPathSet objCharacter = .Characters.Character(AgentName)End WithWith objCharacter.Width = .Width * 2.Height = .Height * 2.MoveTo 420, 130.Show.Think 我是冲浪高手.MoveTo 340, 250.Play Acknowledge 打招呼，点头.Play Announce 宣告，冲浪一次.Play Congratulate 祝贺，身体前倾冲浪一次.Play Explain 辩解、冲浪一次.Play GestureLeft 向左转.Play Greet 冲浪一次.Play LookUp 向上看.Play LookUpLeft 向左上方看.Play Pleased 满足，双手抱于胸前.Play StopListening 不听了，双手掩耳.Play Surprised 惊讶、冲浪两次.Play Uncertain 无可奉告，摊手.Speak 886.Sleep 5000.HideEnd WithDo While objCharacter.VisibleSleep 100LoopSet objAgent = NothingSet objCharacter = NothingEnd Sub以上代码中，我已将精灵们常用的命令字符串罗列出来，你可以只用其中的一个或若干个。另外还有几个命令字符串，如果使用了，动画就似乎陷入了无限循环一般，难以自拔，我还没有研究出来使用方法（哪位兄弟知道，请告知），这些字符串是：Searching 不停地查找Thinking 不停地思考Writing 不停地写Uncertain 清丽佳人用的，无可奉告，耸肩摊手原作者没研究出来，其实也简单，调用另一个动作即可另外，还有一种使用 Agent 控件来调用动画精灵的办法，下面也介绍一下。新建一个窗体，添加一个按纽，取名“调用精灵控件”，再在“工程部件”的下拉框中勾选：Microsoft Agent control2.0于是工具箱上就有了一个戴礼帽的壮汉图标，这就是 Agent 控件，把这个控件添加到窗体，接着输入代码：Option ExplicitDim AgentPath As String 动画精灵文件的路径Dim AgentName As String 动画精灵名称Private Sub 调用精灵控件_Click()Dim objCharacter As IAgentCtlCharacterEx 动画精灵对象名AgentName = MerlinAgentPath = Environ(SystemRoot) & msagentchars & AgentName & .acsAgent1.Characters.Load AgentName, AgentPathSet objCharacter = Agent1.Characters.Character(AgentName)With objCharacter .Show .Think 演奏什么乐器呢？ .Play Announce 吹喇叭 .HideEnd WithSet objCharacter = NothingEnd Sub四、核心文件下载（XP下，可不下载）Microsoft Agent核心文件下载：说明：Microsoft Windows XP, Windows 2000 或是Windows Me 操作系统不用下载核心文件.因为已经内含了。/activex/controls/agent2/MSagent.exe默林/download/1/d/b/1dbee406-9b5f-48c5-b901-dd1a3f3c4669/Merlin.exe罗比/download/2/b/9/2b904bbb-c0b1-4840-b332-ba0615d1041e/Robby.exe精灵人/download/0/0/c/00cde5f8-321d-4325-baae-eb27f1bde85f/Genie.exe阿奇/download/a/f/5/af572f68-b83e-4e2c-8b0f-fd5fadf588e7/Peedy.exe更多的精灵/chars.aspx如果你要想让精灵们说话，还需安装微软的语音引挚:Lernout & Hauspie(c)TTS3000 TTS engine - British English下载：/activex/controls/agent2/tv_enua.exe也有国人开发的CTTS（Chinese Text to Speech engines ）中文语音控件CTTS下载：/cn/Interests/CTTS/CT