Sección de códigos , trucos y ejemplos para visual basic

20 - Desactivar las teclas Ctrl+Alt+Sup en windows Xp y Nt

En Xp por el momento yo no se, y creo que no se puede desactivar esta combinación de teclas ya que el mismo sistema se encarga de capturarlas por una cuestión de seguridad, pero si se puede desactivar mediante una simple modificación de clave en el registro de Windows.

Pero hay que aclarar una cosa importanete, y es que si nuestro programa no puede volver a restablecer la clave modificada , no vamos a poder volver a utilizr el Ctrl+Alt+Supr a no ser que editemos el registro manualmente, por lo tanto habría que asegurarnos que por cualquier falla de nuestro programa, o corte de luz etc..., se pueda volver a restablecer todo como estaba, y esto es una doble tarea extra y no muy recomendable

Nota: También se puede bloquear el Ctrl+alt+supr e impedir que se abra el administrador de tareas, mediante el uso de timers. En el siguiente enlace podés ver un ejemplo

Buscar el administrador de tareas a partir del caption y si se encuentra abierto cerrarlo.

En el siguiente ejemplo, la rama del registro que hay que modificar es la siguiente :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr

El valor 0 desactiva la combinación de teclas, y el valor 1 la habilita o la activa

Al desactivar la combinación de las teclas, y luego presionarlas, se visualizará un MsgBox por parte de windows diciendo que no las mismas han sido desactivadas

vista del ejemplo

Controles para el ejemplo

Colocar 2 controles CommandButton

Nota: para acceder al registro , en este caso se utiliza WSH ( windows Script Host ) con el método RegWrite para grabar los cambios en el reg.

Código fuente en el formulario

Option Explicit ' Rama del registro para deshabilitar y habilitar el TaskManager de XP '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Const RAMA_REGISTRO As String = _ "HKEY_CURRENT_USER\Software\" & _ "Microsoft\Windows\CurrentVer" & _ "sion\Policies\System\DisableTaskmgr" Private Sub Grabar_Registro(Rama As String, Value As Integer) Dim wsh As Object On Error GoTo error_sub 'creamos la variable para usar wsh Set wsh = CreateObject("wscript.shell") 'Grabamos el valor en el registro con el método regWrite _ de windows script host wsh.RegWrite Rama, Value, "REG_DWORD" 'Eliminamos la variable wsh creada Set wsh = Nothing Exit Sub ' Error error_sub: MsgBox Err.Description: Resume Next End Sub 'BOTON PARA Desactivar las teclas '''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Grabar_Registro RAMA_REGISTRO, "1" End Sub 'BOTON PARA Activar Ctrl+Alt+Sup '''''''''''''''''''''''''''''''''''''''''''' Private Sub Command2_Click() Grabar_Registro RAMA_REGISTRO, "0" End Sub Private Sub Form_Load() Command1.Caption = " Desactivar " Command2.Caption = " Activar " End Sub

Recursos visual basic 6.0 - Enlaces Relacionados

Desactivar Ctrl+ALt+Sup y ALt+Tab en Windows 98

Buscar en Recursos vb