06-02-17, 06:51 PM
بسم الله الرحمان الرحيم
بعد الصلاة والسلام على رسولنا الكريم
محمد صلى الله عليه وسلم
اريد من الاخوة طريقة لعمل
اتصال بوقت
يعني لا اريد
عند ضغط ع زر بوتين
ان يتم الاتصال مباشرة عبر
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