BUeno. haber.. algo rapido a mano alzadaa es esto..
Código: Seleccionar todo
HotKeySet("{ESC}", "parar")
Global $grabando = 1
MsgBox(0,"Ejemplo de grabacion de sonido - Gn7 xD","Despues de este cartel empieza a grabar... para detener la grabacion presion ESCAPE" & @CRLF & "El archivo se guardar en C:\Grab.wav")
DllCall("winmm.dll","int","mciSendString","str","open new type waveaudio alias media1","str","","int",65534,"hwnd",0) ; Creamos un archivo tipo wav
DllCall("winmm.dll","int","mciSendString","str","record media1","str","","int",65534,"hwnd",0) ; Grabar...
$timer = TimerInit()
While 1
TrayTip("Grabando...", "Van " & Int(TimerDiff($timer)/1000) & " segundos", 3, 3) ; mostramos y redondeamos a 1 segundo.. ojo k con esto se puede grabar el sonido k genera el tooltip. es solo como para ejemplificar .. una guia..
If $grabando = 0 Then ;Detener
DllCall("winmm.dll","int","mciSendString","str","stop media1","str","","int",65534,"hwnd",0) ; parar..
DllCall("winmm.dll","int","mciSendString","str",'save media1 "C:\Grab.wav"',"str","","int",65534,"hwnd",0) ; Guardar
DllCall("winmm.dll","int","mciSendString","str","close media1","str","","int",65534,"hwnd",0) ; Cerrar
ShellExecute("C:\Grab.wav") ; Abrimos lo grabado
Exit
EndIf
WEnd
Func parar()
$grabando = 0
EndFunc
Obvio k es pesima la calidad. jajaja. (esto se puede arreglar no te hagas drama), esta en wav (esto tmb se soluciona) pero es un ejemplo rapido... para k veasmasomenos por donde entrar.. si no entedes algo lo coemntas.. saludos..
