تقييم الموضوع :
  • 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 جنيه
زي كدا وحروف انجلش مزخرفه وكدا
هوس ف مستخدمين البرنامج

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 88 أمس, 07:22 PM
آخر رد: محمد كريّم
  [VB.NET] مشكلة اتصال برنامج مصصم بالفجول بيسك بقاعدة بيانات mysql altho8 1 104 18-03-18, 02:56 PM
آخر رد: عبدالله الدوسري
  عمليات حفظ تعديل حذف حافظ حافظ 2 105 05-03-18, 08:39 PM
آخر رد: حافظ حافظ
  ارجو تعديل كود if hglogtd 2 87 01-03-18, 02:07 AM
آخر رد: hglogtd
  [كود] تعديل الكود saad mahyoub 1 42 27-02-18, 08:19 PM
آخر رد: saad mahyoub
  تعديل صغير bidaya 1 28 26-02-18, 05:32 AM
آخر رد: bidaya
  اي تعديل على الفورم لا يظهر عند تشغيل البرنامج مركز كلمات 7 1,228 06-02-18, 08:22 PM
آخر رد: Basil Abdallah
  [VB.NET] طلب تعديل كود بسيط جداً e-coder 10 59 04-02-18, 12:34 AM
آخر رد: e-coder
  [VB.NET] تعديل البيانات بعد استخدام جملة UNION محمد اسماعيل 4 42 02-02-18, 04:05 PM
آخر رد: محمد اسماعيل
  [سؤال] كيفية تعديل محتويات جدول بواسطة داتا جريد فيو أبوسعود 5 59 01-02-18, 05:08 AM
آخر رد: أبوسعود

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


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