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

返回列表