Discussion :

[gta126]

Bonsoir

Je voudrai savoir si quelqu'un a un lien pour de la documentation sur l'API de Windows Live Messenger, car tous ceux que j'ai trouvé sont pour d'ancienne version et ne fonctionne pas avec la dernière version.
Si possible en français.

Merci d'avance

[gta126]

y a t il personne qui sait m'aider ?

[MaTHieU_]

Bonjour,

Je suis dans le même cas, j'ai trouvé uniquement des informations concernant MSN 7 qui ne fonctionnent pas avec Windows Live Messenger.

Merci,
MaTHieU_

[gta126]

J'ai trouvé la solution merci quand même

[Pierre Petesch]

J'ai trouvé la solution merci quand même

Et quelle est cette solution ?

Histoire que MaTHieU_ puisse egalement resoudre son probleme et que toute personne recherchant cette info sur le forum puisse obtenir une reponse rapide...

De plus, cela m'aurait egalement interesse a titre informatif...

[gta126]

En fait ce que j'ai trouvé c'est pour utiliser l'API de Windows Live Messenger avec Visual Basic 6.

1°) Créer un nouveau projet.
2°) Aller dans le menu "Projet"-->"Références...".
3°) Cocher "Messenger API Type Library".
4°) Voila toutes les fonctions de Windows Live Messenger sont disponible dans votre programme.

Voici quelques bout de code pour en utiliser quelques:
-Se connecter avec un nom d'utilisateur et un mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set msn = New MessengerAPI.Messenger

msn.Signin 0, "AdresseDeMessagerie", "MotDePasse"

-Se déconnecter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set msn = New MessengerAPI.Messenger

msn.Signout

-Lister les contacts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MSNContact As IMessengerContact
Dim MSNContacts As IMessengerContacts

Set msn = New MessengerAPI.Messenger

For Each MSNContact In MSNContacts
        List1.AddItem (MSNContact.SigninName)
Next

-Ajouter un contact

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set msn = New MessengerAPI.Messenger

msn.AddContact 0,"AdresseMail"

-Changer le statut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set msn = New MessengerAPI.Messenger

Select Case Combo1.ListIndex
        Case 0 'En ligne
            msn.MyStatus = MISTATUS_ONLINE
        Case 1 'Occupé
            msn.MyStatus = MISTATUS_BUSY
        Case 2 'De retour dans une minute
            msn.MyStatus = MISTATUS_BE_RIGHT_BACK
        Case 3 'Absent
            msn.MyStatus = MISTATUS_AWAY
        Case 4 'Au téléphone
            msn.MyStatus = MISTATUS_ON_THE_PHONE
        Case 5 'Partit manger
            msn.MyStatus = MISTATUS_OUT_TO_LUNCH
        Case 6 'Hors ligne
            msn.MyStatus = MISTATUS_INVISIBLE
    End Select

Voila j'espère que maintenant vous arriverez à utiliser l'API de Windows Live Messenger.

Bonne soirée

[Pierre Petesch]

Merci de cet ajout

[the_red_skin]

Intéressant, merci beaucoup !

[M4kn4sh]

Bonsoir,

Je vois que ce topic remonte à 1 an, depuis il y a le nouveau WLM 2009 et je ne trouve pas le "Messenger API Type Library" dans Visual Basic 2008.
Comment puis-je faire avec le nouveau WLM ?

Merci d'avance