MESSENGER API :: COMMANDEZ MSN MESSENGER

Commentaire de oduesp le 26/12/2002 03:19:44

ouais, je sais, je prévois de faire un petit truc bien sympas d'ici peut ...

Commentaire de vanpet le 26/12/2002 21:10:41

pour t'aider Clem, la solution la plus simple est de fermer MSN avant de jouer à Counter ;-))

Commentaire de RSJP2 le 29/03/2003 05:19:03

il suffit de télécharger la nouvelle API pour messenger sur le site de messenger,dispo pour VB,VB.net et C++

Commentaire de bydavid le 30/05/2003 18:37:48

et pour les autres statuts ??


MSN.LocalState = MSTATE_ONLINE 'en ligne

MSN.LocalState = MSTATE_BUSY 'occupe

MSN.LocalState = MSTATE_BE_RIGHT_BACK 'de retour dans 1 minute

MSN.LocalState = MSTATE_AWAY 'absent

MSN.LocalState = MSTATE_ON_THE_PHONE 'au telephone

MSN.LocalState = MSTATE_OUT_TO_LUNCH 'parti manger

MSN.LocalState = MSTATE_INVISIBLE 'apparaitre hors connex.

Commentaire de bydavid le 30/05/2003 19:23:39

ca par contre je sais pas mais je vais chercher et je te mailerai ...

Commentaire de PerfectSlayer le 25/06/2003 17:43:23

Je cherche l'api de msn 6, si kelk1 c ou je peu trouV ca...

Commentaire de HMN le 24/10/2003 07:47:55

ben moa je trouve ca bien, mais je voudrai coder un script vbs pour msn messenger et samurize, pour voir si mes contacts sont en ligne ou si g des messages et éventuellement mon statut. j'ai trouvé ce code (voir ci apres) qui marchait mal sous windows messenger, mais si qq'un pouvait m'aider pour le faire passer sous windows messenger et msn messenger ca serai super.

code:
'par: En[d]eR

'------------------------------------------------------------------------------
function count_contacts()
Dim a
Dim MSN As New MsgrObject
'set msim = New Messenger.MsgrObject

count_contacts = MSN.MyContacts.count

end function
'------------------------------------------------------------------------------
function my_status()
dim msim
set msim = CreateObject("Messenger.UIAutomation")

my_status = getstatus(msim.MyStatus)


end function
'------------------------------------------------------------------------------
function unread_mail()
dim msim
set msim = CreateObject("Messenger.UIAutomation")

unread_mail = msim.UnreadEmailCount(mFolder)

end function
'------------------------------------------------------------------------------
function nr_of_contacts_online()
dim msim

set msim = CreateObject("Messenger.UIAutomation")

nr_of_contacts_online = 0

set mslist = msim.MyContacts
cnt = mslist.count
  
for t = 1 to cnt step 1
  if (mslist.item(t-1).Status = 2) then
   nr_of_contacts_online = nr_of_contacts_online + 1
  end if
next

end function
'------------------------------------------------------------------------------

function getstatus(p)

Select Case p
        Case 0: getstatus = "Unknown"        
Case 1: getstatus = "Deconnecte"
        Case 2: getstatus = "Online"        
Case 6: getstatus = "Invisible"
        Case 10: getstatus = "Occupé"        
Case 14: getstatus = "De Retour"    
Case 34: getstatus = "Away"    
Case 18: getstatus = "Away"    
Case 50: getstatus = "Téléphone"    
Case 66: getstatus = "Mangeage"    
Case else : getstatus = "Unknown"
End Select

end function

Commentaire de VbMaster le 07/04/2004 14:51:01

oué en fait c l'api de windows messenger donc il faut
1) avoir XP
2) avoir laissé windows messenger

Commentaire de buzydoudou le 25/08/2004 12:43:19

Je ne sais pas comment ça se fait, mais ça marche PAS !!
J'ai Msn Messenger 6.2 et Windows Messenger et  chaque fois que je clique sur un des 3 boutons ça me met:
"Run-time error '-2147467259 (80004005)': Method 'LocalState' of 'IMsgrObject2' failed."

vala dc si qqun pouvait m'aider ça serait cool !!

Commentaire de Evrae le 07/04/2005 19:29:13

Il faut avoir laissé (pas désinstallé) Windows messenger, et avoir la version la plus récente. Quoique, le codeur de cette source utilise des constantes zarbi; perso, j'aurai utilisé msn.MyStatus.MISTATUS_AWAY (oú msn est mon objet MessengerAPI.Messenger global ;))

Commentaire de dvdstory le 16/09/2005 21:15:32

sa pe aider
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/messandcab.asp

Commentaire de coll_man le 10/07/2006 01:57:30

je veu dire les contacts msn

Commentaire de Missy_222294 le 25/07/2006 19:59:24

Moi MSNCONTROL ca en marche pas ca modifie mon statut pas celui de mon contact c'est nul !

Commentaire de namster55 le 09/10/2008 14:28:54

merci tress cool