Quem está usando o sistema?

Mensagem por **Itamar M. Lins Jr.** » 29 Mar 2022 19:14

Olá!

LetoDb[f] informa o IP e os DBF's abertos.

Saudações,
Itamar M. Lins Jr.

Mensagem por **alxsts** » 29 Mar 2022 19:19

Olá!

Itamar M. Lins Jr. escreveu:LetoDb[f] informa o IP e os DBF's abertos.

Não entendi o que isto tem a ver com o assunto do tópico...

Mensagem por **Itamar M. Lins Jr.** » 29 Mar 2022 20:24

Olá!

Não entendi o que isto tem a ver com o assunto do tópico...

Pois é né! Ele perguntou,

Quem está usando o sistema?

e disse que usa DBFCDX.

E o letoDB tem os comandos para informar isso. Quem está logado com os DBF's abertos.

Saudações,
Itamar M. Lins Jr.

Mensagem por **Itamar M. Lins Jr.** » 29 Mar 2022 20:28

Olá!

Estou usando RDD DBFCDX, talvez com um SQL ou outro database fosse mais fácil.

Pois então! LetoDB[f] usa DBFCDX e tem isso, informar qual é o IP que abriu tal arquivo .DBF.

Saudações,
Itamar M. Lins Jr.

Mensagem por **alxsts** » 29 Mar 2022 22:50

Olá!

Ah... desculpe. É que o tópico seguiu tratando de evitar o fechamento de janela...

Linguagemclipper · Mensagem por **Linguagemclipper** » 30 Mar 2022 14:41

Paredes01 escreveu:Puedes descargar xharhour [libre]
con el tipo de compilador que utilices

link:
http://whosaway.com/

Saludos!!

Tengo que informar mi email y dirección IP para bajar los archivos?
Ay, no vale, papá! Muy sospechoso pedir el IP!

Linguagemclipper · Mensagem por **Linguagemclipper** » 30 Mar 2022 14:44

Itamar M. Lins Jr. escreveu:Olá!

LetoDb[f] informa o IP e os DBF's abertos.

Saudações,
Itamar M. Lins Jr.

Já estava com esse LetoDBF na mira para colocar os DBFs na nuvem. Então, vou deixar essa rotina quando chegar na hora de migrar.
Onde eu baixo esse bendito LETODBF? Eu uso o xHarbour v1.2.1

Paredes01 · Mensagem por **Paredes01** » 30 Mar 2022 15:22

Bueno, a nadie se le obliga si no quiere hacer las cosas
Te puedo decir que el link es seguro

link:
http://whosaway.com/

En fin, que versión de xharbour utilizas y que compilador

saludos!!

Linguagemclipper · Mensagem por **Linguagemclipper** » 05 Abr 2022 12:09

xHarbour v1.2.1
BCC55

Que sí, que sí! Pero, para que justo el IP por donde vienem los hackers?!... No prodría solo registrarse un usuario y clave? Puedo lograr con VPN?

Paredes01 · Mensagem por **Paredes01** » 05 Abr 2022 17:18

La lib que necesitas es gtwvt.lib

Descarga sin riesgo.

Link descarga xharbour libre:
https://mega.nz/file/o6RwVaCa#ixJo6uukw ... yejl3dhy2o

Link bcc55 para xharbour:
https://mega.nz/file/1yhmRALB#x3Z7R-y63 ... X7BxULtjMg

Saludos!!

dbsh · Mensagem por **dbsh** » 01 Mai 2022 18:51

Se você só que saber quem esta usando, pega na entrada do sistema
salva em banco de dados, terminal, usuario data e hora de entrada

Se for para saber o tempo que usa
faça o procedimento acima e cria uma funcao:

EXIT PROCEDURE Controle_blablabla()
salva em banco de dados, terminal, usuario data e hora de saida

Linguagemclipper · Mensagem por **Linguagemclipper** » 17 Mai 2022 21:53

Paredes01 escreveu:La lib que necesitas es gtwvt.lib

Descarga sin riesgo.

Link descarga xharbour libre:
https://mega.nz/file/o6RwVaCa#ixJo6uukw ... yejl3dhy2o

Link bcc55 para xharbour:
https://mega.nz/file/1yhmRALB#x3Z7R-y63 ... X7BxULtjMg

Saludos!!

Linkei essa gtwvt.lib, mas dá um erro "it´s not a GUI program"

Linguagemclipper · Mensagem por **Linguagemclipper** » 17 Mai 2022 21:54

dbsh escreveu:Se você só que saber quem esta usando, pega na entrada do sistema
salva em banco de dados, terminal, usuario data e hora de entrada

Se for para saber o tempo que usa
faça o procedimento acima e cria uma funcao:

EXIT PROCEDURE Controle_blablabla()
salva em banco de dados, terminal, usuario data e hora de saida

Isso só vai funcionar se eu bloquear sair clicando no X da janela.

Linguagemclipper · Mensagem por **Linguagemclipper** » 17 Mai 2022 21:57

Também tentei:

Código: Selecionar todos

* SET EVENTMASK TO INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT
SET EVENTMASK TO 255 - 1 + 1024
SET KEY 1102 TO FIM()  // IMPEDE FECHAR A JANELA PELO BOTÃO

Onde FIM() tem um QUIT
O QUIT levaria à minha EXIT PROCEDURE, mas não funcionou.
Observei que o xharbour não tem o HB_INKEY_GTEVENT no INKEY.CH, daí peguei seu número no Harbour... mas, não deu. Acho que não funfa no xharbour.

mjuliao · Mensagem por **mjuliao** » 19 Mai 2022 15:52

Vou sugerir o que eu uso a muito tempo e atende perfeitamente se o proposito é saber quem esta usando o sistema.

No inicio da execução do sistema crie um novo arquivo texto em disco com todo conteúdo que quiser que identifique o usuário, por exemplo NetName()

O nome do arquivo deve seguir um padrão sugiro tipo [nome_sistema][999].usr (onde o 999 é um numero randômico)
Abra este arquivo (fOpen) e mantenha-o aberto.

E no final da execução do sistema feche o arquivo (fClose) e apague-o do disco.

Desta forma enquanto o sistema estiver em uso voce terá arquivos com extensão .usr que indica quem o criou.

Nos casos de o sistema não ter sido fechado de forma convencional que impediu o controle do sistema em apaga-lo este arquivo não vai estar aberto pelo sistema e poderá ser apagado, ou seja, se voce apagar todos os arquivos .usr da pasta somente sobrarão os que ainda estão em uso.

Pode-se até implementar uma funcionalidade no sistema que tenta abrir os arquivos .usr existentes no disco no modo exclusivo e os que nao puderem ser abertos é porque são os que estão em uso e então pode-se abrir no modo share e obter o conteúdo para saber quem esta usando e listar na tela.

Espero ter ajudado.