(Ayuda)bloquear Ctrl+Alt+Supr

[aldo1982]

bueno en las FAQs encontre ke se hace asi:

CTRL+ALT+SUP (TaskManager)

Se debe ingresar la instrucción "DisableTaskMgr" directamente en el regedit con el valor "1" en la carpeta abajo indicada, esto es fácil hacerlo desde VB.

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

Value Name: DisableTaskMgr

Data Type: REG_DWORD (DWORD Value)

Value Data: (0 = default, 1 = bloquea Task Manager)

======================================
alguien me podria decir me diante código VB como hacer ?? ya ke no se como se hace en codigo VB.

salu2 y gracias

[David]

Iniciado por aldo1982

bueno en las FAQs encontre ke se hace asi:

CTRL+ALT+SUP (TaskManager)

Se debe ingresar la instrucción "DisableTaskMgr" directamente en el regedit con el valor "1" en la carpeta abajo indicada, esto es fácil hacerlo desde VB.

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System]

Value Name: DisableTaskMgr

Data Type: REG_DWORD (DWORD Value)

Value Data: (0 = default, 1 = bloquea Task Manager)

======================================
alguien me podria decir me diante código VB como hacer ?? ya ke no se como se hace en codigo VB.

salu2 y gracias

Ya que este truco solo funciona a en Windows XP te cuento como hacerlo en XP:

Código:

 Set Regedit = CreateObject("WScript.Shell") 
Regedit.regWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
Set Regedit = Nothing

[aldo1982]

ok, gracias david el super grande ejejeje (tengo XP por eso me sirve este truco) pero unacosita, si kiero k al hacer click en una casilla de verificación se active el blokeo y se desactive, tendria ke poner ese codigo en la casilla mas o kmenos de la sig forma ?? :


if chek.value = true then
'aca pongo el codifo kelo bllokea ( = 1 creo ke era)
end if

if chek.value = false then
'codigo ke lo desblokeea ( = 0 )
end if

bue eso es lo ke necesito, un saludazoo

[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

[David]

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....