批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]vbs读英语单词怎样再次发音和再次输入单词？ [打印本页]

作者: hlzj88 时间: 2010-2-27 00:38 标题: [已解决]vbs读英语单词怎样再次发音和再次输入单词？

是这样，小孩英语学习需要，俺有英语不行，今日在其他论坛下到如下的VBS，可以发英语读音，只是功能还不满意，希望懂VBS的兄弟们帮忙完成个，要求有两个，一不要自动退出。二要还能再次发音和允许再次输入单词
代码如下，要求用图片表示可能方便理解要的功能。

dim msg,sapi
msg=inputBox("输入文字","开口说话")
set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
复制代码

作者: Spring 时间: 2010-2-27 13:21

VBS不支持自己弄按钮出来，用这个吧。
按回车重读；
要重新输入直接可以输，因为文字是已选中状态，可以直接改写；
点“取消”或者右上角的“×”退出程序

dim msg,sapi
msg = " "
set sapi=CreateObject("sapi.spvoice")
Do
msg=inputBox("输入文字","开口说话",msg) 
sapi.Speak msg
Loop Until msg = ""
复制代码

作者: hlzj88 时间: 2010-2-27 18:54

谢谢SPRING,很好了。
谢谢版主改该主题，以后尽力把标题写到位。

[ 本帖最后由 hlzj88 于 2010-2-27 19:22 编辑 ]

作者: pcl_test 时间: 2017-3-20 12:38

保存为hta文件运行

<html>
<head>
<title>单词发音</title>
<hta:application showintaskbar="no" maximizebutton="no" minimizebutton="no" scroll="no"/>
<script >
window.resizeTo(340, 100);
var sapi=new ActiveXObject('sapi.spvoice');
function read(){
    var txt = document.getElementById('txt');
    var btn = document.getElementById('btn');
    if(txt.value){
        sapi.Speak(txt.value);
        btn.value = '重读';
    }else txt.value = '此处输入英文单词或句子';
}
function reset(t){
    t.value='';
    var btn = document.getElementById('btn');
    btn.value = '发音';
}
</script>
<head>
<body style="text-align:center;">
<input id="txt" type="text" style="width:200px;color:#FF0000;" value="此处输入英文单词或句子" onfocus="reset(this)"/>&nbsp;
<input id="btn" type="button" value="发音" onclick="read();" />
</body>
</html>
复制代码

欢迎光临批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2