[Aporte] Consola en el Servidor

Screen:



Todo el Procedimiento en el Servidor:

Creamos en el frmMain del servidor un ListBox con nombre ListadoM, un label con el nombre zoom y un CommandButon con caption Limpiar.

Le hacemos doble Click a ListBox y ponemos este codigo:

Código:

zoom.Caption = ListadoM.Text

Volvemos al frmMain y le damos doble click al boton que creamos y ponesmos este codigo:

Código:

ListadoM.Clear
zoom.Caption = ""

Despues buscamos:

Código:

Sub SendData(ByVal sndRoute As SendTarget, ByVal sndIndex As Integer, ByVal sndMap As Integer, ByVal sndData As String)

y Arriva Agregamos:

Código:

Sub PostMensaje(ByVal Mensaje As String)
frmMain.ListadoM.AddItem Mensaje
If frmMain.ListadoM.ListCount > 9 Then frmMain.ListadoM.RemoveItem 0
frmMain.ListadoM.ListIndex = frmMain.ListadoM.ListCount - 1
End Sub

Luego buscamos:

Código:

  Case SendTarget.ToAdmins
        For LoopC = 1 To LastUser
            If UserList(LoopC).ConnID <> -1 Then
                If UserList(LoopC).flags.Privilegios > 0 Then
                    Call EnviarDatosASlot(LoopC, sndData)
              End If
            End If
        Next LoopC
        Exit Sub

y lo reemplazamos por:

Código:

  Case SendTarget.ToAdmins
        For LoopC = 1 To LastUser
            If UserList(LoopC).ConnID <> -1 Then
                If UserList(LoopC).flags.Privilegios > 0 Then
                    Call EnviarDatosASlot(LoopC, sndData)
              End If
            End If
        Next LoopC
                Call PostMensaje("ADMIN: " & Replace(ReadField(1, Right(sndData, Len(sndData) - 2), Asc("~")), ENDC, ""))
        Exit Sub

Y para terminar buscamos:

Código:

  Case SendTarget.ToAll
        For LoopC = 1 To LastUser
            If UserList(LoopC).ConnID <> -1 Then
                If UserList(LoopC).flags.UserLogged Then 'Esta logeado como usuario?
                    Call EnviarDatosASlot(LoopC, sndData)
                End If
            End If
        Next LoopC
        Exit Sub

Y lo reemplazamos por:

Código:

  Case SendTarget.ToAll
        For LoopC = 1 To LastUser
            If UserList(LoopC).ConnID <> -1 Then
                If UserList(LoopC).flags.UserLogged Then 'Esta logeado como usuario?
                    Call EnviarDatosASlot(LoopC, sndData)
                End If
            End If
        Next LoopC
                Call PostMensaje(Replace(ReadField(1, Right(sndData, Len(sndData) - 2), Asc("~")), ENDC, ""))
        Exit Sub

y Listo ^^, Testeado y funcional

che jugas tp como te llamas en tp voy a probar tu codigo pero es para 11.2 o no?

darkk knight escribió:

che jugas tp como te llamas en tp voy a probar tu codigo pero es para 11.2 o no?

11.2 ya trae esta consola, Este codigo yo lo hice para 11.5

Off: En tpao soy Standelf xD

Buen Aporte Stendelf