电脑静音.vbs

博主：文海如
发布时间：2007 年 08 月 20 日
3562 次浏览
暂无评论
293字数
分类：随记

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
WScript.Sleep 1000
WshShell.AppActivate "主音量"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{+}"
WshShell.SendKeys "%{F4}"

最后修改：2019 年 03 月 04 日