salam dosta split kardane id ha baray vb.net niaz daram , age help kunid.
mamnoon
mamnoon
No user |
Dim mamad As New Collection(Of XmppClientConnection)()
Public M As String()
Private i As Integer
Try
M = txtmulti.Text.Split("#")
For i = 0 To M.Length - 1
Dim soket As New XmppClientConnection()
mamad.Add(soket)
mamad(i) = New XmppClientConnection()
mamad(i).Server = "nimbuzz.com"
mamad(i).ConnectServer = "o.nimbuzz.com"
mamad(i).Open(M(i), txtPass.Text, "jonewaram@n.c")
mamad(i).OnAuthError += OnAuthError
mamad(i).OnClose += OnClose
mamad(i).OnLogin += onloginids
Next
End Try
M = txtuser.Text.Split("#")
For i = LBound(M) To UBound(M)
Dim meti As New XmppClientConnection()
socket.Add(meti)
socket(i) = New XmppClientConnection()
socket(i).Server = "nimbuzz.com"
socket(i).ConnectServer = "o.nimbuzz.com"
socket(i).Open(M(i), txtPass.Text, "Resource")
AddHandler .socket(i).OnLogin,AddresOf login
AddHandler .socket(i).OnClose,AddresOf dc
AddHandler .socket(i).OnAuthError,AddresOf wrong
Next
|
|