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

eyecatch_636

問題点

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キーの入力を1回足したことにより-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%にして、音量ミキサーを閉じます。

タイマーにする方法

タイマーに関しては、Windows10の標準機能のタスクスケジューラを使用すればできます。
希望の時間に、作成したプログラムが実行されるようにすれば完成です。

24時間動いている場合は、時間指定でいいですが、電源ON/OFFするPCであれば、例えば、起動時は音量100%にして1時間ごとに音量を変更するようにするなど工夫が必要になります。
もちろん、プログラムで時間を取得して動作させるプログラムの分岐にしても良いかもしれません。

オススメ記事

eyecatch_145

VBS (VBScript) sleep スクリプトを一時停止する方法 WAIT…

概要 VBSでスクリプトを一時停止したい時の方法となります。…

eyecatch_636

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

問題点 Windows10で朝8時になったら音量100%(音…