send
Grupo de Telegram
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
  • 1386 Vistas

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

Desconectado Once

  • *
  • Underc0der
  • Mensajes: 383
  • Actividad:
    0%
  • 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. You are not allowed to view links. Register or Login or 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. You are not allowed to view links. Register or Login or 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. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!