Public Class Form1
Dim WithEvents AudioIn As New NAudio.Wave.WaveIn()
Dim SocketOut As New Net.Sockets.TcpClient
Dim NetworkStreamOut As Net.Sockets.NetworkStream
Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
AudioIn.DeviceNumber = 0 ' PC Microphone
AudioIn.WaveFormat = New NAudio.Wave.WaveFormat(22050, 16, 1) ' Sample Rate, Bits per Sample, Channels
SocketOut.Connect("192.168.0.14", 21341) ' Android Device IP
Do While Not SocketOut.Connected
Application.DoEvents()
Loop
AudioIn.StartRecording()
NetworkStreamOut = SocketOut.GetStream
End Sub
Private Sub AudioIn_DataAvailable(sender As Object, e As NAudio.Wave.WaveInEventArgs) Handles AudioIn.DataAvailable
If e.Buffer.Length > 0 Then
NetworkStreamOut.Write(e.Buffer, 0, e.Buffer.Length)
NetworkStreamOut.Flush()
End If
End Sub
End Class