'----------代码
set player = createobject("wmplayer.ocx")
player.url ="na.wav"
do until wmp playState = 1
wsh.sleep 100
loop
'---------结束
以上内容保存为 na.vbs
if "%1"=="hide" goto CmdBegin
start mshta vbscript:createobject("wscript.shell").run("""%~0"" hide",0)(window.close)&&exit
:CmdBegin
d:
cd %~dp0
start "" na.vbs
timeout 3
taskkill -f -im wscript.exe
exit
以上内容保存为na.bat 之所以在用一层bat 是因为不会vbs 搞不定路径问题,所以用bat进入相对应的路径在运行