内容显示页

我的会说话的机器人终于诞生了

类别：ASP+VBS　|　浏览(1771)　|　2008-9-22 23:32:56

'CreateObject("SAPI.SpVoice").Speak "恭喜主人，您可爱的机器人已经完成了您分配的：采集地址任务，请查收"

Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Sam").Item(0)

'For Each strVoice in objVoice.GetVoices
'    Wscript.Echo strVoice.GetDescription
'Next

objVoice.rate =5	'速度:-10,10  0
objVoice.Volume=100	'声音:0,100	100
objVoice.Speak "123+234=几,请机器人回答"
a=123+234
objVoice.Speak "哈哈=" & a
objVoice.Speak "够聪明吧,我的主人是:柳永法,虽然我读不准主人的名字"
objVoice.Speak "但他确实是个：玉树临风、风流倜傥、英俊潇洒、人见人爱等等等的人,哎、太多了想不起来了"

引用本页地址：http://www.yongfa365.com/item/Microsoft.SAPI.SpVoice.html

上一篇：Ajax中的get和post两种请求方式的异同
下一篇：SQL快速生成大量数据记录及日志记录

相关链接

网友评论：

1 JAM - 2008-9-25 9:07:03

有意思，但是……怎么用呀？

2 雨中风铃 - 2008-11-12 10:38:35

你的vbs学得好扎实啊！这里有个问题需要请教一下，在没有安装office的电脑中，打开控制面板->声音、语音和音频设备->语音，在语音选择下拉框中只有Microsoft Sam，没有Microsoft Simplified Chinese。我安装了office还是没出现Microsoft Simplified Chinese选项，我是在打开Excel后，选择工具->语音->显示“文本到语音”工具栏->朗读单元格，Excel提示安装后，在语音下拉框中才出现Microsoft Simplified Chinese选项的。在这种情况下上面的代码才能正常运行，否则默认只能说英语不能说中文。能不能把Microsoft Simplified Chinese安装组件单独提取出来啊？
还有默认是男音，在注册表中可以更改成女音，我试了一下，感觉语音效果要清晰一些。

3 雨中风铃 - 2008-11-12 10:46:17

我把代码改了一下，可以读论坛上的帖子，动网论坛的访问速度好慢！

strURL=InputBox("请输入动网论坛中要读帖子的网址","论坛助理","http://bbs.dvbbs.net/dispbbs.asp?boardid=2&id=1554708&page=1&star=1")

If strURL="" then
Wscript.quit
End If

Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = False
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
strContent = ie.document.getElementById("textstyle_1").innerText

Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)

objVoice.rate =5 '速度:-10,10 0
objVoice.Volume=100 '声音:0,100 100
objVoice.Speak strContent

4 雨中风铃 - 2008-11-12 11:04:40

我试过把上面的代码加入到ie右键菜单，直接在打开的网页中右击->朗读，就可以直接读帖子内容了，但是失败了。比如:

注册表文件：
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\朗读]
"contexts"=dword:00000004
@="d:\\read.hta"

d:\\read.hta文件:
<script language=vbs>
朗读帖子代码
</script>

哈哈，搞了半天都不行，郁闷