Mostrar Temas
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)
EDTIO: Amplie el codigo con un poco de exploracion en el registro de windows
Código:
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
Gracias por toda la ayuda
