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

0/5 (111 avis)

Vue 241 733 fois - Téléchargée 11 792 fois

Télécharger le projet
Commenter

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.
Télécharger le projet

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
6 oct. 2009 à 19:23
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
9 oct. 2008 à 08:02
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
16 févr. 2008 à 20:55
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
5 nov. 2007 à 20:26
ç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
12 juil. 2007 à 20:25
ça a l'air bien propre v essayer ta source merci
S'inscrire maintenant

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.

Du même auteur (cs_krust)