VB.NET ile ses kayıt kodları

SES KAYIT PROJE KADLARI                                                     İNDİR

Imports System.Runtime.InteropServices Imports System.Text 'NOT: Kayıt aygıtlarından ses kartından veya hoparlör ayarlarını yapınız 'ses kaydını bilgisayarda çalan bir mp3 çalardan kaydetmesini istiyorsanız:Kayıt\SesKarışımı(Ses kartı) seçili olmalı 'konuşştuğunuzu kaydetmek için :Kayıt\microfon seçili omalıdır Public Class Form1 Public KullAdi As String = SystemInformation.UserName <DllImport("winmm.dll")> _ Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim i As Integer i = mciSendString("open new type waveaudio alias capture", Nothing, 0, 0) i = mciSendString("record capture", Nothing, 0, 0) Label1.Text = "Kayıt Başladı" Label1.BackColor = Color.Green Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Dim i As Integer i = mciSendString("save capture " & "C:\Users\" & KullAdi & "\Desktop\Kaydedilen.Wav", Nothing, 0, 0) i = mciSendString("close capture", Nothing, 0, 0) Label1.Text = "Kaydedildi" Label1.BackColor = Color.Yellow Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click ' Çalıştır My.Computer.Audio.Play("C:\Users\" & KullAdi & "\Desktop\Kaydedilen.Wav", AudioPlayMode.Background) End Sub End Class