16-02-17, 11:25 PM
سلام عليكم
كيف يمكن اغلاق هذا الاتصــــال
وشكراً
كود :
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