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.

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas e menus do windows. Empty Bloquear teclas e menus do windows.

    Mensagem  HARYSOHN em 22/6/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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em 22/6/2013, 21:05



    .................................................................................
    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 22/6/2013, 22:58

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


    Abraços
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 24/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 25/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 25/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 25/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 26/6/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 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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 26/6/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 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)

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 26/6/2013, 17:47

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

    Ideias são bem vindas

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/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 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)

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/2013, 18:58

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em 27/6/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 esta 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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 27/6/2013, 23:20

    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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 28/6/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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em 28/6/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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 28/6/2013, 22:13

    Obrigado Mestre Alexandre..

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

    Eis:

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


    Abraços
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas e menus do windows. Empty Bloquear a combinação (CTRL ALT PrintScren)

    Mensagem  brunogor em 2/5/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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 3/5/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.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas e menus do windows. Empty Bloquear combinação de 3 teclas: CTRL Alt PRTSC

    Mensagem  brunogor em 3/5/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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 3/5/2014, 14:02

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas e menus do windows. Empty Bloquear combinação de 3 teclas: CTRL Alt PRTSC

    Mensagem  brunogor em 3/5/2014, 17:26

    Viva mais uma vez.

    Valeu!

    Muito Obrigado e Bom Fim de Semana.

    Bruno Gordino
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 3/5/2014, 22:34

    O Fórum agradece o Retorno
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas e menus do windows. Empty [Resolvido]Bloquear teclas e menus do windows.

    Mensagem  toyebom em 4/5/2014, 04:12



    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 4/5/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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2019, 00:50