منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : How Close a connection
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم
كيف يمكن اغلاق هذا الاتصــــال
وشكراً
كود :
Private Sub ButterscotchToggle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButterscotchToggle1.Click
       If ButterscotchToggle1.Checked = True Then
           Jids = id.Text.Split("#")
           Dim rn As New Random
           For k = 0 To Jids.Length - 1
               emad.Add(z)
               emad(k) = New agsXMPP.XmppClientConnection()
               With emad(k)
                   .Server = "nimbuzz.com"
                   .ConnectServer = "o.nimbuzz.com"
                   .Username = Jids(k)
                   .Password = pw.Text
                   .Resource = "Android" + Convert.ToString(rn.Next(10, 10000000))
                   .Open()
                   AddHandler .OnLogin, AddressOf suc
                   AddHandler .OnAuthError, AddressOf fa
               End With
           Next
End Sub
........جمعة مباركة