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

abxialiang

我本来想学以致用做一个忙乱菜倒计时的脚本程序的，到时间时播放一段声音，并且弹出一个”总在最前“的对话框，如下：

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. 
   
9. while ws.appActivate ("aa")=true                                          ‘问题三，这里是为了使窗口最前的，当然我知道可以直接 x=MsgBox("**", vbSystemModal)，但是我因此死过机。
   
10. wscript.sleep 1000
    
11. ws.AppActivate ("aa")
    
12. wscript.sleep 1000
    
13. oshell.sendkeys "{enter}"
    
14. wend
    
15. wscript.quit

复制代码

以前是玩的批处理，近几天刚刚研究vbs脚本，所以还有很多的地方不懂，希望能和大家一起探讨。

rat

sndrec32 /close /play c:\a.wav

abxialiang

感谢版主解决声音问题