vbs_麦克风声音调到最大

风一样的男孩

1. '调整录音音量到最大,没事别跟我说话
2. Dim WshShell
3. Set WshShell = CreateObject("WScript.Shell")
4. WshShell.Run "C:\Windows\system32\sndvol32.exe"
5. WScript.Sleep 1000
6. WshShell.SendKeys "%{p}"
7. WshShell.SendKeys "{enter}"
8. WshShell.AppActivate "混音器"
9. WshShell.SendKeys "{up}"
10. WshShell.SendKeys "{enter}"
11. WshShell.AppActivate "录音音量"
12. WshShell.SendKeys "{Tab}"
13. WshShell.SendKeys "{Home}"
14. WshShell.SendKeys "{Tab}"
15. WshShell.SendKeys " "
16. WshShell.SendKeys "%{F4}"

复制代码

将上以代码保存为.vbs的格式，运行就OK了。