wshShell.SendKeys（Chr（175））不起作用

Question

我正在尝试编写一个将在Wndows 10中调高音量的脚本。但是有一个问题，因为这个特定的击键会使音量增大不起作用。静音和音量调低完美。

Set wshShell = CreateObject("WScript.Shell")

For i = 0 To 50
    wshShell.SendKeys(Chr(175))
Next

Answer 1

您可以使用NirCmd工具。

示例：

Set WshShell = WScript.CreateObject("WScript.Shell")

' Increase the system volume by 20000 units (out of 65535)
WshShell .Run("nircmd.exe changesysvolume 20000")

' Decrease the system volume by 5000 units
WshShell .Run("nircmd.exe changesysvolume -5000")