Aqui les dejo esta aplicacion, creada por 11Sep y yo. Lo que hace es restaurar entradas que podrian haber sido modificadas para evitar alguna de las acciones mostradas en la imagen. Esta es la primer version, para la proxima agregaremos mas entradas y quizas cambiemos la interfaz.
Código
Option Explicit Dim Rege As Object Const System As String = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\" Const Explorer As String = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\" Private Sub Form_Load() Set Rege = CreateObject("WScript.Shell") End Sub Private Sub LblAceptar_Click() If Me.ChkAdmin.Value = 1 Then TaskMgr If Me.ChkApagar.Value = 1 Then Boton If Me.ChkBuscar.Value = 1 Then Buscar If Me.ChkDesinstalar.Value = 1 Then DesInstalar If Me.ChkMenu.Value = 1 Then Menu If Me.ChkMsConfig.Value = 1 Then MsConfig If Me.ChkOcultos.Value = 1 Then FilesHidden If Me.ChkOptFile.Value = 1 Then OptCarpeta If Me.ChkPanel.Value = 1 Then Panel If Me.ChkPantalla.Value = 1 Then Pantalla If Me.ChkReg.Value = 1 Then Registro If Me.ChkRun.Value = 1 Then Ejecutar MsgBox "Listo, para que los cambios hagan efecto, por favor reinicie el PC", vbInformation, "S&S Labs" End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '1. Sub Registro() On Error Resume Next 'Habilita el registro Rege.regdelete System & "DisableRegistryTools" End Sub '2. Sub TaskMgr() On Error Resume Next 'Habilita el Administrador de tareas Rege.regdelete System & "DisableTaskMgr" End Sub '3. Sub OptCarpeta() On Error Resume Next 'Habilita las opciones de carpeta Rege.regdelete Explorer & "NoFolderOptions" End Sub '4. Sub Ejecutar() On Error Resume Next 'Habilita ejecutar [Win + r] Rege.regdelete Explorer & "NoRun" End Sub '5. Sub Panel() On Error Resume Next 'Habilita panel de control Rege.regdelete Explorer & "NoControlPanel" End Sub '6. Sub Boton() On Error Resume Next 'Muestra el boton apagar Rege.regdelete Explorer & "NoClose" End Sub '7. Sub DesInstalar() On Error Resume Next 'Permite desinstalar programas Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall\NoAddRemovePrograms" End Sub '8. Sub Menu() On Error Resume Next 'Habilita el menu contextual Rege.regdelete Explorer & "NoViewContextMenu" End Sub '9. Sub Pantalla() On Error Resume Next 'Propiedades de pantalla Rege.regdelete System & "NoDispCpl" End Sub '10. Sub Buscar() On Error Resume Next 'Habilita la opcion buscar Rege.regdelete Explorer & "NoFind" End Sub '11. Sub MsConfig() On Error Resume Next 'Habilita el msconfig Rege.regdelete System & "DisableMsConfig" End Sub '12. Sub FilesHidden() On Error Resume Next 'Muestralos archivos ocultos Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Advanced\Hidden" End Sub
Saludos
S&S Labs