
Pero si, solo agregas eso:
Código (vb) [Seleccionar]
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\Policies\System\disableregistrytools", "0"
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\Policies\System\disableregistrytools", "0"
'Coloca un CommandButton y Renombralo a: cmdActivar
Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
MsgBox "Administrador de Tareas Activado"
End Sub
Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
Set Fso = CreateObject("wscript.shell")
Fso.RegWrite Folder, Value, "REG_DWORD"
Set Fso = Nothing
Exit Sub
men:
MsgBox Err.Description: Resume Next
End Sub
Cita de: zer0byte en 12 Junio 2009, 16:48 PM
deberias respetar un poco de donde sacas el codigo y no añadirle'##############
'# Programado #
'# por P4|3L0 #
'##############
y dos explicaciones. es poco etico pabloCita de: ssccaann43 en 12 Junio 2009, 16:24 PM
Me huele a LAMMER!
en cuanto a ti, podrias poner comentarios un poco mas productivos, ya que si te has iniciado en la programacion ya sabes como va eso de que necesitas fijarte en otros codes para aprender. Solo es un poco de compresion.
Saludos