Con deshabilitar ctrl+alt+suipr

[shadow.darknesses]

miren

Código [Seleccionar] Expandir

Case "Desactivar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
Case "Activar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
ya le di desactivar y luego no cambia a activar xq es?, esta todo bien escrito

[satan69]

mira aqui http://www.elguille.info/vb/API/deshabilitarAltTab.asp

[~~]

Código [Seleccionar] Expandir

'BOTON PARA DESACTIVAR Ctrl+Alt+Sup:

Private Sub cmdDesactiva_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

'BOTON PARA Activar Ctrl+Alt+Sup:

Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

[shadow.darknesses]

perfecto gracias pero lo unico que no entendi fue esto
\"REG_DWORD\"

[pibe8614]

ese codigo sirve para vb .net?

[~~]

Pues prueva a ver xDD Si no te funciona lo unico q tienes q hacer es modificar las llaves del reg q puse y ya esta