19-01-17, 09:20 PM
السلام عليكم
كنت وقد طلبت منك كود واعطتيني اياه وطبقتو ع كافة الاكواد وزبط الحمد لله
والكود هوا
كود :
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
وشكرا لك اخي ولكافة من يساعدني