Board logo

标题: [系统相关] [已解决]win7 64系统，bat或者vba如何实现：右下角的音量静音？ [打印本页]
作者: ygqiang    时间: 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
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2