win7 64系统,bat或者vba如何实现:右下角的音量静音?- WScript.Sleep 2000
- Set WshShell = Wscript.CreateObject("Wscript.Shell")
- WshShell.Sendkeys "棶" '减少音量
- WScript.Sleep 2000
- Set WshShell = Wscript.CreateObject("Wscript.Shell")
- WshShell.Sendkeys "棴" '静音
复制代码 上面这2个vbs代码,都不能满足要求。
已经解决了:- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
-
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
-
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
- WScript.Sleep 2000
- Set ws = CreateObject("Wscript.Shell")
- ws.run "cmd /c nircmd.exe mutesysvolume 1",vbhide
复制代码
|