本記事はプロモーションを含みます

Windows10 タイマーで音量を調整するプログラム

2021年2月22日

1. 問題点
2. 解決方法

問題点

Windows10で朝8時になったら音量100％（音量最大）、夜8時になったら音量0%（消音）などを自動でできるようにしたい。Windows10になってから、ちょうどよいソフトなどがなくなって不便です。VBScriptとタスクスケジューラーを使って解決することにしました。

解決方法

次に紹介するのは、VBScriptのファイルです。それぞれ、拡張子を「vbs」にして保存してください。

音量を100%にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{home}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量100％（音量最大）にして、音量ミキサーを閉じます。
細かいプログラムの内容を記載しませんが、ウエイトで2000ms入れているのがポイントです。ここが短すぎると、次の処理を受け付けないです。パソコンの処理が速い場合は、もう少し長めに設定したほうがいいかもしれません。

音量を0％にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{end}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量0％（消音）にして、音量ミキサーを閉じます。

音量を80%にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{end}"

	WScript.Sleep 2000
	wShell.SendKeys "{pgdn}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量80％にして、音量ミキサーを閉じます。
PageDownキーの入力を１回足したことにより-20%になるため、100-20=80%となります。

音量を60%にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{end}"

	WScript.Sleep 2000
	wShell.SendKeys "{pgdn}"
	WScript.Sleep 2000
	wShell.SendKeys "{pgdn}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量60％にして、音量ミキサーを閉じます。

音量を40%にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{end}"

	WScript.Sleep 2000
	wShell.SendKeys "{pgup}"
	WScript.Sleep 2000
	wShell.SendKeys "{pgup}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量40％にして、音量ミキサーを閉じます。

音量を20%にする方法

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"

	WScript.Sleep 2000
	wShell.SendKeys "{end}"

	WScript.Sleep 2000
	wShell.SendKeys "{pgup}"
	WScript.Sleep 2000
	wShell.SendKeys "{esc}"

Set wShell = Nothing

このプログラムで、音量ミキサーを開いた後、音量20％にして、音量ミキサーを閉じます。