不需要你那么麻烦，用以下命令实现音量减（用循环可以实现一直减）：
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(chr(&hAE))
音量增（用循环可以实现一直增）：
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(chr(&hAF))
本机测试通过，有问题追问哈。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024