man inja har2 ro ba ham gereftam shoma mitonid joda begirid
AddHandler .OnPresence, AddressOf x_OnPresence
Private Sub x_OnPresence(ByVal sender As Object, ByVal pres As agsXMPP.protocol.client.Presence)
On Error Resume Next
If pres.Type = agsXMPP.protocol.client.PresenceType.available Then
If pres.Status = agsXMPP.protocol.client.PresenceType.available Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)
End If
End If
Next
ListBox1.Items.Add(pres.From.ToString)
ListBox1.Items.Add(pres.Status.ToString)
End If
End If
If pres.Type = agsXMPP.protocol.client.PresenceType.unavailable Then
If pres.Status = agsXMPP.protocol.client.PresenceType.unavailable Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)
End If
End If
Next
ListBox1.Items.Remove(pres.From.ToString)
ListBox1.Items.Remove(pres.Status.ToString)
End If
End If
End Sub
Private Sub x_OnPresence(ByVal sender As Object, ByVal pres As agsXMPP.protocol.client.Presence)
On Error Resume Next
If pres.Type = agsXMPP.protocol.client.PresenceType.available Then
If pres.Status = agsXMPP.protocol.client.PresenceType.available Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)
End If
End If
Next
ListBox1.Items.Add(pres.From.ToString)
ListBox1.Items.Add(pres.Status.ToString)
End If
End If
If pres.Type = agsXMPP.protocol.client.PresenceType.unavailable Then
If pres.Status = agsXMPP.protocol.client.PresenceType.unavailable Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)
End If
End If
Next
ListBox1.Items.Remove(pres.From.ToString)
ListBox1.Items.Remove(pres.Status.ToString)
End If
End If
End Sub