03-03-17, 01:21 PM
سلام عليكم
جمعه مباركة ع جميع
ارد ايقاف تفيذ امر الكود ادانه وشكراً
كود :
Private Sub LogInButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton2.Click
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("Please put identifiers" & ChrW(10) & "الرجاء وضع نكات في القائمة المخصصة", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")
Else
Dim num As Integer = (Enumerable.Count(Of String)(Me.TextBox1.Lines) - 1)
Dim i As Integer = 0
Do While (i <= num)
Me.ProgressBar1.Value = CInt(Math.Round(Conversion.Int(CDbl((CDbl((i * 100)) / CDbl(Enumerable.Count(Of String)(Me.TextBox1.Lines)))))))
Form1.emad.Send(String.Concat(New String() {"<iq to='", Form1.room.Text, "@conference.nimbuzz.com' type='set' id='179'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='owner' jid='", Me.TextBox1.Lines(i), "@nimbuzz.com' /></query></iq>"}))
wait()
i += 1
Loop
Me.ProgressBar1.Value = 100
Interaction.MsgBox("Everyone has been added" & ChrW(10) & "تم اضافة الجميع", MsgBoxStyle.ApplicationModal, "أنتهى" & ChrW(10) & "finish")
Me.TextBox1.Text = ""
End If
End Sub