Deshabilitar Administrador de Tareas (Crtl+alt+supr) código fuente en Visual Basic
Muchas veces por seguridad es conveniente evitar que abran el Administrador de Tareas, para hacer esto el usuario utiliza la combinación de teclas Alt+Ctrl+Supr. Para deshabilitar hay que ingresar al registro de Windows:
Haga click en Inicio luego en Ejecutar
Una vez alli escriba Regedit y presione enter
Busque la entrada:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr
Una Vez alli Cambie el valor 1 por 0 esto deshabilitara la apertura del Administrador de Tareas.
Tambien podemos elaborar un programa en Visual Basic 6 que realice esta operación, solo debemos crear un formulario con 2 botones de comando y escribir el siguiente codigo:
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
Fuente http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/20.htm

junio 7th, 2009 at 10:34 AM
junio 7th, 2009 at 10:34 AM
noviembre 20th, 2009 at 12:31 PM
El codigo funciona, solo remplasen la dobletilde por comillas verdaderas.
El codigo esta plagado de doble tilde y no de comillas.
Saludos
noviembre 20th, 2009 at 12:32 PM
Puse remplaSen
sorry “Remplacen”