- 浏览: 1454206 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (564)
- 算法 (7)
- 流金岁月 (1)
- Javascript (30)
- actionscript (108)
- as3.0 game (14)
- flex (84)
- fms2 (27)
- 正则表达式 (7)
- 开源组件代码(as3.0) (1)
- Pv3d (13)
- Cairngorm (4)
- vbs (54)
- VB程序设计 (26)
- 计算机应用与维护 (4)
- 职场实用穿衣技巧 (3)
- 历史风云 (15)
- 淡泊明志,宁静致远 (12)
- 情感 (26)
- 杂谈 (41)
- 越南风 (14)
- DirectX (9)
- Dev-cpp (11)
- 回望百年 (2)
- 建站经验 (2)
- Python (24)
- 网络赚钱 (4)
- php (2)
- html (1)
- ob0短址网 (1)
- ob0.cn (1)
- wordpress (1)
- pandas logistic (1)
- haxe (1)
- opencv (1)
- 微信小程序 (3)
- vue (3)
- Flutter (1)
最新评论
-
GGGGeek:
第一个函数滚动监听不起作用,onPageScroll可以
微信小程序--搜索框滚动到顶部时悬浮 -
naomibyron:
解决办法:工具 -> 编译选项 -> 编译器 ...
dev-c++中编译含WINSOCK的代码出现错误的解决方法 -
haichuan11:
这个…… 代码不全真的是让人很憋屈的感觉啊
actionScript 3.0 图片裁剪及旋转 -
chenyw101:
老兄能留个QQ号吗?具体的我有些东西想请教下你
用VB制作网站登陆器 -
yantao1943:
貌似有点问题,只派发一次事件啊
使用ActionScript 2.0或ActionScript 3.0处理音频文件的提示点(cue
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
本来代码写的就没有什么难度,可是写完之后,每次可爱的小人总是一闪而过,屏幕上什么也看不见,在网络上查找也找不出原因,我实验了好多次,终于发觉了加红的那段代码必不可少,程序异步执行,没有最后的代码,程序没有执行完就退出了
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
本来代码写的就没有什么难度,可是写完之后,每次可爱的小人总是一闪而过,屏幕上什么也看不见,在网络上查找也找不出原因,我实验了好多次,终于发觉了加红的那段代码必不可少,程序异步执行,没有最后的代码,程序没有执行完就退出了
发表评论
-
使用bat 处理文件 批量下载图片,下载文件
2018-11-17 10:42 3936Download Wscript.Arguments(0) ... -
VB6逆向工程浅析
2011-12-29 07:36 1737前言 VB的编译有两种方式,一种是P-Code ... -
VB函数——逆向分析备查
2011-12-28 21:39 1490Variant 变量的内部表示:_____________ ... -
VB程序逆向常用的函数
2011-12-28 21:38 14851) 数据类型转换: ... -
用XML创建可排序、分页的数据显示页面
2008-08-30 08:10 1396在Web开发中,我们经常 ... -
SQL注入天书 - ASP注入漏洞全接触
2008-08-28 17:39 1082随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员 ... -
一个学校的网站安全性测试
2008-08-28 17:38 1153本文作者:angel文章性质:原创发布日期:2004-04-0 ... -
改mdb为asp所带来的灾难
2008-08-28 17:36 1001本文作者:SuperHei·Lilo文章性质:原创发布日期: ... -
XML实例解析
2008-08-28 17:35 1104提纲: 一:实例效果 ... -
选单连动
2008-08-28 17:34 1066动机: 现在我们做个在IE里应用XML的一个小例子:解决双下 ... -
ASP常用的代码(不断更新)
2008-08-28 17:34 12421.获得系统时间:<%=now()%>2.取得来访 ... -
动态排序
2008-08-28 17:31 1135动机: 排序功能让我们页面上的数据显的更人性化,是我们在网站 ... -
动态查询
2008-08-28 17:31 877动机: 查询功能是我们 ... -
XML卷之动态分页
2008-08-28 17:30 1202动机: 为了方便用户查看大批量数据,我们会用到动态分页,因此 ... -
对xml+xsl实现分页排序的改进,使支持对所有数据进行排序
2008-08-28 17:29 2099以往见过的利用xml+xsl来实现分页排序的基本都只能本页内排 ... -
使用XML、XSLT和XPath创建可排序、分页、重用的数据显示页
2008-08-28 17:27 1330在Web开发中,我们经常 ... -
用ASP+XML编写留言本
2008-08-28 17:16 2867一、读者指引 读者 ... -
asp查询xml的代码,实现了无刷新、模糊查询功能
2008-08-28 17:13 1161<html> <head> ... -
用Asp+XmlHttp实现RssReader功能
2008-08-28 17:12 874<style>body {margin:10px; ... -
vb+Webbrowser控件详解
2008-08-25 20:48 6825vb+Webbrowser控件详解 1、获得浏览器信息: P ...
相关推荐
通过以上知识点,可以看出这份文件讲述的是如何通过VBScript编写脚本来控制微软的MsAgent组件,特别是使用其中的Merlin角色,实现一个有趣的交互式体验。用户只需要将这段代码保存为.vbs文件,然后双击运行,就可以...
MSAgent动作查看程序
MSAgent在Delphi中的应用MSAgent在Delphi中的应用MSAgent在Delphi中的应用
MsAgent的开发需要利用.NET Framework中的组件。 3. **Microsoft Agent API**: MsAgent是通过COM(Component Object Model)接口来实现的,C#可以通过托管代码调用这些接口。开发者需要理解如何在C#中使用COM互...
Agent服务是微软操作系统中的一个组件,主要用于实现系统中的语音助手、动画字符和其他交互式功能。在某些情况下,由于系统更新、软件冲突或病毒感染,这个服务可能会出现问题,导致无法正常运行,此时就需要用到这...
一个扩展后的MsAgent, 重绘提示窗、按钮等,并具有语音功能,具有Office2000中提示窗风格,功能比较强大。另外,你可以到下面网址下载MsAgent编辑生成器(*.acs)来生成属于自己的精灵助手。
MSAgent是微软在Windows操作系统中引入的一个组件,它支持多种语言,包括C#。 在C#中使用MSAgent,首先需要了解如何引用和安装MSAgent的相关库。开发者通常会通过添加COM组件到项目来引入Agent控件,然后就可以创建...
通过调用这些函数,我们可以创建代理实例、设置角色属性、激活角色并使其执行语音和动作。 2. **源码解析** 对于希望深入理解MSAgent工作原理的开发者,查看源码是必不可少的步骤。通过分析`agent.dll`和`charmap....
1. **MSAgent API**:了解如何调用MSAgent的API函数来创建、显示和控制Agent角色,如AddCharacter、ShowCharacter、HideCharacter等。 2. **COM理解与应用**:COM是微软提出的一种软件组件模型,它允许不同程序之间...
这里我们关注的是如何在C#环境中利用media组件来实现这一目标。C#提供了多种方式来实现winForm程序调用媒体播放器,其中最常用的是使用Windows Media Player控件(WMPLib)。下面将详细介绍如何操作。 1. **引入...
首先,MS AGENT的核心组件包括角色(Characters)、声音(Voices)和脚本(Scripts)。角色是用户界面中的可视元素,通常表现为动画人物或图标,它们可以通过预定义的动作和表情来回应用户的操作。声音则负责将文本...
新增特效窗体(具有涟漪、火焰、溶浆、爆炸、冲击波、雪花、烟花、闪电、动态徽标、屏保、文字、水中倒影、云朵移动等数十种特效,先加这么多吧,懒的再加了,^_^),动态菲屏(20种动态位图特效),主程序内部进行了...
"MsAgent精灵示例"是关于Microsoft Agent技术的一个应用实例,它包含了文本转语音(TTS)的功能,展示了如何将文字信息转化为可听见的语音输出。Microsoft Agent是一种在Windows操作系统中集成的技术,它允许开发者...
标题“MSAgent Style Critters for your Web Pages”指的是在网页中使用类似微软Agent技术的动态小动物图形元素。这些小动物通常被设计成互动式的,为网站增添趣味性和交互性,提升用户体验。MSAgent是微软早期推出...
总之,通过VC++调用Microsoft Agent,我们可以创建出具有生动角色和语音交互的应用程序,为用户提供更直观、有趣的用户体验。虽然Microsoft Agent技术现在可能已经过时,但它的原理和思路对于理解现代人机交互设计...
首先,让我们详细了解一下MsAgent的核心组件。MsAgent主要包括角色(Characters)、服务(Services)和控制器(Controllers)三大部分。角色是用户界面中的可视对象,它们能够执行预定义的动作和说话;服务提供了...
- **编程语言**:支持VBS、JavaScript和JScript编程。 #### 七、.NET框架下的MSAgent使用 - **AxImp工具**:将ActiveX控件转换为.NET Framework可使用的组件。 - **转换命令**:`AxImp agentctl.dll`生成`...
在项目中使用这个包装器类时,只需实例化一个`MsAgentWrapper`对象,然后调用其方法即可轻松操作MsAgent角色。提供的示例工程`MsAgentdemo.zip`和源代码`MsAgentsrc.zip`将包含具体实现细节,帮助你更好地理解和应用...