J'ai le code source, mais comment l'utiliser? -

Marsh Posté le 03-11-2006 à 21:09:30

Bonjours, je cherche un petit programme pour archiver les conversations msn, comme ca n'existe pas, j'ai chercher des codes sources, j'en est trouver 2 (les 2 en VB bien sur ^^):
http://www.vbfrance.com/codes/MSN- [...] _7084.aspx
http://www.vbfrance.com/codes/MSN-LOGGER_16645.aspx
J'ai essayer de compiler tout ca avec visual studio 2005, mais il me signale 25-30 erreurs pour chacune des 2 codes sources.

Je suis trés nul en programmation, alors j'arrive a a voir ce qui ne va pas (il y a des erreurs style, parenthéses tout cas, je les corriges mais bon, ca ne marche toujours pas, pourtant j'ai bien ajouter les réferences comme ils disent)

Donc ce serait sympa que vous essayez de compiler ca chez vous, et me dire si ca marche pour vous, et deja si pr vous c'est ok, on vera ce qui va pas chez moi (pt'étre tout simplement vs2005 alors qu'il faidrait vb6?)

Merci

Reply

Marsh Posté le 03-11-2006 à 21:09:30

Reply

Marsh Posté le 04-11-2006 à 15:56:51

C'est du VB6

Reply

Marsh Posté le 04-11-2006 à 16:34:10

pour compiler ces deux progs il te faut Microsoft Visual Basic 6.0

Reply

Marsh Posté le 04-11-2006 à 21:25:02

Je me suis procurer VB6, ca marche, mais je voudrais apporter quelques modifications au programme (seulement je suis très nul en programmation, je nest pas de compétence su tout en fait, en VB du moins).

-Je voudrais que le programme nai pas de fenétre, et quil ne figure pas dans longlet application du gestionnaire des taches, mais par contre, qui soit visible dans longlet processus.

-Il faut que le programme demarre automatiquement, soit au lancement de MSN Messenger (cette premiére solution est privilégiée), soit au lancement de windows, au quel cas jai plusieur idée :
mettre un raccourcis dans « Demarrage »
mettre une entrée dans HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
soit faire en sorte quon puisse le cocher dans l'onglet demarrage de msconfig.

Je vous copie le code source pour vous faire gagner du temps :

Citation :

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

Merci de maider, « mon » programme est presque terminé, exepté ces quelques modifications (qui je suis sure, paraissent très simples aux yeux dun programmeur)

Reply

J'ai le code source, mais comment l'utiliser? -_-'

Sujets relatifs:

Leave a Replay