Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AD) '静音非静音切换
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AF) '增大音量
Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AD) '静音非静音切换
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AF) '增大音量
3782

被折叠的 条评论
为什么被折叠?