瑞星卡卡安全论坛技术交流区系统软件 一个好用的英语学习工具

12   1  /  2  页   跳转

一个好用的英语学习工具

一个好用的英语学习工具

    我们在工作中偶尔会碰到不会读的英语单词,是打开软件还是打开网页搜都有点费劲,把一个大小只有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)
分享到:
gototop
 

回复:一个好用的英语学习工具

多谢楼主分享~  这下学口语不用愁了
您好,您所拨打的用户已关机,请稍后再拨,如要留言请回复1,如要求视频请回复2,如闲得蛋疼请回复3后就近联系当地医院预约割蛋手术,尿频尿急请直接上厕所并服用三金片
gototop
 

回复:一个好用的英语学习工具

该用户帖子内容已被屏蔽
gototop
 

回复:一个好用的英语学习工具

这是什么原理?
gototop
 

回复: 一个好用的英语学习工具



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

[size

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


最后编辑zgr稳得起 最后编辑于 2009-05-25 19:39:30
“请让我来帮助你,就像帮助我自己......”
gototop
 

回复:一个好用的英语学习工具

gototop
 

回复:一个好用的英语学习工具

该用户帖子内容已被屏蔽
gototop
 

回复:一个好用的英语学习工具

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

回复: 一个好用的英语学习工具



引用:
原帖由 西丁宁国 于 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
最后编辑zgr稳得起 最后编辑于 2009-05-30 23:40:12
“请让我来帮助你,就像帮助我自己......”
gototop
 

回复:一个好用的英语学习工具

用 google 金山词霸吧 挺好的
gototop
 
12   1  /  2  页   跳转
页面顶部
Powered by Discuz!NT