منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

(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 


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

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

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

[attachment=14493]

---

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