VBS 控制 Windos 系统音量 及视频播放

控制总览

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

控制原理

  • 例如增大音量的虚拟键码是 AF,然后找一个在线URL解码编码工具对 %97%AF 进行解码,得到的字符是 “棷”。
  • 如果发送 "棷棷" 就是增大两格音量了,其中%97%AF 里的 97 是随便一个无效的虚拟键码。当然也可以用两个有效的键码,这样一来就会执行两个功能了,例如对 %b6%b7 进行解码,得到的字符是“斗”,这个字可以同时打开“我的电脑”和“计算器”。
  • 所以“静音代码:CreateObject("Wscript.Shell").Sendkeys "棴"
  • 增大音量代码:CreateObject("Wscript.Shell").Sendkeys "棷"
  • 其余的控制同理类似

控制音量减

  • 新建一个.vbs文件,输入如下内容即可。经过测试发现除了“ 棶”字符可以,下面的"爱"字符也可以
  • 建议使用"棶"而不是"爱",因为使用"爱"字符时,PotPlayer会直接进入"下一曲"
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "" 
  • 每双击运行一次vbs脚本,电脑左上角就会短暂的出现音量图标,数值会减去2,电脑系统音量总共是100,即从100减到0,最多只需要运行50次即可


  • 系统音量是[0,100],减音量一次,系统音量下降2,如下所示,设置for循环连续减音量25次
for i=1 to 25
CreateObject("Wscript.Shell").Sendkeys ""
next

控制音量加

  • 新建一个.vbs文件,输入如下内容即可。经过测试发现,除了"棷"字符可以,"怜"字符也可以。
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys ""
  • 每双击运行一次vbs脚本,电脑左上角就会短暂的出现音量图标,数值会加上2,电脑系统音量总共是100,即从0加到100,最多只需要运行50次即可

  • 系统音量是[0,100],加音量一次,系统音量上升2,如下所示,设置for循环连续加音量50次
for i=1 to 50
CreateObject("Wscript.Shell").Sendkeys ""
next


控制静音

  • 新建一个.vbs文件,输入如下内容即可。经过测试发现除了"棴"字符可以,使用"..."也可以达到同样的效果
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棴"

控制播放暂停

  • 新建vbs文件,输入下面内容
  • 无论是Windows自带的"windows media player"还是常用的PotPayer、网易云音乐,实测都是ok的,而且即使播放器窗口没有处于最前端,哪怕是最小化,都可以正常控制
CreateObject("Wscript.Shell").Sendkeys ""





猜你喜欢

转载自blog.csdn.net/wangmx1993328/article/details/80855770
vbs