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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [BROMA] AutoDestruccion
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [BROMA] AutoDestruccion  (Leído 5,685 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
[BROMA] AutoDestruccion
« en: 10 Febrero 2011, 12:55 pm »

HOLA!!!

Bueno, esta es una borma que arme hace un tiempo, es de esas que no podes clickear el boton (igual aunque lo clickees no hace nada XD) y cuando el contador llega a 0 te reinicia el equipo.



(para cerrarlo ctrl + alt + supr y poner finalizar tarea muchas veces hasta que aparezca que no responde y ponen finalizar ahora)

Descargar URL:
http://www.mediafire.com/?tove2cf972o37vt


GRACIAS POR LEER!!!


En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [BROMA] AutoDestruccion
« Respuesta #1 en: 10 Febrero 2011, 13:38 pm »

Yo lo haría así:

Código
  1. Option Explicit
  2.  
  3. Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
  4. Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef TokenHandle As Long) As Long
  5. Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long
  6. Private Declare Function LookupPrivilegeValueA Lib "advapi32" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Long
  7. Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  8. Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  9.  
  10. Private Type LUID
  11.    UsedPart                    As Long
  12.    IgnoredForNowHigh32BitPart  As Long
  13. End Type
  14.  
  15. Private Type TOKEN_PRIVILEGES
  16.    PrivilegeCount              As Long
  17.    TheLuid                     As LUID
  18.    Attributes                  As Long
  19. End Type
  20.  
  21. Private Const Pi                        As Double = 3.14159265358979
  22. Private Const lngDistance               As Long = &HC8
  23.  
  24. Private Const HWND_TOPMOST              As Long = -1
  25.  
  26. Private Const SWP_NOSIZE                As Long = &H1
  27. Private Const SWP_NOMOVE                As Long = &H2
  28.  
  29. Private Const TOKEN_ADJUST_PRIVILEGES   As Long = &H20
  30. Private Const TOKEN_QUERY               As Long = &H8
  31.  
  32. Private Const SE_PRIVILEGE_ENABLED      As Long = &H2
  33.  
  34. Private Const EWX_SHUTDOWN              As Long = &H1
  35. Private Const EWX_FORCE                 As Long = &H4
  36.  
  37. Private bytCount                        As Byte
  38. Private lngHeight                       As Long
  39. Private lngWidth                        As Long
  40. Private sinAngle                        As Single
  41.  
  42. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  43.    Command1.Move Rnd * lngWidth, Rnd * lngHeight
  44. End Sub
  45.  
  46. Private Sub Form_Load()
  47.    Beep
  48.    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
  49.  
  50.    With Command1
  51.        lngHeight = Height - .Height * 2
  52.        lngWidth = Width - .Width
  53.    End With
  54.  
  55.    bytCount = 15
  56. End Sub
  57.  
  58. Private Sub Form_Unload(Cancel As Integer)
  59.    Cancel = True
  60. End Sub
  61.  
  62. Private Sub Timer1_Timer()
  63.    bytCount = bytCount + 1
  64.  
  65.    Label2.Caption = CStr(lngSecondsToWait - bytCount) & " seg"
  66.    sinAngle = 6 * bytCount
  67.  
  68.    With Line1
  69.        .X2 = .X1 + Cos((sinAngle - 90) / 180 * Pi) * lngDistance
  70.        .Y2 = .Y1 + Sin((sinAngle - 90) / 180 * Pi) * lngDistance
  71.    End With
  72.  
  73.    If bytCount = lngSecondsToWait Then
  74.        ForzeShutDown
  75.        End
  76.    End If
  77. End Sub
  78.  
  79. Private Sub ForzeShutDown()
  80. Dim myLuid                              As LUID
  81. Dim tkpFinal                            As TOKEN_PRIVILEGES
  82. Dim tkpPrevious                         As TOKEN_PRIVILEGES
  83. Dim lngBuffer                           As Long
  84. Dim lngTokenHwnd                        As Long
  85. Dim lngProcessHwnd                      As Long
  86.  
  87.    lngProcessHwnd = GetCurrentProcess
  88.    OpenProcessToken lngProcessHwnd, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lngTokenHwnd
  89.    LookupPrivilegeValueA vbNullString, "SeShutdownPrivilege", myLuid
  90.  
  91.    With tkpFinal
  92.        .PrivilegeCount = 1
  93.        .TheLuid = myLuid
  94.        .Attributes = SE_PRIVILEGE_ENABLED
  95.    End With
  96.  
  97.    AdjustTokenPrivileges lngTokenHwnd, False, tkpFinal, Len(tkpPrevious), tkpPrevious, lngBuffer
  98.    ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE, True
  99. End Sub

Tambien puedes hacer un hook para deshabilitar el Ctr+Alt+Supr, porque creo que SystemParametersInfo() no funciona en W7...

DoEvents! :P


« Última modificación: 12 Febrero 2011, 01:09 am por Mr. Frog © » En línea

Hurubnar

Desconectado Desconectado

Mensajes: 299



Ver Perfil WWW
Re: [BROMA] AutoDestruccion
« Respuesta #2 en: 10 Febrero 2011, 13:43 pm »

Me viene bien puesto que quiero saber cómo mostrar un período de tiempo en un label (que se nota que no es del mismo, hehe)... Gracias por compartir 79137913  ;-)

Un saludo

PD Dejo lo de Mr.Frog para un futuro no muy lejano (espero)...  :silbar:
En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [BROMA] AutoDestruccion
« Respuesta #3 en: 10 Febrero 2011, 13:45 pm »

HOLA!!!

JAJAJA, me encanta, siempre salen versiones hiper mejoradas XD.

 ;-) ;-) ;-) ;-) ;-)

P.D: Estoy aburrido, Alguien arme un Reto :silbar:

P.D2: @Herio XD que se note que no es del mismo no hay problema, es cuestion de ubicar bien el label2 sino podes hacer algo asi:

Label1.Caption ="Se ha activado la Autodestruccion del equipo, para cancelar presione el boton Abortar, sino espere " &  (60 - Z) & " seg a que empiece la Autodestruccion"


GRACIAS POR LEER!!!
« Última modificación: 10 Febrero 2011, 16:26 pm por 79137913 » En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Hurubnar

Desconectado Desconectado

Mensajes: 299



Ver Perfil WWW
Re: [BROMA] AutoDestruccion
« Respuesta #4 en: 11 Febrero 2011, 14:25 pm »

Citar
Label1.Caption ="Se ha activado la Autodestruccion del equipo, para cancelar presione el boton Abortar, sino espere " &  (60 - Z) & " seg a que empiece la Autodestruccion"

¡No se me había ocurrido!  :-[
Muchas gracias 79137913

Un saludo
En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: [BROMA] AutoDestruccion
« Respuesta #5 en: 11 Febrero 2011, 21:42 pm »

El de Psyke1 no me anduvo, la api esa es al pedo xD, con el shutdown -s -f bastaba
En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [BROMA] AutoDestruccion
« Respuesta #6 en: 12 Febrero 2011, 01:12 am »

El de Psyke1 no me anduvo, la api esa es al pedo xD, con el shutdown -s -f bastaba
No digas barbaridades, esa es una forma muy fea de hacerlo...
Ya actualicé el código.

DoEvents! :P
En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: [BROMA] AutoDestruccion
« Respuesta #7 en: 12 Febrero 2011, 16:20 pm »

Bueno pero no te enojes psyke1 xD
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
broma bat!!! « 1 2 ... 8 9 »
Hacking
von Newman 88 60,104 Último mensaje 27 Diciembre 2010, 23:42 pm
por von Newman
broma con vb « 1 2 »
Programación Visual Basic
vivachapas 17 6,329 Último mensaje 20 Abril 2007, 23:54 pm
por Ch3ck
[SOURCE] Autodestrucción pasados X días « 1 2 »
Programación Visual Basic
jmordenata 14 5,364 Último mensaje 28 Marzo 2008, 02:03 am
por Sh4k4
Autodestruccion - Codigo
Programación Visual Basic
Sh4k4 8 6,708 Último mensaje 21 Abril 2008, 16:03 pm
por Frikimaster
SSD Runcore InVincible: La primera con botón de autodestrucción
Noticias
wolfbcn 5 2,540 Último mensaje 21 Mayo 2012, 17:10 pm
por crazykenny
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines