Tak jsem to zatim udělal na inspiraci te zvukovky přes microfon nevim jak to bude fungovat jestli je to hovadina tak dejte vědet protože nevim jak je to s ukladaním zaznamu nebo když dotyčnej nebude mít zvukovku atd..
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Private Declare Function record Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
If My.Settings.RezimSpanku = False Then
record("open new Type waveaudio Alias recsound", "", 0, 0)
record("record recsound", "", 0, 0)
End If
If My.Settings.RezimSpanku = True Then
record("close recsound", "", 0, 0)
End If
End Sub
zapnutí a vypnutí=My.Settings.RezimSpanku
|