[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]vbs读英语单词怎样再次发音和再次输入单词?

是这样,小孩英语学习需要,俺有英语不行,今日在其他论坛下到如下的VBS,可以发英语读音,只是功能还不满意,希望懂VBS的兄弟们帮忙完成个,要求有两个,一  不要自动退出。  二  要还能再次发音和允许再次输入单词
代码如下,要求用图片表示可能方便理解要的功能。
  1. dim msg,sapi
  2. msg=inputBox("输入文字","开口说话")
  3. set sapi=CreateObject("sapi.spvoice")
  4. sapi.Speak msg
复制代码
1

评分人数

    • Batcher: 感谢主动给标题标注[已解决]字样PB + 2
目的,学习批处理

保存为hta文件运行
  1. <html>
  2. <head>
  3. <title>单词发音</title>
  4. <hta:application showintaskbar="no" maximizebutton="no" minimizebutton="no" scroll="no"/>
  5. <script >
  6. window.resizeTo(340, 100);
  7. var sapi=new ActiveXObject('sapi.spvoice');
  8. function read(){
  9.     var txt = document.getElementById('txt');
  10.     var btn = document.getElementById('btn');
  11.     if(txt.value){
  12.         sapi.Speak(txt.value);
  13.         btn.value = '重读';
  14.     }else txt.value = '此处输入英文单词或句子';
  15. }
  16. function reset(t){
  17.     t.value='';
  18.     var btn = document.getElementById('btn');
  19.     btn.value = '发音';
  20. }
  21. </script>
  22. <head>
  23. <body style="text-align:center;">
  24. <input id="txt" type="text" style="width:200px;color:#FF0000;" value="此处输入英文单词或句子" onfocus="reset(this)"/>&nbsp;
  25. <input id="btn" type="button" value="发音" onclick="read();" />
  26. </body>
  27. </html>
复制代码

TOP

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

[ 本帖最后由 hlzj88 于 2010-2-27 19:22 编辑 ]
目的,学习批处理

TOP

VBS不支持自己弄按钮出来,用这个吧。
按回车重读;
要重新输入直接可以输,因为文字是已选中状态,可以直接改写;
点“取消”或者右上角的“×”退出程序
  1. dim msg,sapi
  2. msg = " "
  3. set sapi=CreateObject("sapi.spvoice")
  4. Do
  5. msg=inputBox("输入文字","开口说话",msg)
  6. sapi.Speak msg
  7. Loop Until msg = ""
复制代码
1

评分人数

TOP

返回列表