Reference MSNRésolu

Question

Bonjour a tous,

Voila mon probleme je voudrais faire un client msn en vb mais le probleme c'est qu'on me dit de rajouter la reference Messenger type library ce que je fais mais quand je veux executer mon programme il me dit erreur de compilation type defini par l'utilisateur non d&#233;fini.

Quelqu'un a t'il une solution ?
Merci par avance

cs_Jack · Accepted Answer

Salut
30 secondes sur Google avec les mots "VB MsgrObject" et tu tombes sur cette source de vbfrance :
http://www.vbfrance.com/code.aspx?ID=7274
C'est dingue l'informatique quand m&#234;me !

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Salut
Et ce serait trop te demander de fournir le code sur lequel apparait cette erreur ?
Il faudrait nous donner un minimum d'info sur la mani&#232;re dont tu l'as utiliser, tu trouves pas ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

jb212121 · Answer

Oui c'est vrai d&#233;soler voici le code pour r&#233;up&#233;rer les contacts.

Dim msnobj As MsgrObject
Dim number As Integer
Private Sub cmdLoad_Click()
Dim user As IMsgrUser
For Each user In msnobj.List(MLIST_CONTACT)
LstBuddylist.AddItem (user.FriendlyName)
number = number + 1
Next
End Sub
Private Sub Form_Load()
Set msnobj = New MsgrObject
End Sub

Private Sub tmrcounter_Timer()
lblContacts.Caption = number
End Sub

Il me signale l'erreur a cette endroit Dim msnobj As MsgrObject

michelxld · Answer

bonsoir


si tu souhaites boucler sur l'ensemble des contacts et afficher des informations sur chacun d'entre eux


Sub listeEtInformationsContacts_MESSENGER()
'necessite d'activer la reference "Messenger API Type Library"
Dim Msn As MessengerAPI.Messenger
Dim Contacts As MessengerAPI.IMessengerContacts
Dim Contact As MessengerAPI.IMessengerContact


Set Msn = New MessengerAPI.Messenger
Set Contacts = Msn.MyContacts


For Each Contact In Contacts
Debug.Print Contact.SigninName
Debug.Print Contact.Status
Debug.Print Contact.FriendlyName
Next
End Sub



bonne soiree
michel

jb212121 · Answer

Merci de vos r&#233;ponses :]

Reference MSN

5 réponses

Discussions similaires