Lo primero que haces es agregar un modulito lindo y nuevo con el nombre de indentificadores
Y le ponemos esto de codigo
- Public Function ReplaceData(sdData As String) As String
- Dim Rdata As String
- Select Case UCase$(sdData)
- Case Is = "/MEDITAR"
- ReplaceData = "#A"
- End Select
- If Len(ReplaceData) = 0 Then ReplaceData = sdData
- End Function
Ahora vamos al
- Sub SendData
y debajo de
- sdData = sdData & ENDC
ponemos
- sdData = ReplaceData(sdData)
Listo el cliente
Ahora pasamos al servidor
buscamos
- Case "/MEDITAR"
y lo remplazamos por
- Case "#A"
Creo que no falta nada mas
ahora tenemos un envió de indentificadores cliente servidor como en fenix y si no me equivoco como twist ao
Hay solo les deje el /meditar ahora ustedes tiene que hacer el resto
Chua cuidense y adios ♥ 11.5 ♥
Por favor alguien testeelo





919![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)


![Newbie [2] Newbie [2]](./images/ranks/Rango1.gif)

![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)

![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)

![Aprendiz [2] Aprendiz [2]](./images/ranks/Rango7.gif)

![Oraculo [3] Oraculo [3]](./images/ranks/Rango27.gif)

