67 查看	1 回复

Administrator

Rank: 20

go

[恶搞]让电脑开口说中文

1帖

发表于 2012-3-23 18:56 | 只看该作者 | 倒序看帖 | 打印

复制内容到剪贴板保存成BAT格式:

1：

@echo off
echo 国语：好好学习，天天向上！我们是未来的希望。
mshta vbscript:createobject("sapi.spvoice").speak("hou hou share she, ten ten soung shang. war mern sure way lie de sheer wuang.")(window.close)

复制代码

2：

@echo off
echo 粤语：爱你一生一世！
mshta vbscript:createobject("sapi.spvoice").speak("hnoi lay yak sung yak saiy.")(window.close)

复制代码

3：

@echo off
echo 《无题》
echo.
echo 李商隐
echo.
echo 相见时难别亦难，东风无力百花残。
echo 春蚕到死丝方尽，蜡炬成灰泪始干。
echo 晓镜但愁云鬓改，夜吟应觉月光寒。
echo 蓬山此去多无路，青鸟殷勤为探看。
mshta vbscript:createobject("sapi.spvoice").speak("wool tea")(window.close)
mshta vbscript:createobject("sapi.spvoice").speak("lee shang yin")(window.close)
mshta vbscript:createobject("sapi.spvoice").speak("seang geyn shir narn beah eey narn? don't phone woo lee buy hwa tsarn? chueng tsarn doubt sir sir found jing. larl g chueng huay lake shere garn. shall jind darn chol yun bean guy. year yean ying jer year guang hun? perng shun tsir chee woo duer looe. chin niao yin chin way tongue carn.")(window.close)

复制代码

4：

@echo off
set speak=mshta vbscript:createobject("sapi.spvoice").speak
echo 《鹅》
echo.
echo 骆宾王
echo.
echo 鹅, 鹅, 鹅
echo.
echo 曲项向天歌
echo.
echo 白毛浮绿水
echo.
echo 红掌拨清波
%speak%("earth")(window.close)
%speak%("lo been one")(window.close)
%speak%("earth... earth... earth, choo shang shang tin go. buy mau fool loo three, horn drung bo ching bo")(window.close)

复制代码

谁都不知道今天过去明天会如何，你现在要做的就是善待眼下的这一分钟、这一小时、这一天。

Administrator

Rank: 20

2帖

发表于 2012-3-23 18:57 | 只看该作者

还有语音呢。。

谁都不知道今天过去明天会如何，你现在要做的就是善待眼下的这一分钟、这一小时、这一天。