elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [SRC] Deshabilitar Regedit *NUEVO METODO*
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [SRC] Deshabilitar Regedit *NUEVO METODO*  (Leído 2,571 veces)
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
[SRC] Deshabilitar Regedit *NUEVO METODO*
« en: 7 Septiembre 2009, 17:48 pm »

Metodo similar a este:
Código:
http://foro.elhacker.net/programacion_vb/src_deshabilitar_taskmgr_nuevo_metodo-t266708.0.html
Código
  1. Option Explicit
  2. '---------------------------------------------------------------------------------------
  3. ' Module    : mKillRegedit
  4. ' Author    : Karcrack
  5. ' Now$      : 07/09/09 17:25
  6. ' Used for? : Disable Regedit
  7. ' TestedOn  : Windows XP SP3
  8. '---------------------------------------------------------------------------------------
  9.  
  10. 'USER32
  11. Private Declare Function CreateWindowEx Lib "USER32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
  12. Private Declare Function RegisterClass Lib "USER32" Alias "RegisterClassA" (ByRef Class As WNDCLASS) As Long
  13. Private Declare Function DefWindowProc Lib "USER32" Alias "DefWindowProcA" (ByVal Hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  14.  
  15. Private Type WNDCLASS
  16.    style           As Long
  17.    lpfnwndproc     As Long
  18.    cbClsextra      As Long
  19.    cbWndExtra2     As Long
  20.    hInstance       As Long
  21.    hIcon           As Long
  22.    hCursor         As Long
  23.    hbrBackground   As Long
  24.    lpszMenuName    As String
  25.    lpszClassName   As String
  26. End Type
  27.  
  28. Public Sub DisableRegedit()
  29.    Dim tWC     As WNDCLASS
  30.  
  31.    With tWC
  32.        .style = &H6008
  33.        .hInstance = App.hInstance
  34.        .lpfnwndproc = GetPtr(AddressOf WndProc)
  35.        .lpszMenuName = "#103"
  36.        .lpszClassName = "RegEdit_RegEdit"
  37.    End With
  38.  
  39.    If RegisterClass(tWC) Then
  40.        Call CreateWindowEx(&H40000, "RegEdit_RegEdit", vbNullString, ByVal 0&, 0, 0, 0, 0, 0, 0, App.hInstance, ByVal 0&)
  41.    End If
  42. End Sub
  43.  
  44. Private Function WndProc(ByVal Hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  45.    WndProc = DefWindowProc(Hwnd, uMsg, wParam, lParam)
  46. End Function
  47.  
  48. Private Function GetPtr(ByVal lPtr As Long) As Long
  49.    GetPtr = lPtr
  50. End Function

Saludos ;)


MOD: Se me olvidaba! Para ejecutar multiples instancias del Regedit pueden hacer esto:
Código:
regedit -m
Con lo que se saltarian esta 'deshabilitacion' :xD


« Última modificación: 7 Septiembre 2009, 17:54 pm por Karcrack » En línea

ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: [SRC] Deshabilitar Regedit *NUEVO METODO*
« Respuesta #1 en: 7 Septiembre 2009, 20:59 pm »

Karcrack, excelente codigo... Igual al otro...!


En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Nuevo método detecta los fotomontajes a través del ruido
Noticias
wolfbcn 0 1,307 Último mensaje 4 Julio 2012, 17:35 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines