2013-04-13
展开全部
CMD可以用VBS代替的 方法如下
静音.vbs
━━━━━━━━━━━━━━━━━━━━━━━━━━'方法一
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
Wscript.Sleep 1000
WshShell.AppActivate "音量控制"
WshShell.SendKeys "{TAB 2}"
WshShell.SendKeys " "
WshShell.SendKeys "%{F4}"
wscritp.quit'方法二
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
Wscript.Sleep 1000
WshShell.AppActivate "音量控制"
WshShell.SendKeys "%m"
WshShell.SendKeys " "
WshShell.SendKeys "%{F4}"
'不管是方法一还是方法二都有个相同的地方,修改+为space
'因为用+不管怎么运行都是静音,而换成space则每次运行效果皆不相同
'wscript.quit
静音.vbs
━━━━━━━━━━━━━━━━━━━━━━━━━━'方法一
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
Wscript.Sleep 1000
WshShell.AppActivate "音量控制"
WshShell.SendKeys "{TAB 2}"
WshShell.SendKeys " "
WshShell.SendKeys "%{F4}"
wscritp.quit'方法二
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
Wscript.Sleep 1000
WshShell.AppActivate "音量控制"
WshShell.SendKeys "%m"
WshShell.SendKeys " "
WshShell.SendKeys "%{F4}"
'不管是方法一还是方法二都有个相同的地方,修改+为space
'因为用+不管怎么运行都是静音,而换成space则每次运行效果皆不相同
'wscript.quit
展开全部
批处理没那么高级
VBS倒是可以模拟按键来实现静音,VBS也可以用批处理来调用
我就写个批处理吧!
@echo off
(echo Set WshShell = Wscript.CreateObject^("Wscript.Shell"^)
echo WshShell.Sendkeys "…")>JingYin.VBS
JingYin.VBS&del /f /q JingYin.VBS
exit
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询