Teclas CTRL + ESC


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Teclas CTRL + ESC

Bicicchi

SOROCABA
SP - BRASIL

ENUNCIADA !

Postada em 11/09/2004 14:58 hs

Boa tarde pessoal

Já postei essa mensagem várias vezes no fórum, mas não tive nenhuma resposta. Gostaria de saber se alguem conhece uma função para desabilitar as teclas CTRL + ESC impedindo que o usuário abra o menu Iniciar. Se alguem puder me ajudar eu ficaria muito grato. Sergio

Fuintersoft1

SAO PAULO
SP - BRASIL

Postada em 19/12/2004 12:18 hs

veja

http://www.vbweb.com.br/dicas_visual.asp?Codigo=863&Classificacao=

Bicicchi

SOROCABA
SP - BRASIL

Postada em 20/12/2004 20:39 hs

A dica postada acima, não deu certo. O menu iniciar fica desabilitado mesmo, mas se eu pressionar as teclas CTRL+ESC o menu abre mesmo assim, portanto a dica não ajudou em nada. Mas mesmo assim obrigado.

Sergio

Fuintersoft1

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/12/2004 11:13 hs

seja criativo

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2905&Classificacao=

Bicicchi

SOROCABA
SP - BRASIL

Postada em 21/12/2004 12:52 hs

Sou criativo.

O que acontece é que você que ou você não entendeu o que preciso ou não sabe a função, pois essa dica trava totalmente o teclado e o mouse.

E eu só precisava travar as teclas CTRL+ESC, pois o usuário tem que digitar seu código e senha de acesso. Vou te explicar melhor.

Tenho um cyber café e um sistema que controla o tempo que o cliente usa a máquina. Então o cliente tem que digitar seu código e senha de acesso, para que o sistema controle o tempo. Acontece que se o cliente for "sacana" ele pressiona as teclas CTRL+ESC e usa o computador sem precisar digitar o código e a senha. E eu queria impedir que o mesmo abrisse o menu usando essas teclas.

Mesmo assim obrigado pela ajuda...

Fuintersoft1

SAO PAULO
SP - BRASIL

Postada em 28/12/2004 16:55 hs

Cara vc não é criativo

veja isso, pois eu testei e funciona.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const MENU_KEYCODE = 91

'Use estes códigos:

Private Sub Command1_Click()
' Botão iniciar pressionado 'bloquia
keybd_event MENU_KEYCODE, 0, 0, 0
End Sub

Private Sub Command2_Click()
' Solta o botão iniciar 'desbloqueia
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
End Sub

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR