تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل ع كود اتصال
#1
بسم الله الرحمان الرحيم
بعد الصلاة والسلام على رسولنا الكريم
محمد صلى الله عليه وسلم
اريد من الاخوة طريقة لعمل
اتصال بوقت
يعني لا اريد
عند ضغط ع زر بوتين
ان يتم الاتصال مباشرة عبر
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
وشكراً ♥
الرد
تم الشكر بواسطة:
#2
كود :
 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
الرد
تم الشكر بواسطة:
#3
أخ 3asfa~mdmra

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


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


ما هو السر : إشرح لنا
ماذا يقدم هذا الموقع
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#4
(01-04-18, 05:32 PM)عبدالله الدوسري كتب : أخ 3asfa~mdmra

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

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

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود ahmedmansour 0 29 21-10-18, 10:16 PM
آخر رد: ahmedmansour
  [سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل ScreamVoice 13 282 11-10-18, 05:43 PM
آخر رد: ScreamVoice
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 217 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  تعديل كود بحث بسيط dasktop 5 145 05-10-18, 12:43 AM
آخر رد: elgokr
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 147 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  سؤال حول تعديل على نص trakktour 5 140 01-10-18, 02:57 AM
آخر رد: rnmr
  احد يساعدني في تعديل هذا الكود nagoma 0 63 29-09-18, 12:06 AM
آخر رد: nagoma
  تعديل بسيط dasktop 4 140 25-09-18, 10:50 AM
آخر رد: elgokr
  تعديل بسيط dasktop 1 94 11-09-18, 02:53 AM
آخر رد: elgokr
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 239 05-09-18, 11:22 PM
آخر رد: essawq

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم