Título: Con deshabilitar ctrl+alt+suipr
Publicado por: shadow.darknesses en 27 Enero 2007, 01:16 am
miren 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
Título: Re: Con deshabilitar ctrl+alt+suipr
Publicado por: satan69 en 27 Enero 2007, 19:43 pm
mira aqui http://www.elguille.info/vb/API/deshabilitarAltTab.asp
Título: Re: Con deshabilitar ctrl+alt+suipr
Publicado por: ~~ en 28 Enero 2007, 18:30 pm
'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
Título: Re: Con deshabilitar ctrl+alt+suipr
Publicado por: shadow.darknesses en 20 Febrero 2007, 23:08 pm
perfecto gracias pero lo unico que no entendi fue esto \"REG_DWORD\"
Título: Re: Con deshabilitar ctrl+alt+suipr
Publicado por: pibe8614 en 6 Marzo 2007, 23:42 pm
ese codigo sirve para vb .net?
Título: Re: Con deshabilitar ctrl+alt+suipr
Publicado por: ~~ en 7 Marzo 2007, 16:56 pm
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 ;)
|