Código fuente de Vbsocket

Puedes enviar matrices de bytes o cadenas.

dim binArray() es bytes

Redim binarray(100)

Winsock 1. envía datos binarray

O

dim strOut as sring

strout="abc "

winsock1.senddata strout

Respuesta adicional:

Según qué dijiste, texto1 es el número del juez y texto2 es la puntuación.

Puedes enviar Winsock 1. senddatatext 1. text ":" text2.text

Entonces, si el número de juez es 1 y la puntuación es 5,67, entonces los datos reales enviados son "1:" 5,67".

En otras palabras, dos puntos separan los dos.

Luego sepárelos según los dos puntos al recibirlos.

Por ejemplo, en el evento dataArrival de winsock.

dim StrIn como una cadena

winsock1.getdata StrIn

Msgbox "El número de juicio es"; mid(strin, 1, instr(1, strin, " :)-1)

Msgbox "Puntuación del juez"; mid(strin, instr(1, strin, ":) 1)

Acabo de escribir un ejemplo sencillo para ti.

También puedes adaptarte tú mismo.