Menu Project > Références Cochez Messenger Type Libray et Messenger API Type library Voici un exemple de ce que vous pourrez faire : Public WithEvents MSN As MsgrObject Private Sub Form_Load() Set MSN = New MsgrObject End Sub Private Sub Command1_Click() MSN.LocalState = MSTATE_INVISIBLE ' Apparaitre hors-connexion End Sub Private Sub Command2_Click() MSN.LocalState = MSTATE_AWAY 'Apparaitre Absent End Sub Private Sub Command3_Click() MSN.LocalState = MSTATE_BUSY 'Apparaitre Occupé End Sub
Tu aurais pu faire qqc de plus elaboré quand meme
ouais, je sais, je prévois de faire un petit truc bien sympas d'ici peut ...
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 !!!
pour t'aider Clem, la solution la plus simple est de fermer MSN avant de jouer à Counter ;-))
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 !!!
il suffit de télécharger la nouvelle API pour messenger sur le site de messenger,dispo pour VB,VB.net et C++
ouai mais sur le site de messenger il propose l'API de messenger 4.7pas cool :(:(:(:(:(:(y a pas moyen d'avoir celle de la 5.0 ???
et pour les autres statuts ?? MSN.LocalState = MSTATE_ONLINE 'en ligneMSN.LocalState = MSTATE_BUSY 'occupeMSN.LocalState = MSTATE_BE_RIGHT_BACK 'de retour dans 1 minuteMSN.LocalState = MSTATE_AWAY 'absentMSN.LocalState = MSTATE_ON_THE_PHONE 'au telephoneMSN.LocalState = MSTATE_OUT_TO_LUNCH 'parti mangerMSN.LocalState = MSTATE_INVISIBLE 'apparaitre hors connex.
et pour Messenger 6 ? (la version beta 6 est sortie, elle est pas mal, mais un peu trop en anglais a mon gout...)
ca par contre je sais pas mais je vais chercher et je te mailerai ...
De nombreux patch pour MSN6 voient le jour (activation des jeux, anti-pubs, suppression de la mention "beta", etc ...).Le patch francais est dispo à cette adresse : http://www.generation-nt.com/index.php?cat=news&id=1563
Je cherche l'api de msn 6, si kelk1 c ou je peu trouV ca...
Bonjour tlm,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
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.countend 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 nextend 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 Selectend function
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 ??
oué en fait c l'api de windows messenger donc il faut1) avoir XP2) avoir laissé windows messenger
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 !!
oué grave moi aussi sa ne marche pas avec msn 6.2 Alors si quelqun pourais nous dire comment air sa serasi sympa merci
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 ;))
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 ;)
sa pe aiderhttp://msdn.microsoft.com/library/default.asp?url=/downloads/list/messandcab.asp
salut je veu un progra de la cam pour voir les autres contacts men.merci
je veu dire les contacts msn
les contactes qui etulise la cam bien sûr
Moi MSNCONTROL ca en marche pas ca modifie mon statut pas celui de mon contact c'est nul !
pouvez vous faire le projet pour télécharger I svp
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte