Board logo

标题: VBS怎么调用系统录音机播放声音文件? [打印本页]

作者: abxialiang    时间: 2010-4-13 19:18     标题: 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脚本,所以还有很多的地方不懂,希望能和大家一起探讨。
作者: rat    时间: 2010-4-13 20:31

sndrec32 /close /play c:\a.wav
作者: abxialiang    时间: 2010-4-13 21:18     标题: 回复 2楼 的帖子

感谢版主解决声音问题




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2