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

بما أني لا أعرف طريقة استخدام الكود، فقد قمت بتعديل الكود لتجربته وعمل بشكل جيد، وان كنت تريد فيمكنك ارفاق مشروع صغير يعمل ببيانات داخله لنجرب عليه.

الكود المعدل للتجربة :

PHP كود :

Dim Jids() As String
    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
            MsgBox("")
            ProgressBar1.Value = ProgressBar1.Value + 1
        Next
    End Sub