Vbs调用MsAgent组件,很有趣

Vbs调用MsAgent组件,很有趣MicrosoftAgent是微软公司发布的一项代理软件开发技术,我们知道,在Office帮助系统中有一种叫作Office助手的代理软件,但其只允许Office各个组件调用,Agent动画人物可由任何Windows程序调用;Agent支持文字气球和输入提示条,在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有Agent语音识别引擎,当用户可以通过声卡、麦克风与用户交谈…

大家好,又见面了,我是你们的朋友全栈君。Microsoft Agent是微软公司发布的一项代理软件开发技术,我们知道,在Office帮助系统中有一种叫作Office助手的代理软件,但其只允许Office各个组件调用,Agent动画人物可由任何Windows程序调用;

Agent支持文字气球和输入提示条,在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有Agent语音识别引擎,当用户可以通过声卡、麦克风与用户交谈。下午无事,就尝试着写了一段简单的代码调用MsAgent:

GenieID = “Genie”

GenieACS = “genie.acs”

ScriptComplete=0

Set AgentControl = WScript.CreateObject(“Agent.Control.2″,”agent_”)

AgentControl.Connected = True’连接控件

AgentControl.Characters.Load GenieID,GenieACS

Set Genie = AgentControl.Characters(GenieID)

Genie.LanguageID = &H409

Genie.MoveTo 900, 600

Genie.Show

Genie.MoveTo 900, 0

timespeak=”good ” & GetTimeOfDay()

Genie.Speak(timespeak)

Genie.Play “Acknowledge” ‘承认

Genie.Speak(“眨眼”)

Genie.Play “Blink” ‘眨眼

Genie.Speak(“i love you”)

Genie.Speak(“回复动作”)

genie.Play(“RestPose”) ‘回復动作

Genie.Speak(“向上”)

genie.Play(“GestureUp”) ‘向上

Genie.Speak(“向下”)

genie.Play(“GestureDown”) ‘向下

Genie.Speak(“伸出左手”)

genie.Play(“GestureLeft”) ‘ 伸出左手

Genie.Speak(“伸出右手”)

genie.Play(“GestureRight”) ‘ 伸出右手

Genie.Speak(“叹气”)

genie.Play(“Sad”) ‘嘆气

Genie.Speak(“惊奇”)

genie.Play(“Surprised”) ‘惊奇

Genie.Speak(“握掌”)

genie.Play(“Pleased”) ‘握掌

Genie.Speak(“喇叭”)

genie.Play(“Announce”) ‘喇叭

Genie.Speak(“眯眼”)

genie.Play(“Blink”) ‘瞇眼

Genie.Speak(“无奈”)

genie.Play(“Decline”) ‘无奈

Genie.Speak(“抓头”)

genie.Play(“Confused”) ‘抓头

Genie.Speak(“鼓掌”)

genie.Play(“Congratulate”) ‘奖盃

Genie.Speak(“回手”)

genie.Play(“Wave”) ‘挥手

Genie.Speak(“惊讶”)

genie.Play(“Alert”) ‘惊讶

Genie.Speak(“魔术棒1”)

genie.Play(“DoMagic1”) ‘魔术棒-1

Genie.Speak(“魔术棒2”)

genie.Play(“DoMagic2”) ‘魔术棒-2

Genie.Speak(“摊手”)

genie.Play(“Explain”) ‘摊手

Genie.Speak(“敲门”)

genie.Play(“GetAttention”) ‘敲门

genie.Play(“GetAttentionContinued”) ‘敲门-敲

genie.Play(“GetAttentionReturn”) ‘敲门-放下

genie.Play(“Greet”) ‘弯腰

genie.Play(“Idle2_1”) ‘观察魔术棒

genie.Play(“Idle2_2”) ‘两手在腹前交叉

genie.Play(“Idle3_1”) ‘打呵欠

Genie.Speak(“向上看”)

genie.Play(“LookUp”) ‘上看

genie.Play(“LookDown”) ‘下看

genie.Play(“LookLeft”) ‘左看

genie.Play(“LookRight”) ‘右看

genie.Play(“MoveUp”) ‘上移

genie.Play(“MoveDown”) ‘下移

genie.Play(“MoveLeft”) ‘左移

genie.Play(“MoveRight”) ‘右移

genie.Play(“Process”) ‘魔法调配

genie.Play(“Read”) ‘阅读

Do ‘此处存疑,高手请看最后

WScript.Sleep 1000

Loop Until ScriptComplete

Function GetTimeOfDay()

Dim TimeOfDay

Dim h

h = Hour(Now())

If h < 12 Then

TimeOfDay = “Morning”

ElseIf h < 17 Then

TimeOfDay = “Afternoon”

Else

TimeOfDay = “Evening”

End If

GetTimeOfDay = TimeOfDay

End Function

Sub agent_dblclick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal

Y)

Genie.StopAll

MsgBox “白白,再见了!”

WScript.Quit

End Sub

本来代码写的就没有什么难度,可是写完之后,每次可爱的小人总是一闪而过,屏幕上什么也看不见,在网络上查找也找不出原因,我实验了好多次,终于发觉了加红的那段代码必不可少,程序异步执行,没有最后的代码,程序没有执行完就退出了

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/149969.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • UML图:类图 –详细介绍

    UML图:类图 –详细介绍类图的概念描述类、接口及它们之间关系的图,显示系统中各个类的静态结构类图的元素类面向对象系统组织结构的核心对一组具有相同属性、操作、关系和语义的对象的抽象包括名称部分(Name)、属性部分(Attribute)和操作部分(Operation)类的组成名称属性操作名称:应该是一个名词,分为简单名称和路径名称,每个单词首字母大写属性:描述了类在软件系统中代表的事物(即对象)所具备的特性,类可以有任意数目的属性,也可以没有属性在UML中,类属性的语法为属性的可见性

  • Java 最常见的 200+ 面试题:面试必备「建议收藏」

    这份面试清单是从我2015年做了TeamLeader之后开始收集的,一方面是给公司招聘用,另一方面是想用它来挖掘在Java技术栈中,还有那些知识点是我不知道的,我想找到这些技术盲点,然后修复它,以此来提高自己的技术水平。虽然我是从2009年就开始参加编程工作了,但我依旧觉得自己现在要学的东西很多,并且学习这些知识,让我很有成就感和满足感,那所以何乐而不为呢?说回面试的事,这份面试…

  • KEIL MDK生成bin文件的两种方法[通俗易懂]

    KEIL MDK生成bin文件的两种方法[通俗易懂]KEILMDK生成bin文件的两种方法:生成bin文件的设置路径:Keil->OptionforTarget->User->AfterBuild/Rebuild->Run#1(勾上)->输入bin文件的生成方式bin文件的生成都是通过fromelf.exe来实现的,fromelf.exe一般在Keil的安装路径下:例:D:\Ke…

    2022年10月20日
  • 天翼云IP_天翼网关ip地址

    天翼云IP_天翼网关ip地址在很多应用场景中,需要在云平台中搭建高可用集群,就这需要用到虚拟IP地址功能。今天就来谈一谈虚拟IP地址及它的应用场景。一、高可用集群在谈虚拟IP地址前,我们先了解一下什么叫高可用集群。高可用集群(HighAvailabilityCluster),或者叫故障转移集群(FailoverCluster),它是指通过集群软件,将几台服务器组合为一个集群系统提供服务,这些服务器中同一时间内一般只有一台在提供服务(称之为主节点或者Master节点),其…

    2022年10月20日
  • 编译原理实验一词法分析器_编译原理词法错误举例

    编译原理实验一词法分析器_编译原理词法错误举例编写一个词法分析程序

  • C# Repeater嵌套循环[通俗易懂]

    C# Repeater嵌套循环[通俗易懂]前台代码:<asp:RepeaterID=”rptList”runat=”server”OnItemDataBound=”users_list”><HeaderTemplate><tablewidth=”100%”border=”0″cellspacing=”0″cellpadding=”0″…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号