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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 86 18-07-18, 07:26 PM
آخر رد: elgokr
  خطأ فى اتصال بقاعدة بيانات 2007 فى عمل كريستال ريبوت ارجو التفسير خالد كامل1 1 52 09-07-18, 03:39 AM
آخر رد: boudyonline
  اخواني لدي مثال مشروع تعديل علي بيانات موجودة علي حسب تاريخ اليوم نور الهدى الهدى 7 175 06-07-18, 05:54 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 175 29-06-18, 07:40 PM
آخر رد: elgokr
  تعديل داخل datagriedview atef_020 1 80 05-06-18, 05:01 AM
آخر رد: محمد كريّم
  سؤال عن اتصال قاعدة البيانات رسول555 6 215 24-04-18, 10:06 AM
آخر رد: سعود
  [سؤال] اريد تعديل علي برنامج يحول المقالات الي فيديو elokely 1 100 24-04-18, 02:23 AM
آخر رد: silverlight
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 208 20-04-18, 07:22 PM
آخر رد: محمد كريّم
  [VB.NET] مشكلة اتصال برنامج مصصم بالفجول بيسك بقاعدة بيانات mysql altho8 1 155 18-03-18, 02:56 PM
آخر رد: عبدالله الدوسري
  عمليات حفظ تعديل حذف حافظ حافظ 2 150 05-03-18, 08:39 PM
آخر رد: حافظ حافظ

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


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