[e-coder]

سلام عليكم

بعد الصلاه والسلام على الحبيب محمد

صلى الله عليه وسلم والصحابه 

أجمعين /

كيف اوضع 

ProgressBar 

في هذا الكود

PHP كود :

Sub login()
        Jids = RichTextBox2.Text.Split("#")
        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
        Next
    End Sub 


لأبين للمستخدم نهاية

.ProgressBar

تعني نهاية تسجيل دخول الايميلات 

وشكراً

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

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

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 


[e-coder]

شكراً لك لكن لم ينجح الموضوع
ProgressBar1
عطول بصير 100
اول مااضغط
login

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

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

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

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 


[e-coder]

(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 


اخي بارك الله فيك و انا رفعت لك  المشروع

ووضعت ايميلات وباس لتعرف مشكلة

المشروع بالمرفقات

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

تفضل الكود بعد التعديل :

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 


[e-coder]

(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 


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

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

جرب هذا الكود :

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
        Button1.Enabled = False
        ProgressBar1.Value = 0
        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
End Class 


[e-coder]

لم تنجح
ProgressBar1.Value =60
وعدد دخول الايميلات يكتمل
ولكن ProgressBar1.Value =60
لماذا؟

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

البرنامج شغال عندي :

   

---

على العموم جرب هذا التعديل في الحدثين (Tru) و (wrong) : 

PHP كود :

Private Sub Tru(ByVal sender As Object)
        ListBox1.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " connected")
        Label1.Text = (ListBox1.Items.Count.ToString)

        Try
            ProgressBar1.Value = ProgressBar1.Value + 1
        Catch ex As Exception

        End Try
    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)

        Try
            ProgressBar1.Value = ProgressBar1.Value + 1
        Catch ex As Exception

        End Try
    End Sub