comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

RegCleaner

  • 0 Respuestas
  • 1409 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Once

  • *
  • Underc0der
  • Mensajes: 385
  • Actividad:
    5%
  • Reputación 0
    • Ver Perfil
    • El blog de Once
  • Twitter: @don_once
« en: Julio 01, 2010, 02:54:27 pm »
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.


You are not allowed to view links. Register or Login


Código: Visual Basic
  1. Option Explicit
  2. Dim Rege As Object
  3.  
  4. Const System  As String = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
  5. Const Explorer As String = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  6.  
  7. Private Sub Form_Load()
  8.    Set Rege = CreateObject("WScript.Shell")
  9. End Sub
  10.  
  11. Private Sub LblAceptar_Click()
  12.   If Me.ChkAdmin.Value = 1 Then TaskMgr
  13.   If Me.ChkApagar.Value = 1 Then Boton
  14.   If Me.ChkBuscar.Value = 1 Then Buscar
  15.   If Me.ChkDesinstalar.Value = 1 Then DesInstalar
  16.   If Me.ChkMenu.Value = 1 Then Menu
  17.   If Me.ChkMsConfig.Value = 1 Then MsConfig
  18.   If Me.ChkOcultos.Value = 1 Then FilesHidden
  19.   If Me.ChkOptFile.Value = 1 Then OptCarpeta
  20.   If Me.ChkPanel.Value = 1 Then Panel
  21.   If Me.ChkPantalla.Value = 1 Then Pantalla
  22.   If Me.ChkReg.Value = 1 Then Registro
  23.   If Me.ChkRun.Value = 1 Then Ejecutar
  24.  
  25.   MsgBox "Listo, para que los cambios hagan efecto, por favor reinicie el PC", vbInformation, "S&S Labs"
  26. End Sub
  27.  
  28. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  29. '1.
  30. Sub Registro()
  31. On Error Resume Next
  32. 'Habilita el registro
  33.   Rege.regdelete System & "DisableRegistryTools"
  34. End Sub
  35.  
  36. '2.
  37. Sub TaskMgr()
  38. On Error Resume Next
  39. 'Habilita el Administrador de tareas
  40.   Rege.regdelete System & "DisableTaskMgr"
  41. End Sub
  42.  
  43. '3.
  44. Sub OptCarpeta()
  45. On Error Resume Next
  46. 'Habilita las opciones de carpeta
  47.   Rege.regdelete Explorer & "NoFolderOptions"
  48. End Sub
  49.  
  50. '4.
  51. Sub Ejecutar()
  52. On Error Resume Next
  53. 'Habilita ejecutar [Win + r]
  54.   Rege.regdelete Explorer & "NoRun"
  55. End Sub
  56.  
  57. '5.
  58. Sub Panel()
  59. On Error Resume Next
  60. 'Habilita panel de control
  61.   Rege.regdelete Explorer & "NoControlPanel"
  62. End Sub
  63.  
  64. '6.
  65. Sub Boton()
  66. On Error Resume Next
  67. 'Muestra el boton apagar
  68.   Rege.regdelete Explorer & "NoClose"
  69. End Sub
  70.  
  71. '7.
  72. Sub DesInstalar()
  73. On Error Resume Next
  74. 'Permite desinstalar programas
  75.   Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall\NoAddRemovePrograms"
  76. End Sub
  77.  
  78. '8.
  79. Sub Menu()
  80. On Error Resume Next
  81. 'Habilita el menu contextual
  82.   Rege.regdelete Explorer & "NoViewContextMenu"
  83. End Sub
  84.  
  85. '9.
  86. Sub Pantalla()
  87. On Error Resume Next
  88. 'Propiedades de pantalla
  89.   Rege.regdelete System & "NoDispCpl"
  90. End Sub
  91.  
  92. '10.
  93. Sub Buscar()
  94. On Error Resume Next
  95. 'Habilita la opcion buscar
  96.   Rege.regdelete Explorer & "NoFind"
  97. End Sub
  98.  
  99. '11.
  100. Sub MsConfig()
  101. On Error Resume Next
  102. 'Habilita el msconfig
  103.   Rege.regdelete System & "DisableMsConfig"
  104. End Sub
  105.  
  106. '12.
  107. Sub FilesHidden()
  108. On Error Resume Next
  109. 'Muestralos archivos ocultos
  110.   Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Advanced\Hidden"
  111. End Sub
  112.  

Este solo soluciona 12 problemas, pero obviamente se pueden ir agregando mas.

You are not allowed to view links. Register or Login

Saludos.
« Última modificación: Julio 01, 2010, 06:23:23 pm por 11Sep »






You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!