[3asfa~mdmra]

وبعد مجهودي حصلت ع هذا كود ولكن اريدك نظر للكو هل يوجد فيه اخطاء ام لا وشكرا ع اهتمامك الجبار

كود :

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Try
           Dim s As Integer
           For s = 0 To Me.ListBox1.Items.Count - 1
               Me.emad.Send(String.Concat(New String() {"<iq xmlns='jabber:client' to='", Me.room1, "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='" & Me.ListBox1.Items.Item(s).ToString & " /></query></iq>"}))
               Me.ListBox1.Items.Add(s)
               Me.Label1.Text = ("id ban : [" & Me.ListBox1.Items.Count & "]")
               Me.ProgressBar1.Invoke(Sub()
                                          Me.ProgressBar1.Value = ((i + 1) / List.Count) * 100
                                      End Sub)


           Next
       Catch ex As Exception

       End Try
   End Sub

فكرة برنامج اضافة عدد من المستخدمين في listbox1 بشكل تالي

banuser1

banuser2

banuser3

اريد اضافة هذه مصفوفات الي كود هذا فقط هي فكرة برنامج

كود :

Me.emad.Send(String.Concat(New String() {"<iq xmlns='jabber:client' to='", Me.room1, "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='" & Me.ListBox1.Items.Item(s).ToString & " /></query></iq>"}))

مع العلم اريد توضيج مايجري داخل كود للمستخدم

بواسطة  ProgressBar1

 او اي شي يوضح للمستخدم من انتهاء اضافة كافة الايميلات بنجاح

وشكراً