Clipper On Line • Ver Tópico - Quem está usando o sistema?

Quem está usando o sistema?

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Quem está usando o sistema?

Mensagempor 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6950
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Quem está usando o sistema?

Mensagempor 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...
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2945
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Quem está usando o sistema?

Mensagempor 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6950
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Quem está usando o sistema?

Mensagempor 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6950
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Quem está usando o sistema?

Mensagempor alxsts » 29 Mar 2022 22:50

Olá!

Ah... desculpe. É que o tópico seguiu tratando de evitar o fechamento de janela...
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2945
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Quem está usando o sistema?

Mensagempor 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!
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor 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
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor 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!!
Paredes01
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 20 Mai 2012 11:22
Cidade/Estado: Mérida, Yucatán, México
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Quem está usando o sistema?

Mensagempor 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?
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor 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!!
Paredes01
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 20 Mai 2012 11:22
Cidade/Estado: Mérida, Yucatán, México
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Quem está usando o sistema?

Mensagempor 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
010011110010000001110011011101010110001101100101011100110111001101101111001000001110100100100000011000110110111101101110011100110111010001110010011101011110110101100100011011110010000001100001001000000110111001101111011010010111010001100101
01001101011000010111001001100011011011110111001100100000010000010110111001110100011011110110111001101001011011110010000001000100011001010010000001000010011011110110111001101001
0101010001100101011011000011101000100000001010000011001000110111001010010011100100101101001110010011100000110100001100110010110100110101001100100011100100110000
Avatar de usuário

dbsh
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jul 2004 14:19
Cidade/Estado: ES
Curtiu: 2 vezes
Mens.Curtidas: 15 vezes

Quem está usando o sistema?

Mensagempor 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"
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor 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.
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor Linguagemclipper » 17 Mai 2022 21:57

Também tentei:
* 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.
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Avatar de usuário

Linguagemclipper
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 214
Data de registro: 16 Abr 2016 17:33
Cidade/Estado: Maceió/AL
Curtiu: 38 vezes
Mens.Curtidas: 12 vezes

Quem está usando o sistema?

Mensagempor 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.
mjuliao
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 9
Data de registro: 15 Abr 2013 15:53
Cidade/Estado: São Paulo / SP
Curtiu: 1 vez
Mens.Curtidas: 1 vez

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Bing [Bot] e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro