系统音效控制

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Sendkeys "增音"  '静音 减音 增音

　　

Set WshShell = Wscript.CreateObject("Wscript.Shell")WshShell.Sendkeys "增音"  '静音 减音 增音