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

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

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)