Bueno tuve que hacer algunos trabajos para esta versión y me tuve que poner a ver cómo funciona el protocolo de esta versión. Se que más de uno lo sabe pero para los que son nuevos y empiezan en esta versión o los que se pasan de 12.x/13.x para estas versiones les va a venir más que bien :p

Como enviar datos desde el cliente al servidor:

Varias veces se envía datos desde el cliente al servidor, como por ejemplo cuando se ejecuta un comando, cuando se mueve el personaje, cuando tirás un hechizo, etc.

¿Cómo se logra esto?

En el cliente cada vez que hacemos una acción tenemos que mandar una cadena de caracteres al servidor.

¿Cómo envío en una cadena de caracteres al servidor? ¿Qué mando en esa cadena?

En el cliente tenemos un método que se llama SendData el mismo tiene un parámetro en donde tenemos que pasar la cadena que va a ir al servidor. En esa cadena tenemos que enviar un identificador como un "CADENA1" más toda la información que queramos que el servidor reciba la información que vos querés enviar al servidor debe estar separada por "-" menos el identificador.

Un ejemplo para ser más claros.
Ponele que yo quiero enviar un reto a otro usuario, lo que debo hacer es:

Dim Cadena as String

Cadena = "RETO1VS1PEPITO-10000-0"

Que se traduce a:

"Reto 1vs1, nick al que envío, cantidad de oro, caen o no objetos"

Y esto lo podemos aplicar a un formulario por ejemplo:

Un text en donde tengamos que poner el nombre del oponente llamado "oponente_txt"
Un text en donde tengamos que poner la cantidad de oro a retar "oro_txt"
Un check en donde tengamos que poner si caen o no objetos "objetos_check"
Un botón en donde tengamos que apretar para enviar el reto "EnviarReto_cmd"

Entonces al apretar en el botón ponemos:

Private Sub EnviarReto_cmd_Click()
Dim strData as String '<- Para almacenar lo que vamos a enviar y que sea un poquito más ordenado.

'Acá llenamos la variable.
StrData = "RETO1VS1" & oponente_txt.text & "-" & oro_txt.text  & "-" & objetos_check.value
Call SendData(strData) '<- Enviamos la variable que almacena toda la data.
End Sub

Ahora tenemos que ir a la parte del servidor.

En el servidor tenemos un método que recibe la data que acabamos de enviar en el cliente:

Que es este: Sub HandleData(UserIndex As Integer, ByVal rdata As String)

Userindex es el usuario que lo mandó y rdata la información que mandaste.

En el mismo método abajo de todo esto:

[code=vb]
Dim Procesado As Boolean

If UserList(UserIndex).Counters.Saliendo Then
    UserList(UserIndex).Counters.Saliendo = False
    UserList(UserIndex).Counters.Salir = 0
    Call SendData(ToIndex, UserIndex, 0, "{A")
End If

If Left$(rdata, 1) <> "#" Then
    Call HandleData1(UserIndex, rdata, Procesado)
    If Procesado Then Exit Sub
Else
    Call HandleData2(UserIndex, rdata, Procesado)
    If Procesado Then Exit Sub
End If
[/code]

Tenemos que identificar qué mandamos en la rdata (que es la data que enviamos en el cliente) en el cliente, si no se acuerdan lean de vuelta, tenían que enviar un identificador en la data, bueno, ese identificador sirve para, valga la redundancia, identificar lo que vamos hacer con esa data.

Ahora... ¿Cómo identificamos?

Tenemos que cortarle a rdata (que, repito, es la información que mandamos desde el cliente) la cantidad de caracteres que tiene nuestro identificador y pasar toda esa cadena cortada a mayúscula. Una vez hecho esto tenemos que comparar la cadena que nos quedó con nuestro identificador.

Ejemplo:

If UCase$(Left$(rdata, 8)) = "RETO1VS1" Then

End If

¿Qué hace ese código?

Lo siguiente:

Corta, con la función left, la cadena rdata desde izquierda a derecha la cantidad de caracteres que tiene nuestro identificador. Después con UCase$ lo pasamos a mayúscula, toda esa cadena que nos queda la comparamos con RETO1VS1.

Entonces ahora... si concuerda ¿Qué hacemos?

Si la data que tenemos tiene datos adicionales tenemos que sacar el "retos1vs1" de la cadena e ir separando la cadena con readfield e ir poniendo toda la información en variables.

Sigamos con el ejemplo de retos1vs1:

[code=vb]
If UCase$(Left$(rdata, 8)) = "RETO1VS1" Then
    Dim Oponente as String
    Dim Oro as Long
    Dim CaenObjetos as Boolean

    rdata = Right$(rdata, Len(rdata) - 8)
    Oponente = Readfield(1, rData, Asc("-"))
    Oro = CLng(2, rData, Asc("-"))
    CaenObjetos = CBool(3, rData, Asc("-"))
End If[/code]

¿Qué hicimos con esto?

    rdata = Right$(rdata, Len(rdata) - 8)

Cortamos el "RETO1VS1" de la cadena. Ahora la cadena queda así: "OPONENTE-ORO-CAENOBJETOS"

   Oponente = Readfield(1, rData, Asc("-"))

Con esto cortamos la cadena hasta el primer "-" y lo guardamos en la variable oponente.

    Oro = CLng(2, rData, Asc("-"))

Con esto cortamos la cadena desde el primer "-" hasta el segundo "-" y convertimos esa cadena en Long y lo guardamos en la variable.

    CaenObjetos = CBool(3, rData, Asc("-"))

Con estos cortamos la cadena desde el segundo "-" hasta el tercer "-" y convertimos esa cadena en Boolean.

Con esto ya enviamos la data que necesitábamos desde el cliente al servidor. Esto ya es todo, después ustedes manejan esa información como quieren.

Ahora como enviar datos del servidor al cliente, esto va a ser más fácil ya que tenemos varios conceptos aclarados.