电脑静音.vbs

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 日 02 : 45 PM
如果觉得我的文章对你有用,请随意赞赏

发表评论