Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 10:31:47 am

Título: Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Publicado por: ANTRAX en Julio 26, 2010, 10:31:47 am
Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario:

Código: Visual Basic
  1.  Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
  2. uFlags&, ByVal dwReserved&)
  3. Private Sub Command1_Click()
  4. Dim i as integer
  5. i = ExitWindowsEx(1, 0&) 'Apaga el equipo
  6. End Sub
  7. Private Sub Command2_Click()
  8. Dim i as integer
  9. i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario
  10. End Sub
  11. Private Sub Command3_Click()
  12. Dim i as integer
  13. i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
  14. End Sub