その買うを、もっとハッピーに。|ハピタス

VBScriptでiTunesの音質をドンシャリに

少し前に掲載したiTunesを使ったMP3エンコードのオマケみたいなものです(笑)
VBScriptiTunesイコライザーを操作し、※ドンシャリサウンドにします。
(※高域と低域の音量が上がった周波数特性。若しくは中域だけ下がった状態。)

'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文使っていくつかの任意の音質に変更出来ると良いと思います。
あくまでサンプル(笑)



Windows自動処理のためのWSHプログラミングガイド

Windows自動処理のためのWSHプログラミングガイド