◎Vbs调用MsAgent组件，很有趣

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

Genie.StopAll

MsgBox "白白，再见了！"

WScript.Quit

End Sub

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

◎Vbs调用MsAgent组件，很有趣相关推荐

64位系统VBS调用32位COM组件
64位系统VBS调用32位COM组件标签: 32位, 64位, COM, COM组件, VB, VBS, VBScript 标题: 64位系统VBS调用32位COM组件作者: Demon 链接: ...
爬虫技术做到哪些很酷很有趣很有用的事情
能利用爬虫技术做到哪些很酷很有趣很有用的事情? 准备学习python爬虫.各位大神都会用爬虫做哪些有趣的事情? 今天突然想玩玩爬虫,就提了这个问题.跟着YouTube上的一个tutor写了个简单的程序 ...
微软todo使用教程_Todo教程可能很有趣-但是，这是从头开始构建自己的项目的方法...
微软todo使用教程 There are many great tutorials that walk you through creating apps, from simple todo list ...
delphi 企业微信消息机器人_简单用VBS调用企业微信机器人发定时消息的方法
去年在企业微信群当中突然看到多了一个叫多群机器人的东西: 企业微信群机器人以为是升级了什么黑科技,看了下说明,原来目前功能是一个接收自定义消息的Webhook接口,可以通过调用接口把自定义消息推送到 ...
php word组件使用方法,快速解决PHP调用Word组件DCOM权限的问题讲解
下面小编就为大家分享一篇快速解决PHP调用Word组件DCOM权限的问题,具有很好的参考价值,希望对大家有所帮助.一起跟随小编过来看看吧 1. 首先必须要在电脑上安装 Office 2. window ...
react组件卸载调用的方法_React调用子组件方法与命令式编程误区
本文将阐述以下内容: 调用DOM元素方法调用React子组件方法的两种直接方案自省组件结构设计是否合理 -- 探讨声明式编程与命令式编程在React开发中的问题调用React子组件方法的最佳方案 ...
vue 子页面调用父页面的参数_Flutter子组件调用父组件方法修改父组件参数
子组件调用父级组件方法的主要实现是父组件给子组件传入一个方法,然后在子组件中调用父级方法来修改父级的参数.看一下效果图父级组件实现在父级组件中写一个_editParentText的方法来修改组件中 ...
php 无法创建com组件,关于IIS php调用com组件的权限问题
关于IIS php调用com组件的权限问题 1.运行Dcomcnfg.exe 2.组件服务――计算机――我的电脑 ――DCOM配置――找到microsoft word 文档 3.点击属性 4.选择&q ...
vbs调用c++dll_COM编程攻略（八动态调用与IDispatch接口）
上一篇我们实现了一个本地进程服务. Froser:COM编程攻略(七 COM跨进程组件开发实战)zhuanlan.zhihu.com 这一篇,我们将对这个本地进程服务做一些修改,让它能支持如下VBS ...
antd vue form表单子组件调用父组件的方法没反应_前几天推了Vue，今天给React疯狂打call...
在主流前端框架里,因为React的入门难度高而果断投入Vue怀抱的人绝不在少数.但我要告诉大家,如果你有一定的js基础,其实React没你想象中那么困难任何库都要在「概念简洁」(自由度高)和「使用便 ...

◎Vbs调用MsAgent组件，很有趣

◎Vbs调用MsAgent组件，很有趣相关推荐

最新文章

热门文章