30/08/2005, 13:33
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 20 años, 5 meses Puntos: 6 | |
| 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
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |