[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统相关] [已解决]win7 64系统,bat或者vba如何实现:右下角的音量静音?

win7 64系统,bat或者vba如何实现:右下角的音量静音?
  1. WScript.Sleep 2000
  2. Set WshShell = Wscript.CreateObject("Wscript.Shell")
  3. WshShell.Sendkeys "棶"  '减少音量
  4. WScript.Sleep 2000
  5. Set WshShell = Wscript.CreateObject("Wscript.Shell")
  6. WshShell.Sendkeys "棴"  '静音
复制代码
上面这2个vbs代码,都不能满足要求。


已经解决了:
  1. WScript.Sleep 2000
  2. Set ws = CreateObject("Wscript.Shell")
  3. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  4. WScript.Sleep 2000
  5. Set ws = CreateObject("Wscript.Shell")
  6. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  7. WScript.Sleep 2000
  8. Set ws = CreateObject("Wscript.Shell")
  9. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  10. WScript.Sleep 2000
  11. Set ws = CreateObject("Wscript.Shell")
  12. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  13. WScript.Sleep 2000
  14. Set ws = CreateObject("Wscript.Shell")
  15. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  16. WScript.Sleep 2000
  17. Set ws = CreateObject("Wscript.Shell")
  18. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  19. WScript.Sleep 2000
  20. Set ws = CreateObject("Wscript.Shell")
  21. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  22. WScript.Sleep 2000
  23. Set ws = CreateObject("Wscript.Shell")
  24. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  25. WScript.Sleep 2000
  26. Set ws = CreateObject("Wscript.Shell")
  27. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  28. WScript.Sleep 2000
  29. Set ws = CreateObject("Wscript.Shell")
  30. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  31. WScript.Sleep 2000
  32. Set ws = CreateObject("Wscript.Shell")
  33. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  34. WScript.Sleep 2000
  35. Set ws = CreateObject("Wscript.Shell")
  36. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  37. WScript.Sleep 2000
  38. Set ws = CreateObject("Wscript.Shell")
  39. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  40. WScript.Sleep 2000
  41. Set ws = CreateObject("Wscript.Shell")
  42. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
  43. WScript.Sleep 2000
  44. Set ws = CreateObject("Wscript.Shell")
  45. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
复制代码

返回列表