Arquivo TRava.exe p/ travar teclado urgente

[Mário Isa]

Mas, depois de dar um Ctrl+Alt+Del, ao acionar o TaskManager, tudo volta ao normal

Obs:- Para efeito da homologação, não é necessário travar o Ctrl+Alt+Del.

Mário

[Maligno]

Tanto melhor. Mas é como eu disse: se acionar Ctrl+Alt+Del, o trabalho de travamento fica totalmente perdido. Será que o povo que faz a checagem pra homologação saberia disso?

[Mário Isa]

O povo que faz a checagem para homologação.
Ah ! povo.

Para exemplo :
Eu havia preparado meu sistema para, se imprimir o cupom fiscal e der falha na hora da impressão do cupom TEF (que vem logo em seguida). ele, (o meu sistema), cancela automaticamente o cupom fiscal, tão logo a ECF se restabeleça.
O pessoal da REDECARD+TECBAN não disse nada, mas o pessoal do VISANET+AMEX disse que estava errado. E olha que isso não estava nos manuais.
Mas qualquer louco sabe que o comerciante não pode ser bi-tributado, pois se o cupom fiscal não for cancelado, na pr´xima tentativa haverá outro cupom fiscal, tributando-o duplamente.
Mas quem pode explicar isso a eles ?
Mário

[Maligno]

Então parece que esse povo tem as qualidades essenciais pra trabalhar pro governo: intransigência, burrice e descaso com aquele que paga a conta.

[alaminojunior]

Se for para homologacao para TEF so a chamada desta funcao nao basta, os caras la testam inclusive o acionamento das teclas de funcoes do windows (a bandeirinha)

Como nós precisamos levar o equipamento, e se eu levar um teclado que tenho aqui, da Itautec, que não tem as teclas do Windows ? Boa pergunta né ?

[Maligno]

Sou capaz de apostar que eles vão te fazer trocar o teclado. ))

[wagner aragao]

Ola alguem ja conseguiu travar tudo no teclado com xHarbour to precisando, nao entendi o codigo postado aqui pois tem umas chamadas no final estranha.

Olha pessoal!
Eu consegui fazer o programinha tá ok ?
Fiz em xHarbour e, caso sua aplicação seja clipper + blinker e vc, como eu, ainda não teve tempo de migrar tudo pode comandar direto de sua aplicação.
Você grava um arquivo TRAVATEC.TXT e ele trava
Depois vc grava um NTRAVATC.TXT e ele destrava.
Grava um FINALIZA.TXT e ele finaliza. (se fecha)
Ele grava, a cada 0.5 segundos um ACTIVA.TXT para mostrar que está ativo. Neste caso, toda vez que você for utilizá-lo, você deleta o ACTIVA.TXT, espera 1 segundos e pergunta se existe o ACTIVA.TXT, se existe é porque ele está ativo. se não existe é porque alguem (os homologadores, provavelmente) pararam o programinha com CTRL+ALT+DEL e neste caso, vc executa novamente a aplicação.
Chama-se TRAVA.EXE.
Se alguem interessar me avise aqui.
Abraços
Mário

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Estou terminando um programa em xHarbour que faz isso.
O problema é que não consigo executá-lo de dentro do meu .EXE.
Ele é uma aplicação 32 bits, mas quando o executo dá comando inválido.
Faço assim:
comanda := "TRAVA.EXE"
run (comanda)

Preciso conseguir executá-lo pois se alguém fechá-lo, meu programa comercial precisa reativá-lo....

Segue aqui o programinha.
Se alguém puder ajudar.

Código: Selecionar todos

************* 
Function Main 
************* 
Para W 

/* 
TravaTec(.t.) 
MHide() 
@ 24,1 say "Travado." 
inkey(20) 
@ 24,1 
TravaTec(.f.) 
MShow() 
@ 24,1 say "destravado." 
inkey() 
quit*/ 


while .t. 

if file("travatec.txt") 
ferase("travatec.txt") 
mHide() 
TravaTec(.t.) 
end 

if file("ntravatc.txt") 
ferase("ntravatc.txt") 
mShow() 
TravaTec(.f.) 
end 

if file("finaliza.txt") 
ferase("finaliza.txt") 
ferase("activa.txt") 
quit 
end 

if !file("activa.txt") 
fll := "1" 
memowrit("activa.txt",fll) 
end 

inkey(0.5) // aguarda meio segundo 
end 

return nil 

#pragma begindump 
#include "windows.h" 
#include "winable.h" 
#include "hbapi.h" 

HB_FUNC( TRAVATEC ) 
{ 
BlockInput( hb_parl(1) ); 
} 
#pragma enddumpMario Isa

[sygecom]

Ola alguem ja conseguiu travar tudo no teclado com xHarbour to precisando, nao entendi o codigo postado aqui pois tem umas chamadas no final estranha.

Olá Wagner,
Acontece que a assinatura do usuario foi junto com o comando, tente usar assim:

Código: Selecionar todos

#pragma begindump 
#include "windows.h" 
#include "winable.h" 
#include "hbapi.h" 

HB_FUNC( TRAVATEC ) 
{ 
BlockInput( hb_parl(1) ); 
} 
#pragma enddump

Obs: Essa função é para compilar usando xHarbour ou Harbour.

[alaminojunior]

Acontece que a assinatura do usuario foi junto com o comando

) ) )
Chic, já pensou se funcionasse....!?

Mas lembrando sempre, que a combinação CTRL+ALT+DEL não é bloqueada.
Se for para homologação de TEF, pode ser usada sem problemas, aliás é a mais indicada. Agora, se for para outra utilização onde precise travar o teclado por completo inclusive suas combinações, não funciona à contento.

[Maurício Elias]

Olá pessoal.
Olha só a resposta do Suporte do TEF:

" Prezado Sr. Mauricio,
O unico comando que deverão NÃO estar travado é ctrl+alt+del, demais opções
deveram estar bloqueados.
Atenciosamente,
Seven-PDV - Suporte Técnico "

Assim, o KbdDisable está fora. Este TREAVA.EXE q vcs estão debatendo, pelo q entendí, é a solução.

_______
Maurício

[Pablo César]

Seja para TEF ou para o que for se destinar o travamento, aqui neste tópico tem algumas opiniões e sugestões:

viewtopic.php?f=1&t=9429&start=0&st=0&sk=t&sd=a

[Maligno]

Estou trancando esse tópico, em virtude dele tratar do mesmo assunto do tópico cujo link aparece na mensagem acima. Se alguém quiser continuar o assunto, deverá tratá-lo naquela outra thread.