搜藏共享

专注于品牌网站建设

电脑静音.vbs

0 评

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}"

在QQ里被忽略的技巧!!!
发表评论
撰写评论