Enlaces patrocinados:

Trucos de Visual Basic 6.0 Apagar, reiniciar el ordenador

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apagar
End Sub

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reiniciar el Sistema
End Sub
NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Apagar, reiniciar el ordenador

CosMe 7 dice:

llevo programacion y no me lo sabia jiji si que tienen muchas cosas buenas sigan asi
Comentario publicado 27/08/2010 5:21:00
luis manuel dice:

en donde meto este codigo? Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Comentario publicado 17/11/2010 10:02:00
Jhon dice:

Lo hago mas facil haciendo uso de la consola shell("shutdown -s -t 00") 'Para apagar shell("shutdown -r -t 00") 'Para reiniciar
Comentario publicado 07/01/2011 7:10:00
meño dice:

yo lo hago mas fácil le doy clic a inicio después apagar equipo jejejj o no es mas fácil?????
Comentario publicado 04/03/2011 5:47:00
Juaniyo dice:

¡Pero qué tontos llegan a ser algunos, joer!
Comentario publicado 25/04/2011 12:48:00
SONIA dice:

el codigo de arriba lo debo poner en un formulario donde tengo un boton de inicio y otri de terminar para que al iniciar inicie el desbloqueo de la maquina o como le hago
Comentario publicado 26/09/2011 19:35:00
sonia dice:

como hago para que desde mi pc pueda apagar otras pc, estoy realizando un control de acceso de entrada y salida de un laboratorio y lo unico que me falta es bloquear y desbloquear las pc que se encuentran en el cc. me urge
Comentario publicado 07/10/2011 16:01:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad