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

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

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