USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Bloquear teclado e mouse
machine
SÃO PAULO
SP - BRASIL
Postada em 26/02/2005 17:40 hs         
olá,
 
Preciso de uma ajudinha...
estou fazendo um projeto de automação em que eu tenho q travar o teclado e mouse, e deixar somente uma tecla disponível (pode ser esc, mas de preferência uma sequência escolhida por mim)
 
Utilizei uma API que trava toda ação do teclado e mouse....
Se existir uma função que destrave somente uma tecla, gostaria de saber...
 
ou então se tem outra solução.
 
P.S.: Não pode ser comando do vb.. tem q ser somente por API...
 
[]s
     
Fuintersoft1
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/02/2005 08:41 hs            
A uma solução pelo vb --> usando  a propriedade keypreese e para o mouse - sceen.mousepointer = vbhourglass = para travar
sceen.mousepointer = vbdefault  = para abilitar
   
Snake
Pontos: 2843
ITAJUBÁ
MG - BRASIL
Postada em 28/02/2005 09:27 hs         
Cara ...tem esse cod que peguei na net...nunca testei a fundo espero que te ajude !!!

Na sessão General de seu form:
=================================================
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Esse codigo coloque em um botão ...ou como vc quiser implementar
===========================================================
    DoEvents
    BlockInput True
    Sleep 10000
    BlockInput False    

sem mais,
     
machine
não registrado
Postada em 28/02/2005 09:56 hs   
FuinterSoft1,
Eu vou usar um programa quem tem uma estrutura de linguagem parecida com o VB, mas não contem todas essas funcionalidades... precisaria do código somente por API.
 
Snake,
 
Realmente essa Função funciona, mas ela bloqueia todas as teclas.. preciso que libere uma tecla para eu fazer determinada ação..
 
[]´s
     
Fuintersoft1
SAO PAULO
SP - BRASIL
Postada em 01/03/2005 10:51 hs            
Machine,
  Espero que isso lhe ajude. Ve se me fala o resultado. blz ?
Título da Dica:  Teclado sensível ao contexto  
 
Postada em 19/9/2000 por Darlan Oliveira             
--------------------------------------------------------------
Coloque no módulo .BAS
--------------------------------------------------------------
Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
______________________________________________________________
coloque no activate do form
--------------------------------------------------------------
Do While True
   DoEvents
   
   If GetAsyncKeyState(vbKeyEscape) < 0 Then 'faça algo
   If GetAsyncKeyState(vbKeyF2) < 0 Then 'faça algo
   If GetAsyncKeyState(vbKeyF8) < 0 Then 'faça algo
Loop
 
---------------
---------------
Título da Dica:  Desabilitando e Habilitando o Teclado  
 
Postada em 21/2/2003 por Fábio/SP         
---------------------------------------------------------
Shell "Rundll32.exe keyboard,disable", vbNormalFocus
Para Habilitar:
Shell "Rundll.exe keyboard,enable", vbNormalFocus
----------------
----------------
Título da Dica:  SendKeys para nao travar o teclado no Win 2000  
 
Postada em 7/7/2003 por Everest               
--------------------------------------------------------------------------------
O Sendkeys quando usado no Windows 2000 pode causar o travamento do teclado. Não trava o sistema, somente o teclado. Para evitar esse problema, pode-se utilizar o seguinte código para simular o tab ao pressionar Enter:
'Em um modulo:
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd as long, byval wMsg as Long, byval wParam as Long, Iparam as Any) as Long

Public Const WM_KEYDOWN = &H100
Public Const VK_TAB=&h9
'E nos eventos de tratamento de tecla :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim RetVal
If KeyAscii = 13 Then
RetVal = PostMessage(Me.hwnd, WM_KEYDOWN, VK_TAB, 0)
KeyAscii = 0
End If
End Sub
 
 
     
Leite
não registrado
Postada em 23/07/2019 11:36 hs   
Quero faze isoo ai mai num da fui tenpta agr meu tecrado ta bugado : ( fio duma cagada
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página