1

我正在尝试使用 VB.Net 创建一个录音机。

这就是我的做法：

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)

    mciSendString("set recsound samplespersec 11025 channels 2 bitspersample 16 alignment 4 bytespersec 44100", vbNullString, 0, 0)
    mciSendString("record capture", vbNullString, 0, 0)

    Label1.Text = "Recording..."

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    mciSendString("save recsound c:\recsound.wav", "", 0, 0)

    mciSendString("close recsound", "", 0, 0)

    Label1.Text = "Stopped."

End Sub

它工作正常，唯一的问题是我有两个麦克风，其中一个是内置的，另一个是通过 USB 连接的。第二个有更好的录音质量，但这个应用程序总是从内置麦克风录音。

我已经在互联网上搜索了所有内容，但找不到选择录音设备的方法。我唯一能找到的是：

Dim DeviceId As Integer = 2

mciSendString("set recsound input " & DeviceId.ToString())

我尝试了不同的值无济于事。

我还尝试了以下代码，成功列出了我的计算机中找到的所有记录设备的所有属性，但我找不到任何可以帮助的东西：

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Dim objSearcher As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_SoundDevice")
    Dim objCollection As System.Management.ManagementObjectCollection = objSearcher.Get()

    Me.TextBox1.Text = ""

    For Each obj As ManagementObject In objCollection

        Me.TextBox1.Text &= "---------------------------------" & vbCrLf

        For Each myProperty As PropertyData In obj.Properties

            Me.TextBox1.Text &= myProperty.Name & " - " & myProperty.Value & vbCrLf

        Next

    Next

End Sub

任何建议将不胜感激。

4

1 回答 1

0

我知道你差不多两年前问过这个问题，所以你可能永远看不到这个答案。也许您打开了通知，这可能会对您有所帮助。

我已经为我的录音应用程序切换到 Naudio（可通过 Nuget 获得），并且使用它的运气要好得多。我可以按如下方式指定录音设备：

waveIn = New WaveIn waveIn.DeviceNumber = 0 '0 - 立体声混音，1 - 麦克风，2 - 线路输入

找出您的 USB 麦克风的设备编号并使用它。在“Naudio”上搜索，您将找到示例代码。

于 2017-11-24T20:58:58.720 回答