如何使用JScript或VBScript控制Windows系统卷？

Question

我想从JScript或VBScript脚本控制Windows系统的音量。有任何想法吗？

此外，我可以取消静音系统音量，如果它被静音？

Answer 1

静音或取消静音系统卷，则可以使用WshShell.SendKeys方法模拟静音按键：

var oShell = new ActiveXObject("WScript.Shell"); 
oShell.SendKeys(Chr(&HAD)); 

至于从脚本改变音量，还有涉及某些Windows自动化的解决方案，例如启动System Volume小应用程序并在其中模拟适当的键盘快捷键，但我认为它不可靠。因此，我建议您使用一些能够更改音量级别的外部实用程序，并从脚本中调用它。例如，你可以使用免费的NirCmd工具：

var oShell = new ActiveXObject("WScript.Shell"); 

// Increase the system volume by 20000 units (out of 65535) 
oShell.Run("nircmd.exe changesysvolume 20000"); 

// Decrease the system volume by 5000 units 
oShell.Run("nircmd.exe changesysvolume -5000"); 

的NirCmd也可以静音或取消静音系统卷：

var oShell = new ActiveXObject("WScript.Shell"); 
oShell.Run("nircmd.exe mutesysvolume 0"); // unmute 
oShell.Run("nircmd.exe mutesysvolume 1"); // mute 
oShell.Run("nircmd.exe mutesysvolume 2"); // switch between mute and unmute 

Answer 2

从浏览器窗口/网页中 - 绝对没有办法。即使技术上可行，浏览器沙箱安全也会禁止它。

从Windows脚本宿主（standalone .vbs或.js文件） - 没有办法，我知道。根据this question，WMI不提供对此的控制权。

Answer 3

在Windows 7上我可以通过控制使用WScript的击键做到这一点。

set oShell = CreateObject("WScript.Shell") 
oShell.run"%SystemRoot%\System32\SndVol.exe" 
WScript.Sleep 1500 
oShell.SendKeys"{TAB} " ' Tab to the mute and press space 
oShell.SendKeys"%{F4}" ' ALT F4 to exit the app. 

我在一个叫静音，Sound.vbs文件保存它，并在桌面上创建一个快捷方式指定快捷键。 CTRL + ALT + F12。由于某些原因，键盘快捷键只有在桌面上才有效，所以我不确定键盘快捷键的可靠性如何！

Answer 4

http://www.nilpo.com/2008/11/windows-xp/mute-sound-volume-in-wsh/ 他使用多媒体键盘静音键的按键。聪明;-)

Set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys(chr(&hAD)) 

Answer 5

Misty庄园的答案也适用于Windows Vita。这个，我从字面上来看，就是在某种意义上也是这样。

set oShell = CreateObject("WScript.Shell") 
oShell.run"%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App. 
WScript.Sleep 1500 'Waits For The Program To Open 
oShell.SendKeys("{PGUP}") 'Turns Up The Volume 20, If It Is Muted Then It Will Unmute It 
oShell.SendKeys("{PGUP}") 'Turns Up The Volume 20 
oShell.SendKeys("{PGUP}") 'Turns Up The Volume 20 
oShell.SendKeys("{PGUP}") 'Turns Up The Volume 20 
oShell.SendKeys("{PGUP}") 'Turns Up The Volume 20 
oShell.SendKeys"%{F4}" ' ALT F4 To Exit The App. 

如果要降低音量，你会做

oShell.SendKeys("{PGDN}") 'It Will Decrease The Volume By 20 

Answer 6

我可以看到用于操作在Windows系统的音量，而无需安装额外的软件，最好的办法是使用VBScript中下列方法之一：

切换静音：（已在前面的回答中提到）

Set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys(chr(&hAD)) 

提高音量：

Set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys(chr(&hAF)) 

降低音量：

Set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys(chr(&hAE)) 

这应该最先进的Windows机器上运行。我已经在Windows 7和8.1上测试了它，即使在LC中使用“do as”运行时也可以正常工作，因此可以将这些脚本嵌入到可执行文件中并运行它们，而无需将它们另存为单个文件。

Answer 7

我用nircmd.exe以及vbscript来控制系统音量。

Set objShell = CreateObject("WScript.Shell") 
If Not WScript.Arguments.Named.Exists("elevate") Then 
    CreateObject("Shell.Application").ShellExecute WScript.FullName _ 
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1 
    WScript.Quit 
End If 
objShell.Run("nircmd.exe setvolume 0 0 0") 

'Set WshShell = WScript.CreateObject("WScript.Shell") 
'WshShell.Popup "Success", "5", "MuteSpeaker" 

' to successfully run this vbscript during log-off, nircmd.exe during should be present in "C:\Windows\System32" 
' [cscript //X scriptfile.vbs MyArg1 MyArg2]