Accueil > > > AVEZ VOUS JAMAIS RÊVÉ DE CONTRÔLER MSN MESSENGER ?
 AVEZ VOUS JAMAIS RÊVÉ DE CONTRÔLER MSN MESSENGER ?
 Information sur la source
 Description
Et bien voilà ca code vous permet d'utiliser les fonctions d'msn messenger. Vous verez c'est l'extase !! Tout d'abord ajouté le composant msn messenger (Références, ajouter tout ce qui s'appel msnsgr et autres)
 Source
Option Explicit
'Déclaration des deux objets msn qu'on va utiliser.
Dim MSN As Messenger
Dim ResMsn As MessengerContentInstaller
Private Sub CmbStatus_Click()
Dim Status As String
Status = CmbStatus.Text
'On récupère le status pour le changer (Y surement un meilleur moyen mais les combobox ça me fait ***
Select Case Status
Case "Absent(e)"
MSN.MyStatus = MISTATUS_AWAY
Case "De retour dans une minute"
MSN.MyStatus = MISTATUS_BE_RIGHT_BACK
Case "Occupé(e)"
MSN.MyStatus = MISTATUS_BUSY
Case "Hors ligne"
MSN.MyStatus = MISTATUS_INVISIBLE
Case "Au téléphone"
MSN.MyStatus = MISTATUS_ON_THE_PHONE
Case "Parti(e) manger"
MSN.MyStatus = MISTATUS_OUT_TO_LUNCH
Case "En Ligne"
MSN.MyStatus = MISTATUS_ONLINE
Case Else
MSN.MyStatus = MISTATUS_ONLINE
End Select
End Sub
Private Sub cmdLogOff_Click()
MSN.Signout
End Sub
Private Sub CmdNick_Click()
MSN.MyFriendlyName = TxtNick.Text
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error GoTo dead
Set MSN = New MessengerAPI.Messenger
Set ResMsn = New MessengerContentInstallerLibrary.MessengerContentInstaller
'on charge notre nick
TxtNick.Text = MSN.MyFriendlyName
'on reprend notre status
CmbStatus.Text = GetState
'On ajoute tout les status existant
CmbStatus.AddItem "En Ligne"
CmbStatus.AddItem "Occupé(e)"
CmbStatus.AddItem "De retour dans une minute"
CmbStatus.AddItem "Absent(e)"
CmbStatus.AddItem "Au téléphone"
CmbStatus.AddItem "Parti(e) manger"
CmbStatus.AddItem "Hors ligne"
Exit Sub
dead:
MsgBox "Erreure lors du chargement ou de l'utilisation de Msn Messenger", vbCritical, "Erreure"
End Sub
Private Function GetState() As String
Dim Status As String
'On transforme le status encodé vers une string.
Select Case MSN.MyStatus
Case MISTATUS_AWAY
Status = "Absent(e)"
Case MISTATUS_BE_RIGHT_BACK
Status = "De retour dans une minute"
Case MISTATUS_BUSY
Status = "Occupé(e)"
Case MISTATUS_INVISIBLE
Status = "Hors ligne"
Case MISTATUS_OFFLINE
Status = "Hors ligne"
Case MISTATUS_ON_THE_PHONE
Status = "Au téléphone"
Case MISTATUS_OUT_TO_LUNCH
Status = "Parti(e) manger"
Case MISTATUS_ONLINE
Status = "En Ligne"
Case Else
Status = "Status inconnu"
End Select
GetState = Status
End Function
 Conclusion
Attention à pas trop flooder msn de requêtes aussi non il va finir par foirer.
 Historique
- 19 juin 2005 12:04:51 :
- Mise a jour (références)
- 29 juin 2005 13:44:58 :
- Grosse mise à jour. Compatible avec msn 7 maitenant !
Avec une source.
- 29 juin 2005 14:00:20 :
- Grosse mise à jour :
Compatible msn 7
Zip intègré.
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
msn messenger [ par Badine ]
comment programmer une aplication chat internetc a dir le serveur est distant a l autre bout de la planetec a dir il passe a traver les fire wire j ai
Le look à la MSN messenger / XP [ par lhalin ]
Salut à tous,Savez-vous comment créer des frame avec le look à la MSN MEssenger ou XP, avec les bord arrondis, les couleurs pastels, les ptit boutons
Msn Messenger et la foutu programmation [ par Weado ]
Bonjour, je vous écris car je voudrai tenté de développer mon msn messenger à moi, mais impossible de partir mon programme, vb arrête à la ligneSet Me
Rechreche composant MSN messenger!!!!! [ par Amano ]
Voilà c'est con mais il me manque la librairie d'MSN messenger et je la trouve pas sur le net.Alors je fais appelle a votre générosité pour m'envoyer
modifier login msn messenger en fonction de l heure [ par morgandetoi06 ]
bonjour, j aimerai savoir s'il est possible de faire un programme qui change automatiquement le login sur MSN messenger en fonction de l'heure du syst
MSN Messenger HTTPS [ par benjavd ]
Bonjour,Le proxy de ma société ne laisse pas paser le protocole utilisé par MSN messenger. Par contre ICQ fonctionne en HTTPS. Y a-t-il un moyen de co
comment modifier login msn messenger en fonction de l heure [ par morgandetoi06 ]
bonjour, j aimerai savoir s'il est possible de faire un programme qui change automatiquement le login sur MSN messenger en fonction de l'heure du syst
Msn messenger connection [ par SatanCorporation ]
jai un problème lors de la connection de msn messenger avec mon programme :le code est :If MSN.LocalState = MSTATE_OFFLINE Then MSN.Logon "pseudo",
MSN Messenger [ par RaZoR ]
Est ce que quelqu'un sait comment on fait pour changer la limite de caracteres (car on est limité à 400 et il me faudrais bcp plus !! ) de MSN Messeng
|
Derniers Blogs
 TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|