IT你好技术论坛

标题: 让电脑说话,你输什么电脑就说什么 [打印本页]

作者: ssfi 时间: 2009-12-6 16:37 标题: 让电脑说话,你输什么电脑就说什么

把以下这段代码复制到记事本,然后保存为.VBS文件,双击打开........绝对不是病毒...
在VISTA下是女声,XP为男声..呵呵...不敢独享,给大家分享下....
Dim msg,sapi
msg=InputBox("输入文字","开口讲话")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

作者: andyihk 时间: 2010-1-1 18:39

只可以说英文的

作者: ssfi 时间: 2010-1-1 23:30

我的可以啊,,,,,呵呵,,,

作者: lanyanlei 时间: 2010-1-25 14:01

中文？？

作者: xiaowuhello 时间: 2010-1-25 14:03

可以说中文的

欢迎光临 IT你好技术论坛 (http://it.o-o.zone/)