[3asfa~mdmra]

اخي شكرا الك ولكن نك الادمن بفصل لا اعرف سبب
عند اضافة كافة الايميلات يفارض ان يبقي متصل ولا يفصل

---

انا طبقت هذا الكود ولمن تظهر خطأ الرجاء منك ايجاد المشكلة

كود :

 Private Sub BackgroundWorker4_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker4.DoWork
       Me.ProgressBar1.Value = 0
       Dim strArray As String() = ListBox1.SelectedItem
       Me.ProgressBar1.Maximum = strArray.Length
       Dim i As Integer = 0
       Do While (i <= strArray.GetUpperBound(0))
           emad.Send(String.Concat(New String() {"<iq to='" + room1 + "@conference.nimbuzz.com' type='set' id='179'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", strArray(i), "@nimbuzz.com' /></query></iq>"}))
           Me.ProgressBar1.Value += 1
           i += 1
       Loop
       Timer1.Enabled = False
       MessageBox.Show("End ADD 10.000 Id")
   End Sub

صورة عن المشكة

وشكراً لمجهودك اخي