Bloquear Comandos de Windows

[JuJoGuAl]

Buenos dias, estoy usando el Visual Basic 2005, y me gustaria saber como hago para cuando corro mi apliccion Bloquear los comandos:

ALT+F4 / Tecla de Windows / ESC / ALT+TAB

Aca en las FAQ's encontre algo pero es para el Visual 6 y cuando trato de llevarlo al 2005 me da error...

Me gustaria que alguien me ayudara con esto... Gracias

[pkj]

Así deberias poder evitar que se cambie de tarea o se cierre el programa si no es cerrando el sistema:

Configura el form de tu programa con borderstyle=fixeddialog y usa estas líneas:

Código vb:

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
 
'Hacemos el form "Siempre visible"
Private Sub Form_Load()
  Const conHwndTopmost = -1
  Const conHwndNoTopmost = -2
  Const conSwpNoSize = &H1
  Const conSwpNoMove = &H2
  Const conSwpNoActivate = &H10
  Const conSwpShowWindow = &H40
  SetWindowPos Me.hWnd, conHwndTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 

Código vb:

'Lo maximizamos
Private Sub Form_Resize()
  Me.WindowState=vbMaximized
End Sub
 

Código vb:

' Evitamos que se pueda cerrar
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode = vbFormControlMenu Then Cancel = 1
End Sub
 

Y despues añades un timer

Código vb:

Private Sub Timer1_Timer()
  ' enfocamos el programa cada x milisegundos
  Me.SetFocus
End Sub
 

Saludos

PD: Ya lo tuve que reescribir porque no era del todo correcto el código que puse antes, y me vuelvo a encontrar igual. El timer con el setfocus puede impedir usar los botones del form, y si lo pongo en el evento LostFocus tampoco parece hacer efecto. Hay que buscar otro modo de recuperar el foco si se pierde, o calcular un interval que permita trabajar con el programa.
De todas formas si pones un interval no muy bajo (>=250) parece que permite trabajar.

[JuJoGuAl]

Probare tu Codigo haber quie tal....