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
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|