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

Rank: 5Rank: 5

帖子
1261 
积分
692 
技术
12  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-10-7 23:34 | 只看该作者

[系统相关] [已解决]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. 

  17. WScript.Sleep 2000

  18. Set ws = CreateObject("Wscript.Shell") 

  19. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  20. WScript.Sleep 2000

  21. Set ws = CreateObject("Wscript.Shell") 

  22. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  23. WScript.Sleep 2000

  24. Set ws = CreateObject("Wscript.Shell") 

  25. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  26. WScript.Sleep 2000

  27. Set ws = CreateObject("Wscript.Shell") 

  28. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  29. WScript.Sleep 2000

  30. Set ws = CreateObject("Wscript.Shell") 

  31. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  32. 

  33. WScript.Sleep 2000

  34. Set ws = CreateObject("Wscript.Shell") 

  35. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  36. WScript.Sleep 2000

  37. Set ws = CreateObject("Wscript.Shell") 

  38. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  39. WScript.Sleep 2000

  40. Set ws = CreateObject("Wscript.Shell") 

  41. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  42. WScript.Sleep 2000

  43. Set ws = CreateObject("Wscript.Shell") 

  44. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide

  45. WScript.Sleep 2000

  46. Set ws = CreateObject("Wscript.Shell") 

  47. ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
复制代码
收藏 分享

返回列表