[VB.NET] تعديل ع كود اتصال - نسخة قابلة للطباعة

كود :

With emad3

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id3.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su3

            AddHandler .OnAuthError, AddressOf fa3

            AddHandler .OnReadXml, AddressOf xml3

        End With

        With emad4

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id4.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su4

            AddHandler .OnAuthError, AddressOf fa4

            AddHandler .OnReadXml, AddressOf xml4

        End With

        With emad5

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id5.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su5

            AddHandler .OnAuthError, AddressOf fa5

            AddHandler .OnReadXml, AddressOf xml5

        End With

        With emad6

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id6.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su6

            AddHandler .OnAuthError, AddressOf fa6

            AddHandler .OnReadXml, AddressOf xml6

        End With

        With emad7

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id7.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su7

            AddHandler .OnAuthError, AddressOf fa7

            AddHandler .OnReadXml, AddressOf xml7

        End With

        With emad8

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id8.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su8

            AddHandler .OnAuthError, AddressOf fa8

            AddHandler .OnReadXml, AddressOf xml8

        End With

وشكراً ♥

كود :

 Private Sub wait(ByVal interval As Integer)

        On Error Resume Next

        Dim sw As New Stopwatch

        sw.Start()

        Do While sw.ElapsedMilliseconds < interval

            System.Windows.Forms.Application.DoEvents()

        Loop

        sw.Stop()

    End Sub

----------------------------------

With emad3

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id3.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su3

            AddHandler .OnAuthError, AddressOf fa3

            AddHandler .OnReadXml, AddressOf xml3

        End With

wit("1000") - ثانيه

        With emad4

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id4.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su4

            AddHandler .OnAuthError, AddressOf fa4

            AddHandler .OnReadXml, AddressOf xml4

  End With

        wit("2000") - ثانيه 2 'وهكذا

With emad5

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id5.Text, pass.Text)

            .Resource = "Android" & rand()

            AddHandler .OnLogin, AddressOf su5

            AddHandler .OnAuthError, AddressOf fa5

            AddHandler .OnReadXml, AddressOf xml5

        End With

        With emad6

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id6.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su6

            AddHandler .OnAuthError, AddressOf fa6

            AddHandler .OnReadXml, AddressOf xml6

        End With

        With emad7

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id7.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su7

            AddHandler .OnAuthError, AddressOf fa7

            AddHandler .OnReadXml, AddressOf xml7

        End With

        With emad8

            .Server = "nimbuzz.com"

            .ConnectServer = "o.nimbuzz.com"

            .Open(id8.Text, pass.Text)

            .Resource = "iPhone" & rand()

            AddHandler .OnLogin, AddressOf su8

            AddHandler .OnAuthError, AddressOf fa8

            AddHandler .OnReadXml, AddressOf xml8

        End With

دا موقع شات وفي ناس كتير مش اكتر ولا اقل
يعتبر سهل بس ف الوقت الحالي
شغالين عليه وفي حمايات ضد الهكر وكدا
وبرضو ضعيف شبه ما
الشات دا في حسابات عربي ولاتيني
وانجليزي عادي
مثال زي كدا
ألنمــ☻ــر = مثلا 200 جنيه
زي كدا وحروف انجلش مزخرفه وكدا
هوس ف مستخدمين البرنامج