MSN MESSENGER -&GT; CONVERSATION LOGGER

Weado Messages postés 119 Date d'inscription mercredi 19 juin 2002 Statut Membre Dernière intervention 21 avril 2009 - 2 juin 2003 à 00:54
ap00x Messages postés 1 Date d'inscription lundi 20 avril 2009 Statut Membre Dernière intervention 12 juillet 2009 - 12 juil. 2009 à 00:16

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7084-msn-messenger-gt-conversation-logger

ap00x Messages postés 1 Date d'inscription lundi 20 avril 2009 Statut Membre Dernière intervention 12 juillet 2009
12 juil. 2009 à 00:16

not runnig :( please send me source code | apocalypse-techno@hotmail.com

rafa75 Messages postés 1 Date d'inscription lundi 29 décembre 2008 Statut Membre Dernière intervention 29 décembre 2008
29 déc. 2008 à 13:32

merci

Vedlen Messages postés 360 Date d'inscription mardi 14 octobre 2003 Statut Membre Dernière intervention 7 septembre 2009
17 juin 2005 à 23:17

Super!!.. Ca marche pas...

buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
14 janv. 2005 à 21:01

Ds ta modification pour msn 6.2,
* Il faut remplacer :
[...]
Open "C:\MsgrLogs" & Contact.FriendlyName & ".log" For Append As #1
[...]

* Par :
[...]
Open "C:\MsgrLogs" & Contact.SigninName & ".log" For Append As #1
[...]

Sinon ça ne marche pas !! Bonne continuation !!

buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
14 janv. 2005 à 20:17

Bonne source même si elle n'est pas de toi !!

cs_BaptisteC Messages postés 6 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 9 décembre 2002
3 oct. 2004 à 21:23

Merci de préciser que cette source n'est pas de toi et que tu l'as Copiée/Collée/Traduite par respect pour Daniel, son auteur dans msnfanatic....

http://forums.msnfanatic.info/index.php?act=ST&f=38&t=3801&s=

Tu aurais pu au moins traduire les variables en FR et faire le code lamesque qui crée le dossier si il n'existe pas... au lieu de traduire :

Make sure the path "C:\MsgrLogs" exists, or you will get an error.

Ce n'est pas un reproche en soi car c'est toujours interessant de faire part des sources interessantes qu'on peut glanner ça et là sur le net et de les traduire...
C'est juste une question de respect pour l'auteur réel...

A bon entendeur pour """"ta"""" prochaine source,
Baptiste

rancher39 Messages postés 1 Date d'inscription samedi 25 septembre 2004 Statut Membre Dernière intervention 25 septembre 2004
25 sept. 2004 à 06:34

crisse, c ou on clic pour downloader?

kemo_0ne Messages postés 25 Date d'inscription mardi 4 novembre 2003 Statut Membre Dernière intervention 21 mars 2005
6 sept. 2004 à 14:05

Bravo, c'est classe que ça marche avec le 6. Par contre apprends à commenter !!!

cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
21 août 2004 à 00:30

Cest quoi le nom exact de la référence à cocher ?

Car je trouve pas messenger api type library..

cs_Existenz Messages postés 8 Date d'inscription jeudi 20 juin 2002 Statut Membre Dernière intervention 6 août 2004
6 août 2004 à 15:37

ps : j'ai pas viré le code original qui permettait d'obtenir l'email de la personne, j'ai juste rajouté le code nécessaire. De plus dans mon exemple, le nom du fichier sera le pseudo de l'interlocuteur et pas son adresse mail. Si vous voulez l'adresse email, mettez simplement Contact.SigninName à la place de Contact.FriendlyName dans le nom du fichier.

cs_Existenz Messages postés 8 Date d'inscription jeudi 20 juin 2002 Statut Membre Dernière intervention 6 août 2004
6 août 2004 à 15:31

Je l'ai fait marcher avec la 6 y a pas grand chose à rajouter. Y a que la fonction objMessenger_OnIMWindowDestroyed qui change. Voici le code :

Private Sub objMessenger_OnIMWindowDestroyed(ByVal pIMWindow As Object)
Dim MsgrIMWindow As IMessengerConversationWnd
Dim MsgrContacts As IMessengerContacts
Dim Contact As IMessengerContact
Dim lngEdit&, lngTextLen&, m&, f As Long
Dim strText$, strEditText$, strEmail$, strTmpText As String
Set MsgrIMWindow = pIMWindow
Set MsgrContacts = MsgrIMWindow.Contacts
Set Contact = MsgrContacts.Item(0)
lngEdit = FindWindowEx(MsgrIMWindow.hWnd, 0, "edit", vbNullString)
lngTextLen = SendMessageLong(lngEdit, WM_GETTEXTLENGTH, 0, 0)
strText = String(lngTextLen + 1, Chr(0))
Call SendMessageByString(lngEdit, WM_GETTEXT, lngTextLen + 1, strText)
strEditText = Left(strText, lngTextLen)

If MsgrContacts.Count = 0 Then
strTmpText = Mid(strEditText, 1, InStr(strEditText, ">, "))
Else
strTmpText = strEditText
End If

If InStr(strTmpText, ">") = 0 Then
strEmail = strTmpText
Else
m = InStrRev(strTmpText, "<")
f = InStrRev(strTmpText, ">")
strEmail = Mid(strTmpText, m + 1, f - m - 1)
End If

Open "C:\MsgrLogs" & Contact.FriendlyName & ".log" For Append As #1 'a la fermeture de la fenetre de conversation , le programme enregistre la conversation dans un fichier .log
Print #1, "-----------------------------"
Print #1, "Contact dans la conversation : " & strEditText
Print #1, "Le " & Date & " a " & Time
Print #1, "-----------------------------"
Print #1, MsgrIMWindow.History
Print #1, "-----------------------------" & vbCrLf
Close #1
End Sub

bydavid Messages postés 62 Date d'inscription samedi 21 septembre 2002 Statut Membre Dernière intervention 5 août 2003
16 sept. 2003 à 16:20

nan c marche avec la v5 mais pa avec la 6 ! dommage...

Chrystalyst Messages postés 14 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 10 septembre 2003
16 sept. 2003 à 16:18

c'est bien ms cé dommage, sa ne marche qu'avec windows messenger (et non msn messenger kom indiké ds le titre)
p-e est-ce parske j'utilize msn messenger 6...

cs_GRenard Messages postés 1662 Date d'inscription lundi 16 septembre 2002 Statut Membre Dernière intervention 30 juillet 2008 1
2 juin 2003 à 07:37

j'espere que ca marche pour msn 6 !!! :P

fpinchon Messages postés 15 Date d'inscription dimanche 19 janvier 2003 Statut Membre Dernière intervention 15 juin 2003
2 juin 2003 à 06:37

personne n'a uj tric innovant sur msn : qui permette de faire sonner le pc du correspondant quand on cherche a le joindre, un peu comme la sonnerie telephonique de netmeeting ?
fredo

Weado Messages postés 119 Date d'inscription mercredi 19 juin 2002 Statut Membre Dernière intervention 21 avril 2009
2 juin 2003 à 00:54

une source et plus de commentaire svp!

Discussions similaires

Convertions GT/s, MT/s, GB/s, Mhz

Client MSN Messenger 6 en VB6

meteo

MSN, Sniffer, SPY que faire, comment faire ?

Msn messenger

Votre réponse

Discussions similaires