Weado
Messages postés119Date d'inscriptionmercredi 19 juin 2002StatutMembreDernière intervention21 avril 2009
-
2 juin 2003 à 00:54
ap00x
Messages postés1Date d'inscriptionlundi 20 avril 2009StatutMembreDernière intervention12 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.
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és1Date d'inscriptionsamedi 25 septembre 2004StatutMembreDernière intervention25 septembre 2004 25 sept. 2004 à 06:34
crisse, c ou on clic pour downloader?
kemo_0ne
Messages postés25Date d'inscriptionmardi 4 novembre 2003StatutMembreDernière intervention21 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és48Date d'inscriptionlundi 6 janvier 2003StatutMembreDernière intervention27 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és8Date d'inscriptionjeudi 20 juin 2002StatutMembreDerniè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és8Date d'inscriptionjeudi 20 juin 2002StatutMembreDerniè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és62Date d'inscriptionsamedi 21 septembre 2002StatutMembreDerniè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és14Date d'inscriptionjeudi 10 juillet 2003StatutMembreDernière intervention10 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és1662Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention30 juillet 20081 2 juin 2003 à 07:37
j'espere que ca marche pour msn 6 !!! :P
fpinchon
Messages postés15Date d'inscriptiondimanche 19 janvier 2003StatutMembreDernière intervention15 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és119Date d'inscriptionmercredi 19 juin 2002StatutMembreDernière intervention21 avril 2009 2 juin 2003 à 00:54
12 juil. 2009 à 00:16
29 déc. 2008 à 13:32
17 juin 2005 à 23:17
14 janv. 2005 à 21:01
* 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 !!
14 janv. 2005 à 20:17
3 oct. 2004 à 21:23
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
25 sept. 2004 à 06:34
6 sept. 2004 à 14:05
21 août 2004 à 00:30
Car je trouve pas messenger api type library..
6 août 2004 à 15:37
6 août 2004 à 15:31
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
16 sept. 2003 à 16:20
16 sept. 2003 à 16:18
p-e est-ce parske j'utilize msn messenger 6...
2 juin 2003 à 07:37
2 juin 2003 à 06:37
fredo
2 juin 2003 à 00:54