[Problem] Nagrywanie dźwięku

[GameOverMan]

Witam, znalazłem w sieci takie include:

 

Media_Example_PlayFile.au3

Media_Example_RecordSound.au3

Media.au3

 

Media_Example_RecordSound.au3, program działa ale nagranie nie zawiera dźwięku, problem chyba w tym - jak mogę określić z jakiego źródła ma nagrywać dźwięk?

 

 

; Function Name: _MediaCreate()
; Description:	 Creates a new media for recording, capturing etc.
; Parameter(s):	 $s_format	 - Format of the file.
;				 0 = CD Audio
;				 1 = Digital video
;				 2 = Overlay
;				 3 = sequencer
;				 4 = Vcr
;				 5 = Video disc
;				 6 = Wave Audio
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns Media ID needed for the other media functions
;				 On Failure - Returns 0 and sets @ERROR = 1
; Author(s):	 svennie
;
;===============================================================================
Func _MediaCreate($s_format)
If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0
$i_MediaCount=$i_MediaCount+1
If $s_format=0 Then
$s_Use="cdaudio"
ElseIf $s_format=1 Then
$s_Use="digitalvideo"
ElseIf $s_format=2 Then
$s_Use="overlay"
ElseIf $s_format=3 Then
$s_Use="sequencer"
ElseIf $s_format=4 Then
$s_Use="vcr"
ElseIf $s_format=5 Then
$s_Use="videodisc"
ElseIf $s_format=6 Then
$s_Use="waveaudio"
EndIf
DllCall("winmm.dll","int","mciSendString","str","open new type "&$s_Use&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return String($i_MediaCount)
EndIf
EndFunc

 

 

 

; Function Name: _MediaRecord()
; Description:	 Records from a microphone
;				 Stop recording with _MediaStop()
;				 (choose position with _MediaSeek())
; Parameter(s):	 $i_MediaId	 - Media ID returned by _MediaOpen()/MediaCreate()
; Requirement(s): AutoIt
; Return Value(s): On Success - Returns 1
;				 On Failure - Returns 0 and sets @ERROR = 1
; Author(s):	 svennie
;
;===============================================================================
Func _MediaRecord($i_MediaId)
DllCall("winmm.dll","int","mciSendString","str","record media"&$i_MediaId,"str","","int",65534,"hwnd",0)
If @error Then
SetError(1)
Return 0
Else
Return 1
EndIf
EndFunc

 

 

 

 

Proszę o pomoc.

[M4niak]

Nagrywasz zawsze z domyślnego urządzenia..

[GameOverMan]

@Edit OK, dzięki już mam. Wszystko przez uszkodzone wejście na mikrofon w przednim panelu PC.

 

@Edit2 Ma ktoś pomysł jak zrobić komunikator głosowy? Przez TCP?

[krzychu197]

Znalazłem właśnie komunikator głosowy dla autoit przez protokół TCP, minus jest jeden, że jest trochę wolny

 

https://dl.dropbox.com/u/89910390/tcprecv.zip

[GameOverMan]

Właściwie to znalazłem taki UDF:

ts3.au3

 

Tylko nie wiem do końca jak go użyć. Wie ktoś?

[M4niak]

@up

 

Przejrzałem wszystkie funkcje, nie ma tam nic ciekawego