Posts : 635 EmTiaz User : 1319 Like : 78 Join date : 2013-07-29 Age : 29 Job/hobbies : لیسانس میکروبیولوژی Nimbuzz ID : aluok@n.c
Subject: source gereftane all adlist vb.net Mon Oct 07, 2013 4:26 pm
Code:
AddHandler .OnRosterItem, AddressOf OnRosterItem
Private Sub OnRosterItem(ByVal sender As Object, ByVal item As agsXMPP.protocol.iq.roster.RosterItem) On Error Resume Next If (item.Subscription = agsXMPP.protocol.iq.roster.SubscriptionType.both) Then For i = 0 To ListBox1.Items.Count - 1 If (item.Jid.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i) End If Next ListBox1.Items.Add(item.Jid.ToString()) Label1.Text = ListBox1.Items.Count End If End Sub