[أسامة السالمي]

جرب الكود بعد التعديل :

PHP كود :

Sub login()
        Jids = RichTextBox2.Text.Split("#")
        ProgressBar1.Maximum = Jids.Length

        Dim rn As New Random
        For k = 0 To Jids.Length - 1
            emad.Add(z)
            emad(k) = New agsXMPP.XmppClientConnection()
            With emad(k)
                .Server = "nimbuzz.com"
                .ConnectServer = "o.nimbuzz.com"
                .Username = Jids(k)
                .Password = "12345"
                .Resource = "Android" + Convert.ToString(rn.Next(10, 10000000))
                .Open()
                AddHandler .OnLogin, AddressOf Tru
                AddHandler .OnAuthError, AddressOf wrong
            End With

            ProgressBar1.Value = ProgressBar1.Value + 1
        Next