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 Print Screen

    Compartilhe
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    [Resolvido]Bloquear Print Screen

    Mensagem  Waltair M Souza em Sab 20 Set 2014, 20:51

    Olá amigos do forum

    Tentei utilizar a dica do amigo J Paulo

    Sobre não permitir o uso do atalho print screen

    Bela ajuda Ricardo, parabens.

    Só um pitaco;

    Para bloquear a tecla Print Screen, terá de ser diferente, você tem de chamar a api do windows.

    Num módulo novo, cole esta linha de código e salve:

    Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long


    Por exemplo num botão:

    Private Sub SeuBotão_Click()
    Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
    End Sub

    Desta forma o Print Screen foi-se...


    Acho que fiz algo errado pois não consegui fazer funcionar.

    A questão do atalho ctrl + P blz

    Falta somente  o lance do print screen

    Aguardo um socorro, desde já muito obrigado

    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Bloquear Print Screen

    Mensagem  toyebom em Sab 20 Set 2014, 21:09

    tenta no relatório

    Com a tecla em baixo

    Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
    Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
    End Sub

    [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
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Dom 21 Set 2014, 14:23

    Olá Toyebom, obrigado por retornar.

    No meu caso o que deu errado é o bloqueio de ctrl + Print Screen

    O que faço é chamar um arquivo.doc na janela de um formulário, o usuário está usando o atalho do print screen e me roubando os dados do doc,
    daí ele redigita o texto e tem um doc igual ao meu, o que não quero

    Minha ideia seria bloquear as opções de impressão o que consegui seguindo as dicas aqui do forum.
    Agora esbarrei na questão do print screen (captura de tela) Só com as dicas que segui até agora não deu certo, sei que estou fazendo algo errado
    mas ainda não saquei o que é.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Bloquear Print Screen

    Mensagem  toyebom em Seg 22 Set 2014, 00:05

    Ve o link que te mandei posse que ajude, no meu caso resultou.

    Posta a bd pode ser que possa ajudar de outra forma.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Seg 22 Set 2014, 16:54

    Bom dia a todos do forum

    Caro colega Toyebom, examinei todos os links possíveis falando a respeito de bloqueio de teclas, mas o único que realmente esta direcionado para print screen é este do J Paulo:

     Bela ajuda Ricardo, parabens.

    Só um pitaco;

    Para bloquear a tecla Print Screen, terá de ser diferente, você tem de chamar a api do windows.

    Num módulo novo, cole esta linha de código e salve:

    Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long


    Por exemplo num botão:

    Private Sub SeuBotão_Click()
    Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
    End Sub

    Desta forma o Print Screen foi-se...


    Mas to falhando em algum lugar e não saquei onde ainda, to estudando o código para entender melhor.

    Segue a questão.

    Grato.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Bloquear Print Screen

    Mensagem  toyebom em Seg 22 Set 2014, 17:52

    Não sei se pode ajudar mas:

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

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

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

    tenta adaptar se der.

    Outra forma, é como diz a mensagem10
    Another, probably worse, alternative would be to make the PrintScreen key a hotkey, so when pressed it would tell your app about it instead of capturing the screen.

    De qualquer forma, caso consigas diz como fizeste e se possivel coloca o bd para vermos.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Seg 22 Set 2014, 18:45

    Olá,

    Consegui rodar o código em meu form para bloquear a tecla print screen, porem quando clico CTRL + PrintScreen ainda cópia

    To tentando agora bloquear a combinação com CTRL ALT e SHIFT pois cópia em todas.

    Por enquanto to na captura da solução

    T+
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Ter 23 Set 2014, 01:48

    Boa noite amigos do forum

    Pepino resolvido!!!!!

    O que eu queria fazer:

    Liberar um programa que exibe a letra de uma canção na tela dando ao artista... conjunto... vocalista ou seja lá quem for ler a letra e seguir suas cifras.
    Porem o dito-cujo não poderia imprimir esta letra utilizando o atalho CTRL+P ou copia-la dando o tal PrintScreen; É claro que sabemos de outras  maneiras de capturar a imagem da tela do pc
    porem nem todo artista ou musico independente passa a noite inteira mexendo em linhas de códigos e softwares como nós.


    A solução:

    01 - Construi um Relatório com o nome "Rel_Msg_Invasão" Escrevi nele em letras bem grandes uma mensagem para o usuário.


    02 - Criei um modulo novo seguindo a dica do J Paulo com o seguinte código:

    Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long


    03 - Usando as informações do forum e dicas do mestre J PAulo vastamente publicadas aqui,
          No formulário que chamo a letra da canção fiz o seguinte:

    Private Sub form_Load()

       Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
       
       Dim intCtrlApertada As Integer
       Dim intShiftApertada As Integer
       Dim intAltApertada As Integer

       'Utiliza máscaras de bits para determinar qual tecla foi pressionada.
           
          intShiftApertada = (Shift And acShiftMask) > 0
           intAltApertada = (Shift And acAltMask) > 0
           intCtrlApertada = (Shift And acCtrlMask) > 0
       
       'O código abaixo abre um relatório já preparado com a mensagem de alerta caso CTRL, ALT ou SHIFT seje premida
       
       If intCtrlApertada Then
       Dim stDocName As String
           stDocName = "Rel_Msg_Invasão"
           DoCmd.OpenReport stDocName, acPreview
           KeyCode = 0
       End If
       
       If intShiftApertada Then
           stDocName = "Rel_Msg_Invasão"
           DoCmd.OpenReport stDocName, acPreview
           KeyCode = 0
       End If
       
       If intAltApertada Then
           stDocName = "Rel_Msg_Invasão"
           DoCmd.OpenReport stDocName, acPreview
           KeyCode = 0
       End If

    End Sub



    ... e o restante do código é relacionado ao meu trabalho dai não copiei

    Como funciona:

    Quando o formulário com a letra esta aberto e uma das teclas em questão é premida
    o relatório é chamado e a mensagem é exibida cobrindo a tela...
    Como o PrintScreen foi inibido pelo novo modulo bastou interferir na ação das teclas SHIFT CTRL e ALT
    Enfim ficou joia.

    Só não postei porque o aplicativo é um pouco grande.
    Vou dar uma enxugada nele e posto em outra oportunidade.
    Valeu galera do forum
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Ter 23 Set 2014, 19:17

    Opps Me esqueci de informar resolvido!


    Grato!

    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/10/2012

    Bloquear Print Screen

    Mensagem  Waltair M Souza em Ter 23 Set 2014, 19:18

    Opps Me esqueci de informar resolvido!


    Grato!
    Anexos
    Bloqueia Print Scren.zip
    Eis ai o bd com bloqueio da print screen ctrl+p
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 7 vez(es)


    Última edição por Waltair M Souza em Qua 24 Set 2014, 01:28, editado 1 vez(es)
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Bloquear Print Screen

    Mensagem  toyebom em Ter 23 Set 2014, 19:23

    Se puderes não te esqueças de anexar um exemplo em access para vermos.


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

      Data/hora atual: Seg 25 Set 2017, 17:56