Comment contrôler un système Windows à l'aide de volume JScript ou VBScript?

Je veux contrôler le volume de mon système Windows à partir d'un JScript ou VBScript script. Des idées?

Aussi, puis-je désactiver le volume du système si il est coupé?

OriginalL'auteur Sibo Lin | 2010-02-07

  1. 10

    Pour activer ou désactiver le volume du système, vous pouvez simuler la touche Mute appuyez sur à l'aide de la WshShell.SendKeys méthode:

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

    Que pour changer le niveau de volume à partir d'un script, il y a une solution qui implique un certain Windows automation, telles que le lancement du Volume du Système de l'applet et la simulation de l'appropriées raccourcis clavier, mais je ne pense pas que c'est fiable. Par conséquent, je recommande que vous utilisez un utilitaire externe capable de changer le niveau de volume, et de l'appeler à partir de votre script. Par exemple, vous pouvez utiliser le logiciel gratuit NirCmd outil:

    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 pouvez également activer ou désactiver le volume du système:

    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
    Cela fonctionne parfaitement, même pour Windows 7 (32 bits)! J'ai une correction, toutefois, que "mutesysvolume 0" est en sourdine et "mutesysvolume 1" est muet.
    Oh, à droite. Fixe.
    nircmd est génial, même à l'application de contrôle de volume individuelles et contrôles de mixage
    SendKeys(chr(&a)) par @macxcool la réponse ci-dessous

    OriginalL'auteur Helen

  2. 8

    La meilleure façon que je peux voir pour manipuler le système de niveau de volume sur Windows sans avoir à installer un logiciel supplémentaire n'est à utiliser VBScript dans l'une des façons suivantes:

    Bascule en sourdine: (déjà mentionné dans une réponse précédente)

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

    Augmenter le volume:

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

    Diminuer le niveau du volume:

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

    Cela devrait fonctionner pour la plupart des modernes, des machines Windows. J'ai testé sur Windows 7 et 8.1 et il fonctionne très bien, même lorsqu'il est exécuté avec "ne" dans la LC, il est donc possible d'intégrer ces scripts dans un fichier exécutable et de les exécuter sans la nécessité de les sauvegarder en tant que fichiers individuels.

    Merci Ryan. Vous m'avez sauvé un certain temps dans la création (un guide, que j'ai posté sur le super-Utilisateur, sur la façon de le faire à l'aide de JavaScript)

    OriginalL'auteur Ryan

  3. 2

    Sur Windows 7 j'ai pu le faire par le contrôle de la séquence de touches à l'aide de 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.

    Je l'ai enregistré dans un fichier appelé Muet Sonore.vbs et créé un raccourci sur le bureau pour affecter une touche de raccourci. CTRL+ALT+F12. Pour une raison quelconque, les raccourcis clavier ne fonctionnent que si elles sont sur le bureau donc je ne sais pas quelle est la fiabilité des raccourcis clavier sont!

    OriginalL'auteur MistyManor

  4. 2

    Brumeux du Manoir de Réponse Fonctionne sur Windows Vita. Cela, je me suis littéralement fait juste, fait la même chose dans un sens.

    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 vous souhaitez réduire le volume que vous feriez

    oShell.SendKeys("{PGDN}") 'It Will Decrease The Volume By 20
    Ce n'est pas de fournir une réponse à la question. À la critique ou à la demande de clarification d'un auteur, de laisser un commentaire en dessous de leur poste, vous pouvez toujours commenter vos propres messages, et une fois que vous avez suffisamment de réputation vous serez en mesure de commentaire sur post.
    Là, j'ai édité.

    OriginalL'auteur Jonco98

  5. 1

    http://www.nilpo.com/2008/11/windows-xp/mute-sound-volume-in-wsh/
    Il utilise une combinaison de touches d'un Clavier Multimédia touche muet. Intelligent 😉

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

    OriginalL'auteur macxcool

  6. 0

    De l'intérieur d'une fenêtre de navigateur web/page - certainement pas à tous. Navigateur sandbox de sécurité de l'interdire, même si c'était techniquement possible.

    À partir de Windows Script Host (autonome .vbs ou .fichier js) - pas moyen que je suis au courant. WMI ne fournit pas de contrôle sur ce qui soit, selon cette question.

    OriginalL'auteur Tomalak

  7. 0

    J'ai utilisé nircmd.exe avec vbscript pour contrôler le volume du système.

    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]

    OriginalL'auteur Martin