Msn logger

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 221 fois - Téléchargée 28 fois

Contenu du snippet

Petite source qui log dans un fichier texte, vos conversation MSN a la fermeture de celle ci.

Source / Exemple :


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, "Contact dans la conversation (" & 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

Conclusion :


Attention le chemin pour les log est en dur dans le source : "C:\Test\"

A voir également

Ajouter un commentaire

Commentaires

arponcedeleon
Messages postés
1
Date d'inscription
vendredi 18 septembre 2009
Statut
Membre
Dernière intervention
18 septembre 2009

J'obtiens une erreur lors de la compilation du programme, erreur: "7" Mémoire insuffisante, s'il vous plaît quelqu'un m'aide, merci ..
cs_kitkit
Messages postés
3
Date d'inscription
vendredi 17 novembre 2000
Statut
Membre
Dernière intervention
22 juin 2005

Ah! j'ai oublier je vais vous laisser mon addresse email pour les personnes qui trouve le moyen de maider alors c'est jasoso_14@hotmail.com
merci
chow chow
cs_kitkit
Messages postés
3
Date d'inscription
vendredi 17 novembre 2000
Statut
Membre
Dernière intervention
22 juin 2005

Salut moi je cherche un moyen d'enregistrer les conversations msn qui vient de mon ordinateur sans que ca se sache, jai trouver celui qui est sur msn enregistrer les conversations msn mais les gens qui utilise mon ordinateur le sait alors jai entendu parler du logger msn mais je ne sais pas comment ca fonctionne alors si vous pouvez m'aider ce serait tres apprecier
merci beaucoup
kit kit
buzydoudou
Messages postés
50
Date d'inscription
mardi 24 août 2004
Statut
Membre
Dernière intervention
28 avril 2005

(sinon ta source est bien plus simple que celle qui se trouve au-dessus de la tienne quand tu fais la recherche "msn conversation" sur VBFrance (pour ne pas la nommer. Nan très bonne source, bravo si c'est de toi.)
buzydoudou
Messages postés
50
Date d'inscription
mardi 24 août 2004
Statut
Membre
Dernière intervention
28 avril 2005

Moi aussi je cherche la même chose mais en vain !! Help please !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.