[3asfa~mdmra]

السلام عليكم

كنت وقد طلبت منك كود واعطتيني اياه وطبقتو ع كافة الاكواد وزبط الحمد لله

والكود هوا

كود :

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

       Jids = id.Text.Split("#")
       Dim i, j As Integer
       For i = 0 To Jids.Length - 1
           For j = 0 To ListBox1.Items.Count - 1
               emad(i).Send(String.Concat(New String() {"<iq type='set' id='nimbuzz_submitroomconfingform' to='" & ListBox1.Items(j) & "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#owner'><x type='submit' xmlns='jabber:x:data'><field var='FORM_TYPE'><value>http://jabber.org/protocol/muc#roomconfig</value></field><field var='muc#roomconfig_roomname'><value>" & ListBox2.Items(j) & "</value></field><field var='muc#roomconfig_maxusers'><value>25</value></field><field var='muc#roomconfig_publicroom'><value>1</value></field><field var='muc#roomconfig_persistentroom'><value>1</value></field><field var='muc#roomconfig_membersonly'><value>0</value></field><field var='muc#roomconfig_whois'><value>anyone</value></field></x></query></iq>"}))
               Threading.Thread.Sleep(20 * 1000)
               Dim a As Integer = (i + j)
               Dim b As Integer = (ListBox1.Items.Count + Jids.Length)
               Me.ProgressBar1.Invoke(Sub()
                                          Me.ProgressBar1.Value = ((a + 1) / (b)) * 100
                                      End Sub)
           Next
       Next
     
   End Sub

اما الان واجاهتني  مشكلة وهي اريد تطبيق الكود اعلاه ع نفس هذا كود

كود :

   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Me.emad.Send(String.Concat(New String() {"<iq to='", Me.room1, "@conference.nimbuzz.com' type='set'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", Me.ListBox1.Items.Item(0).ToString, "@nimbuzz.com' /></query></iq>"}))
       Threading.Thread.Sleep(20 * 1000)
       Me.ListBox1.Items.RemoveAt(0)
   End Sub

وشكرا لك اخي ولكافة من يساعدني