[Resolvido]Bloquear teclas e menus do windows.

Amigos.. creio que isso já deva ter sido comentado aqui no fórum... Eu mesmo poderia fazer um exemplo..
Mas estou com problemas de tempo em relação a minha conexão para proceder à pesquisas...

Se alguem tiver dicas ou exemplo eu agradeceria.

Abraços.

Boa noite, amigo Piloto
É isto que procura?
http://maximoaccess.forumeiros.com/t7983-resolvidodesabilitar-teclas-f1f12
http://maximoaccess.forumeiros.com/t1742-habilitar-e-desabilitar-items-do-menu-personalizado-msaccess-2003
Abraço,

Obrigado pela ajuda Grande Alexandre, irei analisar....


Abraços

Não consegui...

Por exemplo...

coloquei no evento ao apertar tecla...porém a tecla do windows... abre primeiro o menu antes de executar o código..

Alguma ideia?


Estou abrindo um form maximizado... o que desejo é bloquear o acesso ao windows...

cumprimentos.

Encontrei este código que é para o Excell... Existe algo semelhante para o Access?

   Function KeyboardOff()
 
      ' Sets CTRL+D to activate KeyboardOn.
      Application.OnKey "^d", "KeyboardOn"
      Application.DataEntryMode = True
 
   End Function
 
   ' Macro to restore keyboard entry.
   Function KeyboardOn()
 
      Application.DataEntryMode = False
 
   End Function

Cumprimentos.

Consegui ja duas opções...

Desabilitar tecla do windows

  If KeyCode = 91 Then
    KeyCode = 0
    SendKeys ""
  End If

Ocultar barra de tarefas

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cY As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOREPOSITION = &H200
Private Const SWP_NOSIZE = &H1

Function EscondeBarratarefas()
   Dim nTaskBarhWnd        As Long
   nTaskBarhWnd = FindWindow("Shell_traywnd", "")
   If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Function


Function MostraBarratarefas()
   Dim nTaskBarhWnd        As Long
   nTaskBarhWnd = FindWindow("Shell_traywnd", "")
   If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Function
'shell "rundll32 keyboard.disable"

No entanto mesmo ocultado a barra de tarefas ainda fica ativo o botão iniciar do Windows.

Como ocultá-lo? e como desabilitar a combinação de teclas Ctrl + Alt + Del?




Cumprimentos.

Bem... como o form abre maximado não é necessário desabilitar o botão do windows, posto que o form fica na frente e a tecla fica inativa...

Agora so desabilitar as combinações.. Ctrl + Alt + Del,  Alt +Tab  etc.


Cumprimentos.

Da net este código que promete desabilitar as combinações de teclas, porém está dando problemas quanto a:
app.hInstance

Como resolver?

Option Compare Database

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_STARTKEY = &H5B
Public Const WH_KEYBOARD_LL = 13
Public Const LLKHF_ALTDOWN = &H20

Public Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type

Public hhkLowLevelKybd
Dim p As KBDLLHOOKSTRUCT

Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean

If (nCode = HC_ACTION) Then
    If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
    CopyMemory p, ByVal lParam, Len(p)
    fEatKeystroke = _
    ((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
    p.vkCode = VK_STARTKEY
    End If
End If
    If fEatKeystroke Then
            LowLevelKeyboardProc = -1
    Else
            LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
    End If
End Function

'VBA tags courtesy of www.thecodenet.com

'To run this function, i add this code below in Form_Load Event:

'VBA:

hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, app.hInstance, 0)

Cumprimentos.

Bem... substituindo o app.instance por 0 obtive resultado... Desabilitar a combinação das teclas Alt + Tab:

Option Compare Database

'------------------------------------------------------------------------------------------------------------------------------------------------'Declarações utilizadas para a desativação da comninação das teclas Ctrl + Alt
'================================================================================================================
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_STARTKEY = &H5B
Public Const WH_KEYBOARD_LL = 13
Public Const LLKHF_ALTDOWN = &H20

Public Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type

Public hhkLowLevelKybd
Dim p As KBDLLHOOKSTRUCT

'----------------------------------------------------------------------------------------------------------------------------------------
'Função a ser chamada no evento ao carregar do formulário desabilitando assim a combinação sas teclas Ctrl + Alt
Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean
If (nCode = HC_ACTION) Then
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
    CopyMemory p, ByVal lParam, Len(p)
    fEatKeystroke = _
    ((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
    p.vkCode = VK_STARTKEY
    End If
End If
    If fEatKeystroke Then
            LowLevelKeyboardProc = -1
    Else
            LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
    End If
End Function

'VBA tags courtesy of www.thecodenet.com
'Correção para funcionamento por: Harysohn Pina (Fórum Máximo Acccess) - PILOTO
'Em 26/06/2013
'Harysohn@hotmail.com
'Para rodar a função no formulário:
'VBA:

'hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, 0, 0)

Ideias agora para a desativação de combinação Ctrl + Alt + Del

Ideias são bem vindas

Cumprimentos.

Bem amigos... o bloqueio da Barra de Tarefas do Windows foi resolvido com perfeição (exemplo no repositório)
A desativação das combinações Alt + Tab e Ctrl + Esc tambem..

Me falta agora apenas da combinação Ctrl + Alt + Del

Cumprimentos.

Tentei adicionando as constantes em hexadecimal para as teclas Del e Alt porém não resultou:

Option Compare Database
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'Declarações utilizadas para a desativação da comninação das teclas Ctrl + Alt
'=================================================================================================================================================================
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_STARTKEY = &H5B
Public Const WH_KEYBOARD_LL = 13
Public Const LLKHF_ALTDOWN = &H20
Public Const VK_DEL = &H2E
Public Const VK_ALT = &H12

Public Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type

Public hhkLowLevelKybd
Dim p As KBDLLHOOKSTRUCT

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'Função a ser chhamada no evento ao carregar do formulário desabilitando assim a combinação sas teclas Ctrl + Alt
Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean
If (nCode = HC_ACTION) Then
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
    CopyMemory p, ByVal lParam, Len(p)
    fEatKeystroke = _
    ((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
    ((p.vkCode = VK_DEL) And (p.vkCode = VK_ALT) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
    p.vkCode = VK_STARTKEY
    End If
End If
   If fEatKeystroke Then
            LowLevelKeyboardProc = -1
    Else
            LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
    End If
End Function

'VBA tags courtesy of www.thecodenet.com
'Correção para funcionamento por: Harysohn Pina (Fórum Máximo Acccess) - PILOTO
'Em 26/06/2013
'Harysohn@hotmail.com
'Para rodar a função no formulário:
'VBA:

'hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, 0, 0)

O que consegui até o momento foi finalizar o proceso do TaskManger no evento timer do form

Intervalo do cronometro = 500

No Evento timer

Private Sub Form_Timer()
shell "cmd /c taskkill -f -im taskmgr.exe", vbHide
End Sub

O ideal seria bloquear as teclas Ctrl + Alt + Del


Cumprimentos.

Boas Amigos... Solução na sala de repositório.

http://maximoaccess.forumeiros.com/t13889-bloqueia-barra-de-tarefas-do-windows-e-combinacoes-de-teclas-alt-tab-e-alt-esc-completamente


Cumprimentos.

Boa noite, Mestre Piloto
Fiquei tão contente por te ver com a solução. Com esforço, estás a passar à frente de todos. Parabéns pelo trabalho, paciência, sapiência e paixão pelo conhecimento.
O mundo precisa de muitos assim.
Dedico-te esta música
Abraço amigo.

Alexandre... Eu realmente me espelhei em vocês no Fórum... E saiba que vossas ajudas foram decisivas na busca pelo conhecimento e sou taxativo em dizer que devo tudo isso ao Fórum e aos Mestres que muito me ajudaram.

Fiquei extremamente honrado com sua lisonja... e saiba que ainda estou sempre na busca diária pelo conhecimento que é infindável...

Vejo que ainda tenho muito que aprender.. principalmente sobre Api's e este tópico ja me ajudou a entender um pouco mais sobre elas e como se manipula as informações constantes em uma dll.

Abraços.

Extraiu-me lágrimas dos olhos... Muito obrigado e que Deus seja sempre contigo

Dar mais
Grupo Das Terças
Se a tua voz trouxer mil vozes para cantar,
Vais descobrir mil harmonias belas
Que ao céu hão-de chegar.
Fica mais rica a alma de quem dá,
Chega mais alto o hino
De quem vive a partilhar.
Refrão :
Tu tens que dar um pouco mais do que tens,
Tens que deixar um pouco mais do que há,
Se vais ficar muito orgulhoso vê bem,
Tens que te lembrar.
És um grãozinho de uma praia maior,
E deves dar tudo o que tens de melhor,
Para avaliar a tua alma há leis,
Tu tens que dar um pouco mais do que tens.
Olhou p'ro céu, sentiu que a sorte estava ali,
E com valor, foi conseguido tornar bom
O que até era mau.
E grão a grão construiu o seu poder,
E pouco a pouco subiu a escadaria do amor.
Refrão
O tempo vai e de um rapaz um homem vêm,
Sem medo vê,
Porque o destino vai em frente p'ra servir o bem,
É tão profunda a mensagem que chegou,
São tão seguras e largas
As pontes que ele deixou.

Sabe Alexandre... Voce e poucos aqui sabe da minha história e porque eu passo e ainda não terminou....
O que você fez hoje... vou te falar... Me serviu para reafirmar quem realmente sou...
Creio que Deus lhe usou hoje... Ele usa os homens de bem para nos passar a mensagem certa no momento que mais precisamos...

E Ele te usou hoje.... não me canso de ler esta letra de música que me enviou... não posso negar que Deus o usou pra isso hoje..

Muito... Muito obrigado mesmo... Eu estava realmente necessitando disso hoje...

Obrigado Homem de Deus.

Piloto,
Obrigado pelas palavras amigas que me dirigiu. Sabe que não sou habitual em comentários, espero que o fórum me desculpe este, mas, por alguns erros que cometamos, não devemos deixar de procurar o caminho certo e ajudar todos a encontrá-lo e a dar-lhes força na caminhada.
Abraço amigo

Obrigado Mestre Alexandre..

Bem quanto ao assunto...Me dou por satisfeito pois resolvi da forma que eu realmente necessitava.

Eis:

http://maximoaccess.forumeiros.com/t13889-bloqueia-barra-de-tarefas-do-windows-e-combinacoes-de-teclas-alt-tab-e-alt-esc-completamente#106733


Abraços

Tudo bem HARYSOHN?

Estou farto de pesquisar e não encontro solução para bloquear somente a combinação destas 3 teclas em conjunto.

Dá para me ajudar?

Obrigado

Bruno Gordino

O creio que vá consegui não é dabilitar e sim alterar o layout do teclado.. como mudando as funções da tecla de lugar..
Dessa maneira consegui restrigir a combinação de algumas teclas..

Veja no exemplo na sala de repositório.

Você criará um script para alterar o layout no reg. do windows.. e outro para retornar as posições originais... Mas a solução só funciona depois de reiniciado o windows.

Cumprimentos.

Viva,

Não querendo ser chato mas estando a ser, em que parte do repositório se encontra o exemplo?

Obrigado

Bruno Gordino

http://maximoaccess.forumeiros.com/t13889-bloqueia-barra-de-tarefas-do-windows-e-combinacoes-de-teclas-alt-tab-e-alt-esc-completamente#106733

Cumprimentos.

Viva mais uma vez.

Valeu!

Muito Obrigado e Bom Fim de Semana.

Bruno Gordino

O Fórum agradece o Retorno

Já viste aqui?

http://maximoaccess.forumeiros.com/t237-como-bloquear-teclas-ctrlc-altprtsc-shift-etc

Bem, o problema do SendKeys.. é dependendo do evento.. o apertar da tecla ocorre antes de correr o código...
Principalmente em combinações do tipo Ctrl +ALt + Del

Boa a dica do Prtscr

Cumprimentos.