Avez vous jamais rêvé de contrôler msn messenger ?

Soyez le premier à donner votre avis sur cette source.

Vue 241 441 fois - Téléchargée 11 743 fois

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 / Exemple :


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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

hacker5001
Messages postés
1
Date d'inscription
mardi 6 octobre 2009
Statut
Membre
Dernière intervention
6 octobre 2009

ou faut mettre ses code
adol30
Messages postés
1
Date d'inscription
mercredi 8 octobre 2008
Statut
Membre
Dernière intervention
9 octobre 2008

he salut les amis il se trouve que vous comprenez rien dans tout ce trajet.voila il faut une etude complette. et encore il faut avoir un logiciel qui a toute les aplication editer le script.si quelqu un veux ariver à faire marcher son projet:adil782009@hotmail.fr
hoeppe
Messages postés
56
Date d'inscription
mardi 20 mai 2003
Statut
Membre
Dernière intervention
10 juin 2005

juste une proposition : epuration des coms pour ne garder que l'essentiel, ca serait le bienvenu.
Mario1095
Messages postés
168
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
6 mai 2009
1
ça fonctionne avec vba ?
cs_steven007
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

ça a l'air bien propre v essayer ta source merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.