'A função abaixo Desliga, Reinicia e efetua logoff no Windows
Public Enum OpcoesBoot
Reiniciar = 1
Desligar = 2
Efetuar_Logoff = 3
End Enum
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Utilize a função abaixo para dar o boot desejado
Public Sub BootComputador(Opcao As OpcoesBoot)
Select Case Opcao
Case 1 'Reiniciar o computador
Call ExitWindowsEx(2, 0)
Case 2 'Desligar o computador
Call ExitWindowsEx(1, 0)
Case 3 'Efetuar logoff
Call ExitWindowsEx(0, 0)
End Select
End Sub
Travar o teclado já é uma coisa mais complicada pois precisaria de um a API para desativar quase que todo o windows.
A proposito, para que travar o teclado se na maioria dos aplicativos se faz necessario o uso dele?
Esse aplicativo que vc está criando é por controle de voz?
desabilitar essa função é o mesmo que ficar com uma máquina inoperante!
O maximo que vc pode fazer é criar uma rotina no seu formulario no evento Keypress para evitar qualquer digitação.
Private sub Form_KeyPress(KeyAscii as Integer)
KeyAscii=0
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode=0
End Sub
Só que isso não vai impedir de se achar uma maneira de fechar o aplicativo.
