¿Cómo controlar el volumen del sistema de Windows utilizando JScript o VBScript?

Question

Quiero controlar el volumen de mi sistema Windows desde un script de JScript o VBScript. ¿Algunas ideas?

Además, ¿puedo anular el silenciamiento del volumen del sistema si está silenciado?

Answer 1

Para silenciar o activar el volumen del sistema, se puede simular la pulsación de tecla Mute utilizando el WshShell.SendKeys método:

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

Como para cambiar el nivel de volumen de un guión, hay una solución que implica una cierta automatización de Windows, como iniciar el applet de System Volume y simular los atajos de teclado apropiados en él, pero no creo que sea confiable. Por lo tanto, le recomiendo que utilice alguna utilidad externa capaz de cambiar el nivel de volumen y llamarlo desde su secuencia de comandos. Por ejemplo, se puede utilizar la herramienta gratuita 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 también puede silenciar o activar el volumen del sistema:

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

Desde dentro de una ventana del navegador/página web - definitivamente no hay manera. La seguridad del espacio aislado del navegador lo prohibiría incluso si fuera técnicamente posible.

Desde Windows Script Host (archivo .vbs o .js independiente): no hay forma que yo sepa. WMI tampoco proporciona control sobre esto, de acuerdo con this question.

Answer 3

En Windows 7 podría hacer esto mediante el control de las pulsaciones de teclas utilizando 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. 

I guardado en un archivo llamado Silencio-Sound.vbs y crea un acceso directo en el escritorio para asignar una tecla de acceso directo. CTRL + ALT + F12. Por alguna razón, los atajos de teclado solo funcionan si están en el escritorio, así que no estoy seguro de cuán confiables son los atajos de teclado.

Answer 4

http://www.nilpo.com/2008/11/windows-xp/mute-sound-volume-in-wsh/ Utiliza una pulsación de tecla de una tecla de silenciamiento del teclado multimedia. Inteligente ;-)

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

Answer 5

respuesta de Misty Manor funciona en Windows Vita también. Esto, literalmente, lo hice, hace lo mismo en cierto sentido.

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. 

Si desea bajar el volumen que haría

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

Answer 6

La mejor manera que puedo ver para manipular el nivel de volumen del sistema en Windows sin necesidad de instalar software adicional es el uso de VBScript en una de las siguientes maneras:

Activar silenciado: (ya mencionado en una respuesta anterior)

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

nivel de volumen

Aumento:

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

Reducir el nivel de volumen:

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

Esto debería funcionar para la mayoría de las máquinas modernas de Windows. He probado esto en Windows 7 y 8.1 y funciona bien incluso cuando se ejecuta con "hacer como" en LC, por lo que es posible insertar estos scripts dentro de un archivo ejecutable y ejecutarlos sin la necesidad de guardarlos como archivos individuales.

Answer 7

Usé nircmd.exe junto con vbscript para controlar el volumen del sistema.

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]