Trucos de Visual Basic 6.0 Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Truco para apagar, reiniciar, o apagar Windows.
Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario:
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
Pon el truco en tus favoritos
Trucos relacionados de Apagar el equipo, reiniciar Windows, reiniciar el Sistema
-
Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado
Calcular la cantidad de días de un mes específico
Averiguar si un día corresponde a un fin de semana
Averiguar el último día de un Mes determinado
Ave