SoundSet

提供: AutoHotkey Wiki
移動: 案内検索

実行制御 | GUI表示 | 演算・変数 | メモリ・DLL操作 | 文字列操作 | キーボード | マウス | シェル | ウィンドウ | ウィンドウグループ
ステータスバー | コントロール | サウンド | ファイル | INIファイル | レジストリ | 環境変数 | AutoHotkey | その他 | 設定関係 | オブジェクト

SoundSet[編集]

サウンドデバイスの各種設定を変更。

SoundSet, NewSetting [, ComponentType, ControlType, DeviceNumber]

Parameters[編集]

引数名 説明
NewSetting 新しい設定を-100...100の間の数値で指定。
引数が +-から始まる場合、現在の設定からの相対値の指定となる。
ControlTypeが ONOFF MUTE MONO LOUDNESS STEREOENH BASSBOOSTの場合、正の値を指定するとONに、 0を指定するとOFFになる。 +-で始まる値では、ON/OFFを切り替える。
ComponentType 以下のどれか。
  • MASTER(デフォルト)
  • DIGITAL
  • LINE
  • MICROPHONE
  • SYNTH
  • CD
  • TELEPHONE
  • PCSPEAKER
  • WAVE
  • AUX
  • ANALOG
  • HEADPHONES
  • N/A

デバイスが存在しない場合、ErrorLevelにその旨を示す文字列が代入される。
同じ種類のものが複数あるときは ANALOG:2のように指定することで、2つ目以降のデバイスを指定できる。多くの場合、1番目は入力、2番目は出力である。

ControlType
  • VOLUME(デフォルト)
  • ONOFF
  • MUTE
  • MONO
  • LOUDNESS
  • STEREOENH
  • BASSBOOST
  • PAN
  • QSOUNDPAN
  • BASS
  • TREBLE
  • EQUALIZER

数値でコントロール番号を指定することもできる。
その設定が存在しない場合、ErrorLevelにその旨を示す文字列が代入される。

DeviceNumber デバイス番号。
デフォルトは 1

ErrorLevel[編集]

AHKL [v1.1.04+] このコマンドは失敗した場合に例外をスローすることができる。詳細は実行時エラーを参照。

成功した場合 0、何か問題があれば以下のような文が代入される。

Invalid Control Type or Component Type 無効なコントロールの種類またはコンポーネントタイプ。
Can't Open Specified Mixer 指定されたミキサーを開くことができません。
Mixer Doesn't Support This Component Type ミキサーは、このコンポーネントタイプをサポートしていません。
Mixer Doesn't Have That Many of That Component Type ミキサーは、そのコンポーネントの種類の多くを持っていない。
Component Doesn't Support This Control Type コンポーネントは、このコントロールの種類をサポートしていません。
Can't Get Current Setting 現在の設定を取得することはできません。
Can't Change Setting 設定は変更できません。

Remarks[編集]

Vista以降では音量の管理の仕組みが変更されたため、このコマンドは意図通りに動作しない。
Windows Vistaおよびそれ以降のサポートはv1.1.10で追加された。

外部ライブラリの Vista Audio Control Functions を利用することで SoundSet/Get の機能を置き換え、より多くの機能とオーディオをより詳細に制御することが可能である。

音量を調整する別の方法として、以下の例のようにボリュームコントロールキーストロークを送信することで代替することが出来る。具体例はサンプルコード集を参照。

Send {Volume_Up}	; マスターボリュームを 1(5%) 上げる。
Send {Volume_Down 3}	; マスターボリュームを 3(15%) 下げる。
Send {Volume_Mute}	; マスターボリュームを ミュート。

このコマンドの引数の ComponentTypeControlType 等の、 システムにインストールされているサウンドデバイス(ミキサー)の詳細を知るには、 サウンド解析スクリプトを実行する。

Windows 2000/XP/2003: このコマンドで音量を変更されたコンポーネントは、左右のバランスが中央に設定されてしまう。SoundSetWaveVolumeではこの副作用は発生しない。

Windows Vistaおよびそれ以降(v1.1.10+): このコマンドで音量レベルを変更しても既存の左右のバランスは保持される。

現在の設定値を取得するには SoundGet を使用する。

Related[編集]

SoundGet, SoundGetWaveVolume, SoundSetWaveVolume, SoundPlay

Example(s)[編集]

; BASIC EXAMPLES:
SoundSet, 50			; Set the master volume to 50%
SoundSet +10			; Increase master volume by 10%
SoundSet -10			; Decrease master volume by 10%
SoundSet, 1, Microphone, mute	; mute the microphone
SoundSet, +1, , mute		; Toggle the master mute (set it to the opposite state)
SoundSet, +20, Master, bass	; Increase bass level by 20%.
If ErrorLevel
    MsgBox, The BASS setting is not supported for MASTER.

サウンド解析スクリプト[編集]

; SOUNDCARD ANALYSIS
; Use the following script to discover your soundcard's capabilities (component types and control types).
; It displays the results in a simple ListView.
SetBatchLines -1
SplashTextOn,,, Gathering Soundcard Info...
; Most of the pure numbers below probably don't exist in any mixer, but they're queried for completeness.
; The numbers correspond to the following items (in order): CUSTOM, BOOLEANMETER, SIGNEDMETER, PEAKMETER,
; UNSIGNEDMETER, BOOLEAN, BUTTON, DECIBELS, SIGNED, UNSIGNED, PERCENT, SLIDER, FADER, SINGLESELECT, MUX,
; MULTIPLESELECT, MIXER, MICROTIME, MILLITIME
ControlTypes = VOLUME,ONOFF,MUTE,MONO,LOUDNESS,STEREOENH,BASSBOOST,PAN,QSOUNDPAN,BASS,TREBLE,EQUALIZER,0x00000000, 0x10010000,0x10020000,0x10020001,0x10030000,0x20010000,0x21010000,0x30040000,0x30020000,0x30030000,0x30050000,0x40020000,0x50030000,0x70010000,0x70010001,0x71010000,0x71010001,0x60030000,0x61030000
ComponentTypes = MASTER,HEADPHONES,DIGITAL,LINE,MICROPHONE,SYNTH,CD,TELEPHONE,PCSPEAKER,WAVE,AUX,ANALOG,N/A
; Create a ListView and prepare for the main loop:
Gui, Add, ListView, w400 h400 vMyListView, Component Type|Control Type|Setting|Mixer
LV_ModifyCol(4, "Integer")
SetFormat, Float, 0.2  ; Limit number of decimal places in percentages to two.
Loop  ; For each mixer number that exists in the system, query its capabilities.
{
    CurrMixer := A_Index
    SoundGet, Setting,,, %CurrMixer%
    If ErrorLevel = Can't Open Specified Mixer  ; Any error other than this indicates that the mixer exists.
        Break
    ; For each component type that exists in this mixer, query its instances and control types:
    Loop, Parse, ComponentTypes, `,
    {
        CurrComponent := A_LoopField
        ; First check if this component type even exists in the mixer:
        SoundGet, Setting, %CurrComponent%,, %CurrMixer%
        If ErrorLevel = Mixer Doesn't Support This Component Type
            Continue  ; Start a new iteration to move on to the next component type.
        Loop  ; For each instance of this component type, query its control types.
        {
            CurrInstance := A_Index
            ; First check if this instance of this instance even exists in the mixer:
            SoundGet, Setting, %CurrComponent%:%CurrInstance%,, %CurrMixer%
            ; Checking for both of the following errors allows this script to run on older versions:
            If ErrorLevel in Mixer Doesn't Have That Many of That Component Type,Invalid Control Type or Component Type
                Break  ; No more instances of this component type.
            ; Get the current setting of each control type that exists in this instance of this component:
            Loop, Parse, ControlTypes, `,
            {
                CurrControl := A_LoopField
                SoundGet, Setting, %CurrComponent%:%CurrInstance%, %CurrControl%, %CurrMixer%
                ; Checking for both of the following errors allows this script to run on older versions:
                If ErrorLevel in Component Doesn't Support This Control Type,Invalid Control Type or Component Type
                    Continue
                If ErrorLevel  ; Some other error, which is unexpected so show it in the results.
                    Setting := ErrorLevel
                ComponentString := CurrComponent
                If CurrInstance > 1
                    ComponentString = %ComponentString%:%CurrInstance%
                LV_Add("", ComponentString, CurrControl, Setting, CurrMixer)
            }  ; For each control type.
        }  ; For each component instance.
    }  ; For each component type.
}  ; For each mixer.
Loop % LV_GetCount("Col")  ; Auto-size each column to fit its contents.
    LV_ModifyCol(A_Index, "AutoHdr")
SplashTextOff
Gui, Show
Return
GuiClose:
ExitApp