Problema Winsock

[VisualGuallabo]

Ok para eso crearemos una función para mayor organización en el codigo.


function separador(TxtData as string, separador as string)
Dim Terminar As Boolean
Dim conta As Integer
Dim matri As Array

matri = Split(TxtData, separador)

Do
On Error GoTo Termina
' accion es un procedimiento al que le pasaras los mensajes separados
accion(matri(conta)) 'obteniendo los datos
conta = conta + 1
Loop While Terminar = False
End Function

sub accion(data as string)
If Mid(data, 1, 2) = "ip" Then msgbox(Mid(data, 4))
If Mid(data, 1, 6) = "nombre" Then msgbox(Mid(data, 8) )
End sUB


solo tienes que pasar ala función separador los datos resividos.


socket.GetData str_datos
separador(str_datos,"#*#")


esta tecnica la uso en un juego de cartas en red y me funciona de marabillas