Evrae
Messages postés58Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention16 avril 2005 7 avril 2005 à 19:54
Au fait, si c'est pour "juste" controler le status, MessengerAPI suffit ;) 'fin bon, je préfere pas mettre 10, c'est trop ébauche encore. Continue le ton truc ;)
Evrae
Messages postés58Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention16 avril 2005 7 avril 2005 à 19:29
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 ;))
cs_sebastien001
Messages postés11Date d'inscriptiondimanche 29 août 2004StatutMembreDernière intervention20 janvier 2006 9 nov. 2004 à 14:28
oué grave moi aussi sa ne marche pas avec msn 6.2
Alors si quelqun pourais nous dire comment air sa serasi sympa merci
buzydoudou
Messages postés50Date d'inscriptionmardi 24 août 2004StatutMembreDernière intervention28 avril 2005 25 août 2004 à 12:43
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 !!
VbMaster
Messages postés21Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention15 avril 2004 7 avril 2004 à 14:53
oué en fait c l'api de windows messenger donc il faut
1) avoir XP
2) avoir laissé windows messenger
VbMaster
Messages postés21Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention15 avril 2004 7 avril 2004 à 14:51
oué en fait c l'api de windows messenger donc il faut
1) avoir XP
2) avoir laissé windows messenger
evilimp
Messages postés16Date d'inscriptionjeudi 24 juillet 2003StatutMembreDernière intervention20 juillet 2004 18 févr. 2004 à 12:54
heu chez moi sa amrche po :( je créé 3 cmds et je colle le code...
biensur j'ao coherles api (daileur j'en ai daute en relation avec msn mai a quoi serve til ??) donc je lance le ex ke j'ai compiler et il me met erreu men envoyer rappor d'erreur etc...
que faire ??
cs_HMN
Messages postés1Date d'inscriptionmardi 22 avril 2003StatutMembreDernière intervention24 octobre 2003 24 oct. 2003 à 07:47
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
cs_olivier42
Messages postés22Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention 3 juillet 2003 12 juil. 2003 à 18:17
cs_guimou
Messages postés17Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention23 mai 2004 5 mai 2003 à 22:41
ouai mais sur le site de messenger il propose l'API de messenger 4.7
pas cool :(:(:(:(:(:(
y a pas moyen d'avoir celle de la 5.0 ???
RSJP2
Messages postés3Date d'inscriptionjeudi 23 janvier 2003StatutMembreDernière intervention12 juillet 2003 29 mars 2003 à 05:19
il suffit de télécharger la nouvelle API pour messenger sur le site de messenger,dispo pour VB,VB.net et C++
pHoEnIxFuRy
Messages postés67Date d'inscriptionmercredi 17 juillet 2002StatutMembreDernière intervention18 juillet 20061 31 déc. 2002 à 01:04
Clem -> J'avai fait un prog a ki je filai l'ip du serveur CS à rejoindre ou hébergé, ca lancait la partie et en mm tps ca rajoutait "sur " avec l'ip du sevrer à mon pseudo msn et ca changait le status à OQP.
C'était sympa car mes contacts msn me retrouvait facilement sur CS.
Le gros problème c'est que cette API ne fonctionne plus sous messenger 5.0 !!!
vanpet
Messages postés149Date d'inscriptionlundi 17 décembre 2001StatutMembreDernière intervention 5 février 2006 26 déc. 2002 à 21:10
pour t'aider Clem, la solution la plus simple est de fermer MSN avant de jouer à Counter ;-))
cs_Clem
Messages postés282Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention12 février 2007 26 déc. 2002 à 14:52
ouaich, faudrait faire un prog qui permet de changer le status en fonctions des progs ouvert, histoire de pas avoir qqn ki veu chatter avec toi alors que tu est en plein milieu d'une partie d'un jeu sur le net !!!
cs_oduesp
Messages postés5Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention27 décembre 2002 26 déc. 2002 à 03:19
ouais, je sais, je prévois de faire un petit truc bien sympas d'ici peut ...
TheSaib
Messages postés2367Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention26 décembre 200723 26 déc. 2002 à 01:11
26 déc. 2009 à 18:25
bon courage
9 oct. 2008 à 14:28
4 nov. 2006 à 23:31
25 juil. 2006 à 19:59
10 juil. 2006 à 01:58
10 juil. 2006 à 01:57
10 juil. 2006 à 01:56
merci
16 sept. 2005 à 21:15
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/messandcab.asp
7 avril 2005 à 19:54
7 avril 2005 à 19:29
9 nov. 2004 à 14:28
Alors si quelqun pourais nous dire comment air sa serasi sympa merci
25 août 2004 à 12:43
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 !!
7 avril 2004 à 14:53
1) avoir XP
2) avoir laissé windows messenger
7 avril 2004 à 14:51
1) avoir XP
2) avoir laissé windows messenger
18 févr. 2004 à 12:54
biensur j'ao coherles api (daileur j'en ai daute en relation avec msn mai a quoi serve til ??) donc je lance le ex ke j'ai compiler et il me met erreu men envoyer rappor d'erreur etc...
que faire ??
24 oct. 2003 à 07:47
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
12 juil. 2003 à 18:17
l'utilistion de l'api n'est pas tres compliquée... je vous conseille d'aller voir ca: http://msdn.microsoft.com/library/en-us/messenger/messenger_entry.asp?frame=true
C'est les références de l'api MS
25 juin 2003 à 17:43
30 mai 2003 à 21:57
Le patch francais est dispo à cette adresse : http://www.generation-nt.com/index.php?cat=news&id=1563
30 mai 2003 à 19:23
30 mai 2003 à 19:21
30 mai 2003 à 18:37
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.
5 mai 2003 à 22:41
pas cool :(:(:(:(:(:(
y a pas moyen d'avoir celle de la 5.0 ???
29 mars 2003 à 05:19
31 déc. 2002 à 01:04
C'était sympa car mes contacts msn me retrouvait facilement sur CS.
Le gros problème c'est que cette API ne fonctionne plus sous messenger 5.0 !!!
26 déc. 2002 à 21:10
26 déc. 2002 à 14:52
26 déc. 2002 à 03:19
26 déc. 2002 à 01:11