Buena, esta aplicacion lo que hace es eliminarlas entradas maliciosas creadas por los virus que te deshabilitan el registro, o te quitan el boton inicio, etc.
(http://www.image-share.com/upload/289/300.png) (http://www.image-share.com/ipng-289-300.html)
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
Este solo soluciona 12 problemas, pero obviamente se pueden ir agregando mas.
Descarga MediaFire (.Exe) (http://www.mediafire.com/?dk2zjljgjiz)
Saludos.