Agregar 255 paquetes más
2 participantes
Página 1 de 1.
Agregar 255 paquetes más
Bueno, para los usuarios que su servidor tenga 255 paquetes (Maximo de la variable Byte), para duplicarla debemos agregar otros 255 paquetes más.
Para hacer esto deben buscar:
SERVIDOR:
Buscan el ultimo paquete del protocolo y después del ultimo agregamos:
Ahora buscamos:
Y despues del End Enum agregamos abajo:
Ahora en el HandleIncomingData, en el ultimo paquete agregamos:
Y ahora a lo último del modulo Protocol.bas agregamos el siguiente SUB:
CLIENTE:
Buscamos el último paquete que tenemos agregado y abajo de tal agregamos:
Abajo del sub Public Enum FontTypeNames, después del End Enum agregamos:
EJEMPLO:
Bueno ahora para agregar un nuevo paquete van a tener que utilizar el siguiente ejemplo:
Van a tener que buscar SpikelPaquetesList y agregar un paquete como en el siguiente ejemplo:
Y en el nuevo SUB que hagan para mandar el paquete van a tener que utilizar lo siguiente:
Atte: Francohhh
Para hacer esto deben buscar:
SERVIDOR:
Buscan el ultimo paquete del protocolo y después del ultimo agregamos:
- Código:
SpikelPaquetes ' [Francohhh]
Ahora buscamos:
- Código:
Public Enum FontTypeNames
Y despues del End Enum agregamos abajo:
- Código:
Private Enum SpikelPaquetesList
End Enum
Ahora en el HandleIncomingData, en el ultimo paquete agregamos:
- Código:
Case ClientPacketID.SpikelPaquetes
Call HandleSpikelPaquetesList(UserIndex) '[Francohhh]
Y ahora a lo último del modulo Protocol.bas agregamos el siguiente SUB:
- Código:
Public Sub HandleSpikelPaquetesList(ByVal UserIndex As Integer)
'***************************************************
'Author: Franco Scoccimarro (Francohhh)
'Last Modification: 13/12/10
'
'***************************************************
'On Error Resume Next
Dim packetID As Byte
UserList(UserIndex).incomingData.ReadByte
packetID = UserList(UserIndex).incomingData.PeekByte()
Select Case packetID
End Select
End Sub
CLIENTE:
Buscamos el último paquete que tenemos agregado y abajo de tal agregamos:
- Código:
SpikelPaquetes ' [Francohhh]
Abajo del sub Public Enum FontTypeNames, después del End Enum agregamos:
- Código:
Private Enum SpikelPaquetesList
End Enum
EJEMPLO:
Bueno ahora para agregar un nuevo paquete van a tener que utilizar el siguiente ejemplo:
Van a tener que buscar SpikelPaquetesList y agregar un paquete como en el siguiente ejemplo:
- Código:
Private Enum SpikelPaquetesList
Prueba
end enum
Y en el nuevo SUB que hagan para mandar el paquete van a tener que utilizar lo siguiente:
- Código:
With outgoingData
Call .WriteByte(ClientPacketID.SpikelPaquetes)
Call .WriteByte(SpikelPaquetesList.Prueba)
End With
End Sub
Atte: Francohhh
Re: Agregar 255 paquetes más
Kenahi escribió:Para qe sirve ? jaja
Sirve para cuando tenes 255 y no podes agregar más paquetes y no podes hacer más comandos ni nada por el estilo.
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.