一个好用的英语学习工具 bbs.ikaka.com

西丁宁国 - 2009-5-24 16:19:00

:default6: 我们在工作中偶尔会碰到不会读的英语单词，是打开软件还是打开网页搜都有点费劲，把一个大小只有1k的小东东放到桌面，用时打开输入自己要读的英语单词，马上就可听到示范读音了。
制作过程：建立一个文本文件，在文件里输入下面的代码：
Dim msg, sapi
msg =InputBox("输入文字","开口讲话")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
然后另存为后缀名为*.vbs的文件，使用时双击打开就行了。

用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; CNCDialer; TheWorld)

soaika - 2009-5-24 16:21:00

多谢楼主分享~ 这下学口语不用愁了

qq240058144 - 2009-5-24 16:55:00

该用户帖子内容已被屏蔽

wenxiaojian - 2009-5-25 17:27:00

这是什么原理？

zgr稳得起 - 2009-5-25 19:23:00

引用:

原帖由 西丁宁国 于 2009-5-24 16:19:00 发表
:default6: 我们在工作中偶尔会碰到不会读的英语单词，是打开软件还是打开网页搜都有点费劲，把一个大小只有1k的小东东放到桌面，用时打开输入自己要读的英语单词，马上就可听到示范读音了。
制作过程：建立一个文本文件，在文件里输入下面的代码：
[size

不错的一个小东东！不过让俺这些菜鸟用来学习要是能够修改让其能循环运行就更好了！

早妖的夏天 - 2009-5-26 12:55:00

:kaka2:

土哦哦土＠ - 2009-5-26 18:23:00

该用户帖子内容已被屏蔽

西丁宁国 - 2009-5-30 17:18:00

该工具是利用微软的语音库发音，在xp系统中使用正常，未在WINDOWS7里测试，5楼说的循环运行是什么？只要每次输入要读的单词就可更新的呀。请大家明示并提出改进意见啊！

zgr稳得起 - 2009-5-30 19:06:00

引用:

原帖由 西丁宁国 于 2009-5-30 17:18:00 发表
该工具是利用微软的语音库发音，在xp系统中使用正常，未在WINDOWS7里测试，5楼说的循环运行是什么？只要每次输入要读的单词就可更新的呀。请大家明示并提出改进意见啊！

我说的循环运行的意思是不要只是使用一次它就自动退出去了？如果还想再使用还得“再一次双击打开”？感觉有点麻烦？意思是能否让它不要关闭，待不想用了，再击关闭按钮再让它退出去？不知道这样说是否说明白了没有？
比如象用下面的代码保存为xx.vbs文件运行它就是循环运行的!
Sub SayIt()
Do
msg =InputBox("输入要说的词句（点取消则退出）：", "开口说话", msg)
If msg = "" Then Exit Sub
sapi.Speak msg
Loop
End Sub
Dim msg, sapi
msg = ""
Set sapi=CreateObject("SAPI.SpVoice")
SayIt
Set sapi=Nothing

网络小白蚁 - 2009-6-15 0:13:00

用 google 金山词霸吧挺好的

迷失の坏坏 - 2009-6-15 19:29:00

引用:

原帖由 zgr稳得起 于 2009-5-25 19:23:00 发表
[quote] 原帖由 西丁宁国 于 2009-5-24 16:19:00 发表
:default6: 我们在工作中偶尔会碰到不会读的英语单词，是打开软件还是打开网页搜都有点费劲，把一个大小只有1k的小东东放到桌面，用时打开输入自己要读的英语单词，马上就可听到示范读音了。
制作过程：建立一个文本文件，在

恩恩，这个好用一点，不会用一次以后就自己关闭了

迷失の坏坏 - 2009-6-15 19:32:00

不知道在我的 VISTA系统用起来怎么样、去试试:kaka1:

wanghhh - 2009-6-16 10:23:00

谢谢了很好用啊

studythem - 2009-6-16 21:11:00

能解释一下这个程序吗？谢谢

tinlok - 2009-6-20 12:36:00

该用户帖子内容已被屏蔽

瑞星卡卡安全论坛