Chi non usa messenger? Per lavoro,per svago,per tenersi in contatto con persone molto distanti da noi,il programmino è fantastico chat,voce,video, scambio di file ecc..., Ieri mattina però ero in cucina a sbrigare le faccende domestiche, sono un ottimo casalingo (!?!!?!!), e aspettavo che un mia amica si collegasse ad msn per fissare, ma ogni volta che il mio pc emetteva un suono dovevo andare nello studio a controllare chi si era collegato ad messenger, una bella fatica!?!, così mi sono detto ma messenger sarà sicuramente un oggetto COM, perchè non fare un piccolo programma che mi permetta di personalizzare la 'suoneria' per ogni contatto? Detto fatto, riporto qui le due righe per farlo;
Si deve aggiungere il riferimento all'oggetto COM nel nostro progetto, dopo di che si può scrivere il nostro codice :
Ad esempio se vogliamo sapere se il nostro account è online basterà scrivere
Dim MyMessenger As New MessengerAPI.Messenger
If M.MyStatus = MessengerAPI.MISTATUS.MISTATUS_OFFLINE Then
' non sono inliena
else
' sono in linea
End if
Se vogliamo avere una lista dei contatti :
Dim MyMessenger As New MessengerAPI.Messenger
Dim MyContacts As MessengerAPI.IMessengerContacts = MyMessenger.MyContacts
Dim I as Integer
For i = 0 To MyContacts.Count - 1
Dim Contact As MessengerAPI.IMessengerContact = MyContacts.Item(i)
MioStato = Contact.Status
MioNomeContatto = Contact.FriendlyName
'.......
Next
Giocando un pò con questi strumenti è possibile fare quello che mi serviva! Risolto il problema,anche se quella mia amica ho preferito chiamarla con il vecchio telefono