主题:怎么用VFP调用微软助手
homayzh
[专家分:7040] 发布于 2007-09-16 14:22:00
我见此贴,很有兴趣,怎么用VFP调用微软助手
http://www.programfan.com/club/post-250524.html
{如题,想通过微软助手让其朗读出英语与汉语,请问如何来做?}
回复列表 (共7个回复)
沙发
Ilikefox [专家分:5770] 发布于 2007-09-16 15:01:00
请看Solutions示例(7.0版本以上)
板凳
homayzh [专家分:7040] 发布于 2007-09-16 15:22:00
我是9.0但是我的帮助是英文的,看不懂,可否赐教
3 楼
火速技术 [专家分:700] 发布于 2007-09-16 16:26:00
对于调用msagent,我自己摸索了好久!现在终于有成果了,都奉献给大家吧!!!
在表单的load 中输入:
PUBLIC oa,om,dh,dg
dh="merlin" && 要调用的角色,一般很多电脑上都已经装有"merlin"
dg="c:\windows\msagent\chars" &&角色所在路径
oa=NEWOBJECT("agent.control.2")
oa.connected=.t.
oa.characters.load("&dh.","&dg.\&dh..acs")
om=oa.characters.character("&dh.")
om.languageID=0x409 &&语言为英文
om.show()
om.play("read") &&表演的动作
om.speak("I read this for you!") &&说话
om.moveto(300,300) &&移动
在表单unload中输入:oa.characters.unload("&dh.")
上面这些代码是我自己改写的.这样要换角色将容易得多.只需改掉dh的值就行.
merlin的动作还有:
announce,confused,congratulate,decline,getattention,processing...等等...
agent 的方法还有:stop(),stopall(),interrupt(),wait(),等等.
关于agent,其实在百度搜索,可以找到一些.但很不深入.都是些最基本的属性和事件.
而且很多都是用delphi,VB来调用,用VFP的很少.
但都可以去参照再改动一下,所以这里我不多说了.
下面把我自己摸索到的都告诉给大家(网上找不到的哦!)
在表单中加入一个list控件
表单init 中输入
For Each lc In om.animationNames
thisform.list1.AddItem(lc)
EndFor
这样将可以看到角色 所有的动作
关于气球的显示:
om.balloon.style=0 说话时关闭气球
om.balloon.style=3 显示所有要读的文字
(关于气球我还没有模透,例如om.balloon.style还可以等于什么? )
om.balloon.style=35389453 气球正常
om.balloon.fontsize=15
om.balloon.fontname="幼圆"
关于说话:
om.Speak("\Spd=88\nice to meet you!") 改变说话速度
om.Speak ("\Vol=65535\\Pit=235\\Spd=144\"+thisform.text1.value) 改变说话音量,改变音调,改变速度.要读控件中的值应该用"+"号.
范围: && vol:1-65535,pit:50-400,spd:50-250
唱歌: && pit: doe,52.ray,55.me,62.fa,65.so,73.la,82,ti,87.doe,104
我知道的就这么多了,摸索了好久的.
愿知道如何更多控制agent的高手,来补充这个主题吧!
[em1]
4 楼
homayzh [专家分:7040] 发布于 2007-09-16 17:57:00
万分感谢3楼,谢谢谢谢
5 楼
homayzh [专家分:7040] 发布于 2007-09-16 18:36:00
其它小助手在哪里?我安装了office,在windos搜索里都可以显示,它们在哪里
对了,可以调用QQ宠物吗
6 楼
cbl518 [专家分:57140] 发布于 2007-09-16 19:50:00
[color=FF0000][size=4]火速技术先生的,帖子好精彩!
给新手提供了很高的资源。
这种精神,值得学习!
火速技术先生的帖子,是很好的精华贴![/size][/color]
7 楼
homayzh [专家分:7040] 发布于 2007-09-17 13:16:00
我找见几个
merlin c:\windows\msagent\chars
courtney c:\windows\srchasst\chars
earl c:\windows\srchasst\chars
rover c:\windows\srchasst\chars
qmark c:\windows\system32\oobe\images
clippit \program files\microsoft office\office11
dolphin \program files\microsoft office\office11
dot \program files\microsoft office\office11
mnature \program files\microsoft office\office11
mnkyking \program files\microsoft office\office11
offcat \program files\microsoft office\office11
rocky \program files\microsoft office\office11
saeko \program files\microsoft office\office11
clippit \program files\microsoft office\office11
dolphin \program files\microsoft office\office11
dot \program files\microsoft office\office11
mnature \program files\microsoft office\office11
mnkyking \program files\microsoft office\office11
offcat \program files\microsoft office\office11
rocky \program files\microsoft office\office11
saeko \program files\microsoft office\office11
我来回复