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