Envios de paquetes con protocolo binario

Mi Canal YouTube · » 12 Sep 2011 14:50

bueno todavia me cuesta mucho entender el protocolo binario, ya lei la guia q dejor franeg en 13.0 pero no pude entender, trate de hacerlo pero ise pedo y no salio nada

estos son los paquetes (11.5) q no puedo pasar al protocolo binario

es el sistema de niebla por Standelf

Cliente:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

           Case "SMT"                  ' >>>>> Set the Weather :: SMT
                Rdata = Right$(Rdata, Len(Rdata) - 3)
                Niebla = IIf(val(Rdata) = 1, True, False)
            Exit Sub

Servidor:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

       Case "/NIEBLA"
                If UserList(UserIndex).flags.Privilegios <> User Then
                    Call SendData(SendTarget.toall, 0, 0, "SMT1")
                End If
            Exit Sub
 
        Case "/FINNIEBLA"
                If UserList(UserIndex).flags.Privilegios <> User Then
                    Call SendData(SendTarget.toall, 0, 0, "SMT0")
                End If
            Exit Sub

gracias

pd: si no me lo kieren dejar todo echo no lo dejen, pero orientenmé mas o menos como empezarlo

» 20 Sep 2011 23:48

Servidor ponelo alfinal del Protocol:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

''
' Handles the SMT message.
 
Private Sub HandleSMT()
'***************************************************
'Autor: Martín Gomez (Samke)
'Last Modification: 20/09/2011
'***************************************************
    
    'Remove packet ID
    Call incomingData.ReadByte
    
    Dim Niebla As Integer
    
    Niebla = incomingData.ReadInteger()
    
End Sub

Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

CheckSlot               '/SLOT

Abajo pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

SMT

Cliente ponelo alfinal del Protocol:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

''
' Writes the "SMT" message to the outgoing data buffer.
'
' @remarks  The data is not actually sent until the buffer is properly flushed.
 
Public Sub WriteSMT()
'***************************************************
'Autor: Martín Gomez (Samke)
'Last Modification: 20/09/2011
'Writes the "SMT" message to the outgoing data buffer
'***************************************************
    Call outgoingData.WriteByte(ClientPacketID.SMT)
End Sub

Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

CheckSlot               '/SLOT

Abajo pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

SMT

Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Case "/AUTOUPDATE"
                Call WriteResetAutoUpdate

Abajo pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Case "/NIEBLA"
                Call WriteSMT

Si no me equiboco es asi.

Saludos

Envios de paquetes con protocolo binario

¿Quién está conectado?