静音脚本

代码如下

Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AD) '静音非静音切换

使用方法：

新建一个文本文档，然后修改格式txt为vbs，把代码放进去，然后保存文件。双击执行vbs即可实现“静音--非静音”切换
附加其他操作：

ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AF) '增大音量

原理：

利用虚拟键码，例如，增大音量的虚拟键码是 AF，然后找一个在线URL解码编码工具对 %97%AF 进行解码，得到的字符是棷。如果发送 "棷棷" 就是增大两格音量了。
其中，%97%AF 里的 97 是随便一个无效的虚拟键码。当然也可以用两个有效的键码，这样一来就会执行两个功能了，例如对 %b6%b7 进行解码，得到的字符是斗，这个字可以同时打开“我的电脑”和“计算器”。

功能虚拟键码解码后的字符：
打开资源管理器的搜索 AA 棯
打开默认浏览器的首页 AC 棳
静音 AD 棴
减小音量 AE 棶
增大音量 AF 棷
下一首 B0 棸
上一首 B1 棻
停止播放 B2 棽
播放/暂停 B3 棾
启动邮件客户端 B4 棿
启动播放软件 B5 椀
打开“我的电脑” B6 椂
打开“计算器” B7 椃