تقييم الموضوع :
  • 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
وشكراً ♥
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود تعديل بيانات أبوسعود 3 101 03-01-18, 12:18 AM
آخر رد: أبوسعود
  مساعده فى تعديل كود لو سمحتوا نبيل فتحى 2 74 02-01-18, 05:09 PM
آخر رد: نبيل فتحى
  تعديل الكود ده لو سمحتوا يا جماعه نبيل فتحى 1 51 02-01-18, 04:58 PM
آخر رد: طالب برمجة
  [VB.NET] احتاج تعديل الكود "تأكد من الصلاحية" hglogtd 3 107 02-01-18, 01:02 AM
آخر رد: طالب برمجة
  جملة اتصال بخادم بنفس الشبكة Abdelazez.Ahmad 4 78 30-12-17, 03:16 PM
آخر رد: Abdelazez.Ahmad
  [VB.NET] تعديل كود في عرض بيانات من جدولين على ريبورت فيور hglogtd 10 306 24-12-17, 10:43 PM
آخر رد: hglogtd
  مساعدة فى تعديل كود اذا سمحتوا مسح كل حاجه فى الداتا جريد فيو نبيل فتحى 2 77 04-12-17, 02:14 AM
آخر رد: عبد الاحد
  [نقاش] محتاج مساعده بأفكار لانجاز تعديل على المشروع Rabeea Qbaha 7 211 30-11-17, 04:45 PM
آخر رد: Rabeea Qbaha
  [VB.NET] تعديل كود لاعطائي عدد كلمة في الداتا قريد فيو hglogtd 2 123 19-11-17, 10:50 AM
آخر رد: hglogtd
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 209 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى

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


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