MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Bloquear teclas e menus do windows.

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sab 22 Jun 2013, 03:24

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 05/11/2009

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  Alexandre Neves em Sab 22 Jun 2013, 21:05

    Boa noite, amigo Piloto
    É isto que procura?
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço,


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sab 22 Jun 2013, 22:58

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


    Abraços


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Seg 24 Jun 2013, 23:37

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Ter 25 Jun 2013, 15:32

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Ter 25 Jun 2013, 23:24

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Ter 25 Jun 2013, 23:35

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qua 26 Jun 2013, 16:26

    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 [Você precisa estar registrado e conectado para ver este link.]

    '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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qua 26 Jun 2013, 17:36

    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 [Você precisa estar registrado e conectado para ver este link.]
    '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)



    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qua 26 Jun 2013, 17:47

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

    Ideias são bem vindas

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 03:35

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 07:12

    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 [Você precisa estar registrado e conectado para ver este link.]
    '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)



    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 07:13

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 18:58

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

    [Você precisa estar registrado e conectado para ver este link.]


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 05/11/2009

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  Alexandre Neves em Qui 27 Jun 2013, 21:44

    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 [Você precisa estar registrado e conectado para ver este link.] música
    Abraço amigo.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 23:12

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Qui 27 Jun 2013, 23:20

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

    Dar mais
    [Você precisa estar registrado e conectado para ver este link.]
    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sex 28 Jun 2013, 00:25

    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
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 05/11/2009

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  Alexandre Neves em Sex 28 Jun 2013, 18:41

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sex 28 Jun 2013, 22:13

    Obrigado Mestre Alexandre..

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

    Eis:

    [Você precisa estar registrado e conectado para ver este link.]


    Abraços


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 24/02/2013

    Bloquear a combinação (CTRL ALT PrintScren)

    Mensagem  brunogor em Sex 02 Maio 2014, 11:56

    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sab 03 Maio 2014, 00:25

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 24/02/2013

    Bloquear combinação de 3 teclas: CTRL Alt PRTSC

    Mensagem  brunogor em Sab 03 Maio 2014, 12:11

    Viva,

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

    Obrigado

    Bruno Gordino
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sab 03 Maio 2014, 14:02

    [Você precisa estar registrado e conectado para ver este link.]

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 24/02/2013

    Bloquear combinação de 3 teclas: CTRL Alt PRTSC

    Mensagem  brunogor em Sab 03 Maio 2014, 17:26

    Viva mais uma vez.

    Valeu!

    Muito Obrigado e Bom Fim de Semana.

    Bruno Gordino
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Sab 03 Maio 2014, 22:34

    O Fórum agradece o Retorno


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 879
    Registrado : 18/07/2012

    [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  toyebom em Dom 04 Maio 2014, 04:12

    Já viste aqui?

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    Registrado : 01/03/2011

    Re: [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em Dom 04 Maio 2014, 04:24

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 18 Dez 2017, 01:03