Cita:
Iniciado por aldo1982 tema solucionado
para los mamochjos como yo ejejej
'poner dos botones (uno pa blokear y otro pa desblokear)
'aca se blockea al dar click
Private Sub Command1_Click()
Set Regedit = CreateObject("WScript.Shell")
Regedit.regWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
Set Regedit = Nothing
End Sub
'aca se desblokea al dar click
Private Sub Command2_Click()
Set Regedit = CreateObject("WScript.Shell")
Regedit.regWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
Set Regedit = Nothing
End Sub
'================
salu2 y gracias
De nada.... nos vemos....