Hola :D
En la escuela me estan enseñando VB6.0 y viendo las cosas que me hacen hacer (Una calculadora que solamente sirve para sumar dos numero :O que util) decidi mandarme a hacer algo que si sirva.
Estoy haciendo un programa al estilo del Reg Unloker o del Xtools
(por si no los conoces desactivan las restricciones del sistema que aveces activan algunos virus)
El problema es que tengo el codigo para el administrador de tareas ¬¬EDTIO: Amplie el codigo con un poco de exploracion en el registro de windows
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
' administrador de tareas bloqueado
Private Sub cmdAdmOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub
'BOTON PARA desbloquear Adm de tareas:
Private Sub cmdAdmON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub
'ms config bloqueado
Private Sub cmdmsconfigOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisallowRun", "1"
End Sub
'ms config desbloqueado
Private Sub cmdmsconfigON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisallowRun", "0"
End Sub
'regedit bloqueado
Private Sub cmdRegOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1"
End Sub
'regedit desbloqueado
Private Sub cmdRegON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0"
End Sub
Despues lo voy a refinar con cuadritos de texto y todo el adornito :D
Gracias por toda la ayuda ;D