Apagar el equipo, reiniciar Windows, reiniciar el Sistema

  • 0 Respuestas
  • 2237 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5720
  • Actividad:
    100%
  • Country: ar
  • Reputación 39
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email
Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario:

Código: (vb) [Seleccionar]
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub
Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario
End Sub
Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub
« Última modificación: Julio 08, 2011, 10:06:42 am por ANTRAX »