网吧论坛 › 系统技术 › vbs_麦克风声音调到最大

风一样的男孩 发表于 2012-5-3 12:50:17

vbs_麦克风声音调到最大

'调整录音音量到最大,没事别跟我说话
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\Windows\system32\sndvol32.exe"
WScript.Sleep 1000
WshShell.SendKeys "%{p}"
WshShell.SendKeys "{enter}"
WshShell.AppActivate "混音器"
WshShell.SendKeys "{up}"
WshShell.SendKeys "{enter}"
WshShell.AppActivate "录音音量"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Home}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys " "
WshShell.SendKeys "%{F4}"
将上以代码保存为.vbs的格式，运行就OK了。

查看完整版本: vbs_麦克风声音调到最大