[已解决]win7 64系统，bat或者vba如何实现：右下角的音量静音？

ygqiang

win7 64系统，bat或者vba如何实现：右下角的音量静音？

1. 
   
2. 
   
3. WScript.Sleep 2000
   
4. Set WshShell = Wscript.CreateObject("Wscript.Shell")
   
5. WshShell.Sendkeys "棶"  '减少音量
   
6. WScript.Sleep 2000
   
7. Set WshShell = Wscript.CreateObject("Wscript.Shell")
   
8. WshShell.Sendkeys "棴"  '静音
   
9. 
   

复制代码

上面这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

复制代码