汶海洳

电脑静音.vbs
Dim WshShell Set WshShell = CreateObject("WScript.Sh...
扫描右侧二维码阅读全文
20
2007/08

电脑静音.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
如果觉得我的文章对你有用,请随意赞赏

发表评论