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

VBS怎么调用系统录音机播放声音文件?

我本来想学以致用做一个忙乱菜倒计时的脚本程序的,到时间时播放一段声音,并且弹出一个”总在最前“的对话框,如下:
  1. dim time1
  2. time1=inputbox("倒计时(单位/秒)","输入值",10)
  3. time2=time1*1000
  4. wscript.sleep time2
  5. set ws=wscript.createobject("wscript.shell")
  6. MsgBox time1&"秒倒计时到了呢^__^",,"aa"                          ‘问题之一,出现这个对话框的,程序就暂停了,我希望弹出后程序能继续运行后面的
  7. ws.run "sndrec32.exe /k E:\cs1.6\BACKUP\cricket.wav"       ‘问题二,默认不会自动播放声音文件,还要点击按钮才行,当然可以用sendkeys但是有相关的参数吗。
  8. while ws.appActivate ("aa")=true                                          ‘问题三,这里是为了使窗口最前的,当然我知道可以直接 x=MsgBox("**", vbSystemModal),但是我因此死过机。
  9. wscript.sleep 1000
  10. ws.AppActivate ("aa")
  11. wscript.sleep 1000
  12. oshell.sendkeys "{enter}"
  13. wend
  14. wscript.quit
复制代码
以前是玩的批处理,近几天刚刚研究vbs脚本,所以还有很多的地方不懂,希望能和大家一起探讨。

回复 2楼 的帖子

感谢版主解决声音问题

TOP

sndrec32 /close /play c:\a.wav

TOP

返回列表