Underc0de

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.