CodeS-SourceS
Rechercher un code, un tuto, une réponse

Contacts mail msn avec la nouvelle version msnpsharp en vb.net

Avril 2017


Contacts mail msn avec la nouvelle version msnpsharp en vb.net



Récupération des contacts mail MSN avec VB.net 2008 en usant de msnPsharp.dll

Ajouter la référence MsnPsharp.dll au projet, La dll : MsnPSharp

Formulaire


Nommer

  • Le textbox relatif à user (email): TextBox1
  • Le textbox relatif au mot de passe : TextBox2
  • Le bouton « connecter » : Button1
  • Le bouton « deconnecte » : Button2
  • Une listBox nommée : ListBox1

Code


'
Imports MSNPSharp
Imports MSNPSharp.Core

Public Class Form1
Dim c As New Messenger

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click

    c.Credentials = New Credentials(Me.TextBox1.Text, Me.TextBox2.Text, MsnProtocol.MSNP18, "MSNP18", MsnProtocol.MSNP18)
    c.Connect()
    Threading.Thread.Sleep(2000)
    AddHandler c.Nameserver.SignedIn, AddressOf contlist

End Sub

Private Sub contlist(ByVal sender As Object, ByVal e As EventArgs)

If InvokeRequired = True Then
    Invoke(New EventHandler(AddressOf contlist), sender, e)
    Return
End If

For Each cont As Contact In c.ContactList.All
    Dim t As String = cont.Mail
    Me.ListBox1.Items.Add(t)
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button2.Click

    c.Disconnect()

End Sub

End Class

A voir également

Publié par getule.
Ce document intitulé «  Contacts mail msn avec la nouvelle version msnpsharp en vb.net  » issu de CodeS-SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dll personnalisé avec évènements et propriétés en vb6. (withevents, event, property, class, bibliothèque, référence)
Startup object :sub main vs maforme