[3asfa~mdmra]

بسم الله الرحمان الرحيم

بعد الصلاة والسلام على رسولنا الكريم

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

اريد من الاخوة طريقة لعمل

اتصال بوقت

يعني لا اريد

عند ضغط ع زر بوتين

ان يتم الاتصال مباشرة عبر

6 اتصالات

ولكن مااريده هوا

اتصال تدرجي

يعني الاتصال الاول 20 ثانية

الثاني 30 ثانية

الاتصال الرابع 40 ثانية

كود الاتصال هوا

كود :

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

وشكراً ♥

[adel2000]

كود :

 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

[عبدالله الدوسري]

أخ 3asfa~mdmra

أرجوا أن تشرح لنا السر وراء هذا الموقع
nimbuzz.com


نحن أخوانك ونريد أن نستفيد
أرى الكثير يريدون بطريقة أو بأخرى 
( وكأنها والله أعلم تلاعب على خدمات يقدمها هذا الموقع )


ما هو السر : إشرح لنا
ماذا يقدم هذا الموقع

[adel2000]

(01-04-18, 05:32 PM)عبدالله الدوسري كتب : أخ 3asfa~mdmra

أرجوا أن تشرح لنا السر وراء هذا الموقع
nimbuzz.com

 

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