버튼을 누르는 동안 다른 프로그램을 모두 음소거

Question

버튼을 누르고있는 동안 다른 모든 프로그램을 음소거하고 상수 톤/사운드를 재생하고 싶습니다.

My.Recources 아래에 음색/소리가 녹음되어 있으며 Beep_effect이라고합니다.

대부분의 코드는 답변 중 하나이지만 아직 작동하지 않습니다. 다른 문의 사항이 있으시면

Imports CSCore 
Imports CSCore.Codecs 
Imports CSCore.CoreAudioAPI 
Imports CSCore.SoundOut 
Imports System.Runtime.InteropServices 

Module Module1 

    Private filename As Object = My.Resources.Beep_effect 
    Private _waveSource As IWaveSource 
    Private _soundOut As ISoundOut 
    Private device As MMDevice 

    Sub Main() 

     Using mmdeviceEnumerator = New MMDeviceEnumerator() 
      Using mmdeviceCollection = mmdeviceEnumerator.EnumAudioEndpoints(DataFlow.Render, DeviceState.Active) 
       device = mmdeviceCollection.First 
      End Using 
     End Using 

     _waveSource = CodecFactory.Instance.GetCodec(filename).ToSampleSource().ToMono().ToWaveSource() 
     _soundOut = New WasapiOut(False, AudioClientShareMode.Exclusive, 100) With {.device = device} 
     _soundOut.Initialize(_waveSource) 
     _soundOut.Play() 

    End Sub 

End Module 

Public Class Main 



    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 
End Function 

    Const WM_APPCOMMAND As UInteger = &H319 
    Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8 

    Private Sub Beep_MouseDown(sender As Object, e As EventArgs) Handles Beep.MouseDown 
     Call Module1.Main() 
     'My.Computer.Audio.Play(My.Resources.Beep_effect, AudioPlayMode.BackgroundLoop) 
    End Sub 

    Private Sub Beep_MouseUp(sender As Object, e As EventArgs) Handles Beep.MouseUp 
     'My.Computer.Audio.Stop() 
    End Sub 

    Private Sub Silence_MouseDown(sender As Object, e As EventArgs) Handles Silence.MouseDown 
     SendMessage(Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000) 
    End Sub 

    Private Sub Silence_MouseUp(sender As Object, e As EventArgs) Handles Silence.MouseUp 
    SendMessage(Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000) 
    End Sub 
End Class 

물었습니다 :

이

내가 지금까지 가지고있는 코드입니다!

Answer 1

사용 CSCore 및 AudioClientShareMode.Exclusive :

Imports CSCore 
Imports CSCore.Codecs 
Imports CSCore.CoreAudioAPI 
Imports CSCore.SoundOut 

Module Module1 

    Private filename As String = "your.mp3" 
    Private _waveSource As IWaveSource 
    Private _soundOut As ISoundOut 
    Private device As MMDevice 

    Sub Main() 

     Using mmdeviceEnumerator = New MMDeviceEnumerator() 
      Using mmdeviceCollection = mmdeviceEnumerator.EnumAudioEndpoints(DataFlow.Render, DeviceState.Active) 
       device = mmdeviceCollection.First 
      End Using 
     End Using 

     _waveSource = CodecFactory.Instance.GetCodec(filename).ToSampleSource().ToMono().ToWaveSource() 
     _soundOut = New WasapiOut(False, AudioClientShareMode.Exclusive, 100) With {.Device = device} 
     _soundOut.Initialize(_waveSource) 
     _soundOut.Play() 

    End Sub 

End Module