Bueno, el cliente de fenixao ya trae un panel GM, pero no está implementado.
Lo que vamos a haces es agregarlo a nuestro cliente.
Si vemos en el código del server, nos encontramos con este comando:
If UCase$(rdata) = "/PANELGM" Then
Call SendData(ToIndex, UserIndex, 0, "PGM" & UserList(UserIndex).flags.Privilegios)
Exit Sub
End If
En el cliente vamos a agregar un formulario
existente, buscamos
frmPanelGM y le damos abrir. El cliente ya está agregado, ahora buscamos:
Case "ATR"y arriva agregamos:
Case "PGM"
Rdata = Right$(Rdata, Len(Rdata) - 3)
VarPrivilegios = Val(Rdata)
frmPanelGm.Show , frmMain
Exit Sub
De este modo ya tendríamos habilitado el panel para GMs listo para usar
