A.I.VOICEが喋っているか喋っていないかをVB.NETで判断するソースコード

プログラムの内容

サンプルコードの使用方法

ソースコード

Imports NAudio.CoreAudioApi

Public Class Form1

    Private iDeviceEnumerator As MMDeviceEnumerator
    Private iRender As MMDevice
    Private iRenderAudioSessionManager As AudioSessionManager
    Private iRenderSessions As SessionCollection
    Private iAIVoice_ProcessID As String
    Private Const cApp_Name As String = "AIVoiceEditor.exe"

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Call GetAIVoiece_ProcessID()
        Timer1.Enabled = True

    End Sub

    '**********************************************************************************************
    'A.I.VOICEのプロセスIDを取得するためだけのソース
    '**********************************************************************************************
    Private Sub GetAIVoiece_ProcessID()

        Dim wLp As Integer

        '==========================================================================================
        '今Windows上で音が出てるアプリを取得する
        '(A.I.Voice起動後、1文字でいいので、1回喋らせないと、この一覧から取得できない／0文字で再生ボタンを押すだけでもok)
        '==========================================================================================
        iDeviceEnumerator = New MMDeviceEnumerator()
        Try
            iRender = iDeviceEnumerator.GetDefaultAudioEndpoint(DataFlow.Render, Role.Multimedia)
            iRenderAudioSessionManager = iRender.AudioSessionManager
            iRenderSessions = iRenderAudioSessionManager.Sessions
        Catch
        End Try
        iDeviceEnumerator.Dispose()         '解放する

        '==========================================================================================
        '音が出てるアプリ一覧からA.I.Voiceを探し、A.I.VOICEのプロセスIDを取得する
        'もちろんA.I.VOICEが起動していなければ見つからないし、1文字以上予め何か喋らせないと見つからない
        '==========================================================================================
        iAIVoice_ProcessID = ""                 '初期化
        If iRenderSessions IsNot Nothing Then
            For wLp = 0 To iRenderSessions.Count - 1
                If InStr(iRenderSessions(wLp).GetSessionInstanceIdentifier, cApp_Name) > 0 Then
                    'A.I.VOICEのプロセスIDを見つけたぜ！
                    iAIVoice_ProcessID = iRenderSessions(wLp).GetProcessID.ToString()
                    Exit For
                End If
            Next wLp
        End If
        If iAIVoice_ProcessID = "" Then
            MessageBox.Show("A.I.VOICEが起動していないか、1文字もしゃべっていない為、プロセスIDを取得できませんでした。")
        End If

    End Sub

    '***************************************************************************************
    'タイマー等で、0.1秒や0.3秒ごとに実行すれば、常時ボリュームチェック可能
    '***************************************************************************************
    Private Function GetAIVoice_Volume(wAIVoice_ProcessID As String) As Single

        Dim wVolume As Single
        Dim wLp As Long

        '音量初期値
        wVolume = CSng(0)

        '====================================================================================
        'A.I.VOICEの音量を調べる
        'しゃべり終わっても完全な0ではない時がある為、(0.000001等の事例がある)
        'wVolumeが0.01以上だったら、しゃべっていると認識して良さそうだ
        '====================================================================================
        If iRenderSessions IsNot Nothing Then
            For wLp = 0 To iRenderSessions.Count - 1
                If iRenderSessions(wLp).GetProcessID.ToString() = wAIVoice_ProcessID Then
                    wVolume = iRenderSessions(wLp).AudioMeterInformation.MasterPeakValue
                End If
            Next
        End If

        Return wVolume

    End Function

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'タイマーで常に音量を表示
        Label1.Text = GetAIVoice_Volume(iAIVoice_ProcessID)
    End Sub

End Class

注意点

留意点

使用言語・動作確認したバージョン

このソースの致命的な欠点

関連記事