Rem 批处理 自动调整音量及关机 @cyq.me Dim WshShell Set WshShell = CreateObject("Wscript.Shell") Rem 网络收音机安装在D盘,根据实际位置修改. WshShell.Run "D:\Progra~1\CRadio\CRadio.exe" Wscript.Sleep 1000 WshShell.Run "C:\Windows\system32\sndvol.exe",0 Wscript.Sleep 1000 WshShell.SendKeys "{PGDN 5}" Rem 音量大小,修改5的数值 WshShell.SendKeys "{UP 5}" WshShell.SendKeys "%{F4}" Rem 900秒自动关机 WshShell.Run "shutdown -s -f -t 900"