Desabilitando CTRL+ALT+DEL e CTRL+ESC

As vezes pode ser útil desabilitar a sequência CTRL+ALT+DEL e CTRL+ESC . Para fazer isto

  1. Inicie um novo projeto no VB
  2. Inclua um módulo no seu projeto e copie o seguinte código para seção Declarations do módulo:
Public Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long , ByVal uParam As Long, ByVal lpvParam ASAny, ByVal fuWinIni As Long) As Long

Agora crie um procedure com o seguinte código:

Sub DisabelCtrlAltDel(bdisabled As Boolean)
  Dim X as Long
  X = SystemParametersInfo( 97, bDisabled, Cstr(1), 0 )
End Sub

Para chamar a procedure e ativá-la desabilitando CTRL+ALT+DEL e CTRL+ESC , faça:

Call DisabelCtrlAltDel(True)

Para voltar ao normal faça:

Call DisabelCtrlAltDel(False)

Como exemplo de um projeto usando essas funções podemos ter um formulário com dois botões de comando , onde um irá desabilitar e outro habilitar CTRL+ALT+DEL. Veja o formulário abaixo:

O código usado no formulário é o seguinte:

Sub DisabelCtrlAltDel(bdisabled As Boolean)
  Dim X As Long
  X = SystemParametersInfo(97, bdisabled, CStr(1), 0)
End Sub

------------------------------------------------------------
Private Sub Command1_Click()
 Call DisabelCtrlAltDel(True)
 Command2.Enabled = True
 Command1.Enabled = False
End Sub
------------------------------------------------------------
Private Sub Command2_Click()
  Call DisabelCtrlAltDel(False)
  Command2.Enabled = False
  Command1.Enabled = True
End Sub

Gostou??? Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti