VBScriptでiTunesの音質をドンシャリに
少し前に掲載したiTunesを使ったMP3エンコードのオマケみたいなものです(笑)
VBScriptでiTunesのイコライザーを操作し、※ドンシャリサウンドにします。
(※高域と低域の音量が上がった周波数特性。若しくは中域だけ下がった状態。)
'SetEQVal.vbs Option Explicit Dim objIT Dim i Set objIT = CreateObject("iTunes.Application") With objIT.EQPresets For i = 1 To .Count If .Item(i).Name = "手動" Then objIT.CurrentEQPreset = .Item(i) With .Item(i) .Band1 = "8"'32Hz .Band2 = "5"'64Hz .Band3 = "2"'125Hz .Band4 = "-1"'250Hz .Band5 = "-4"'500Hz .Band6 = "-4"'1kHz .Band7 = "-1"'2kHz .Band8 = "2"''4kHz .Band9 = "5"'8kHz .Band10 = "8"'16kHz Exit For End With End If Next End With Set objIT = Nothing
プリセットを選択出来る場所の「手動」の値を変更します。
「ファイル名を指定して実行」からこのスクリプトを呼び出せば、即座に音質が変更出来ます。
実用的に使うにはいくつかのVBSファイルを用意したり、If文使っていくつかの任意の音質に変更出来ると良いと思います。
あくまでサンプル(笑)
- 作者: 五十嵐貴之
- 出版社/メーカー: ソシム
- 発売日: 2009/06/01
- メディア: 単行本
- 購入: 1人 クリック: 65回
- この商品を含むブログ (27件) を見る