Autor
|
Tema: [BROMA] AutoDestruccion (Leído 5,714 veces)
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
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/?tove2cf972o37vtGRACIAS 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
Mensajes: 1.089
|
Yo lo haría así: Option Explicit Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef TokenHandle As Long) As Long 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 Private Declare Function LookupPrivilegeValueA Lib "advapi32" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Long 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 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Type LUID UsedPart As Long IgnoredForNowHigh32BitPart As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type Private Const Pi As Double = 3.14159265358979 Private Const lngDistance As Long = &HC8 Private Const HWND_TOPMOST As Long = -1 Private Const SWP_NOSIZE As Long = &H1 Private Const SWP_NOMOVE As Long = &H2 Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20 Private Const TOKEN_QUERY As Long = &H8 Private Const SE_PRIVILEGE_ENABLED As Long = &H2 Private Const EWX_SHUTDOWN As Long = &H1 Private Const EWX_FORCE As Long = &H4 Private bytCount As Byte Private lngHeight As Long Private lngWidth As Long Private sinAngle As Single Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Command1.Move Rnd * lngWidth, Rnd * lngHeight End Sub Private Sub Form_Load() Beep SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE With Command1 lngHeight = Height - .Height * 2 lngWidth = Width - .Width End With bytCount = 15 End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = True End Sub Private Sub Timer1_Timer() bytCount = bytCount + 1 Label2.Caption = CStr(lngSecondsToWait - bytCount) & " seg" sinAngle = 6 * bytCount With Line1 .X2 = .X1 + Cos((sinAngle - 90) / 180 * Pi) * lngDistance .Y2 = .Y1 + Sin((sinAngle - 90) / 180 * Pi) * lngDistance End With If bytCount = lngSecondsToWait Then ForzeShutDown End End If End Sub Private Sub ForzeShutDown() Dim myLuid As LUID Dim tkpFinal As TOKEN_PRIVILEGES Dim tkpPrevious As TOKEN_PRIVILEGES Dim lngBuffer As Long Dim lngTokenHwnd As Long Dim lngProcessHwnd As Long lngProcessHwnd = GetCurrentProcess OpenProcessToken lngProcessHwnd, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lngTokenHwnd LookupPrivilegeValueA vbNullString, "SeShutdownPrivilege", myLuid With tkpFinal .PrivilegeCount = 1 .TheLuid = myLuid .Attributes = SE_PRIVILEGE_ENABLED End With AdjustTokenPrivileges lngTokenHwnd, False, tkpFinal, Len(tkpPrevious), tkpPrevious, lngBuffer ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE, True End Sub
Tambien puedes hacer un hook para deshabilitar el Ctr+Alt+Supr, porque creo que SystemParametersInfo() no funciona en W7... DoEvents!
|
|
« Última modificación: 12 Febrero 2011, 01:09 am por Mr. Frog © »
|
En línea
|
|
|
|
Hurubnar
|
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)...
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! JAJAJA, me encanta, siempre salen versiones hiper mejoradas XD. P.D: Estoy aburrido, Alguien arme un Reto 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
|
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
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
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
Mensajes: 1.089
|
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!
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Bueno pero no te enojes psyke1 xD
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
broma bat!!!
« 1 2 ... 8 9 »
Hacking
|
von Newman
|
88
|
60,221
|
27 Diciembre 2010, 23:42 pm
por von Newman
|
|
|
broma con vb
« 1 2 »
Programación Visual Basic
|
vivachapas
|
17
|
6,382
|
20 Abril 2007, 23:54 pm
por Ch3ck
|
|
|
[SOURCE] Autodestrucción pasados X días
« 1 2 »
Programación Visual Basic
|
jmordenata
|
14
|
5,374
|
28 Marzo 2008, 02:03 am
por Sh4k4
|
|
|
Autodestruccion - Codigo
Programación Visual Basic
|
Sh4k4
|
8
|
6,719
|
21 Abril 2008, 16:03 pm
por Frikimaster
|
|
|
SSD Runcore InVincible: La primera con botón de autodestrucción
Noticias
|
wolfbcn
|
5
|
2,560
|
21 Mayo 2012, 17:10 pm
por crazykenny
|
|