RegCleaner [S&S Lab]

[@Sthéfano]

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.

Descarga MediaFire

Código (vb) [Seleccionar] Expandir


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