IT你好技术论坛 › 广场 › 红黑技术 › 查看主题

257 查看	4 回复

IT·HI-超版

Rank: 8 Rank: 8

帖子: 62
精华: 1
积分: 641
UID: 68

go

让电脑说话,你输什么电脑就说什么

1帖

发表于 2009-12-6 16:37 | 只看该作者 | 倒序看帖 | 打印

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

Impossible into I'm possible

非正式会员

帖子: 3
精华: 0
积分: 3
UID: 135

2帖

发表于 2010-1-1 18:39 | 只看该作者

只可以说英文的

IT·HI-超版

Rank: 8 Rank: 8

帖子: 62
精华: 1
积分: 641
UID: 68

3帖

发表于 2010-1-1 23:30 | 只看该作者

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

Impossible into I'm possible

Administrator

Rank: 20

帖子: 539
精华: 17
积分: 7175
UID: 191

4帖

发表于 2010-1-25 14:01 | 只看该作者

中文？？

Administrator

Rank: 20

帖子: 1135
精华: 144
积分: 8341
UID: 1

5帖

发表于 2010-1-25 14:03 | 只看该作者

可以说中文的

‹ 上一主题|下一主题 ›

IT你好技术论坛

GMT+8, 2026-1-13 07:35, Processed in 0.020211 second(s), 13 queries.

Powered by Discuz! X1

© 2001-2010 Comsenz Inc.