وشكراً

(03-06-17, 06:11 PM)أسامة السالمي كتب : بما أني لا أعرف طريقة استخدام الكود، فقد قمت بتعديل الكود لتجربته وعمل بشكل جيد، وان كنت تريد فيمكنك ارفاق مشروع صغير يعمل ببيانات داخله لنجرب عليه.

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

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 


(03-06-17, 11:58 PM)أسامة السالمي كتب : تفضل الكود بعد التعديل :

PHP كود :

Imports agsXMPP
Imports System.Collections.ObjectModel
Public Class Form1
    Dim Jids As String()
    Dim Jid As String()
    Public Shared z As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection()
    Public Shared emad As New Collection(Of agsXMPP.XmppClientConnection)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.login()
    End Sub
    Sub login()
        Jids = TextBox1.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 = TextBox2.Text
                .Resource = "Android" + Convert.ToString(rn.Next(10, 10000000))
                .Open()
                AddHandler .OnLogin, AddressOf Tru
                AddHandler .OnAuthError, AddressOf wrong
            End With
        Next
    End Sub
    Private Sub Tru(ByVal sender As Object)
        ListBox1.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " connected")
        Label1.Text = (ListBox1.Items.Count.ToString)

        ProgressBar1.Value = ProgressBar1.Value + 1
    End Sub
    Private Sub wrong(ByVal sender As Object, ByVal e As Xml.Dom.Element)
        ListBox2.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " Failed")
        Label2.Text = (ListBox2.Items.Count.ToString)

        ProgressBar1.Value = ProgressBar1.Value + 1
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CheckForIllegalCrossThreadCalls = False
    End Sub 


ظهرت هذه المشكلة