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)
'增大音量