Messenger

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

Print | posted @ martedì 14 agosto 2007 17:27

Comments on this entry:

Gravatar # re: Messenger
by Carlo Bertini at 16/08/2007 15:02

Grazie x le info, mi possono ritornare utili

Gravatar # re: Messenger
by muhabbet yap at 16/07/2009 05:58

thankss

sevda şiirleri
magazin
magazin haber
Comments have been closed on this topic.