En el programa Visual Basic, puede utilizar las funciones API de Windows para reiniciar el sistema informático. Este texto describe cómo salir de Windows 95 y apagar el sistema informático.
#Apagar el sistema informático
Puede utilizar la función ExitWindowsEx de la API de Windows para reiniciar el sistema informático desde un programa de Visual Basic. Para utilizar esta función, incluya la siguiente declaración en la sección de declaraciones normales del formulario:
PRivateDeclareFunctionSalirWindowsExLib"usuario32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
La función ExitWindowsEx requiere 2 parámetros. Puede usar una o más combinaciones de los siguientes indicadores para indicarle a la función ExitWindowsEx que desea realizar el proceso de apagado.
EWX_FORCE Todos los procesos se terminan por la fuerza.
EWX_LOGOFF Todos los procesos se finalizan a la fuerza y el usuario cierra la sesión (desconectada).
EWX_POWEROFF El sistema informático se apaga y, si se admiten las funciones de ahorro de energía, el ordenador se apaga físicamente.
EWX_REBOOTEl sistema informático se apagó y se reinició.
EWX_SHUTDOWN La computadora se apagó física y seguramente.
El siguiente programa de muestra utiliza una combinación de los tres indicadores anteriores. Esta combinación de indicadores (EWX_LOGOFF, EWX_FORCE y EWX_REBOOT) le indica a Windows95 que salga de todas las funciones normales.
Durante el proceso de ejecución, el usuario cierra sesión en la red y pone el sistema informático en estado listo para que el usuario lo apague.
#Programa de muestra
Este programa de muestra muestra cómo apagar un sistema informático.
1. Inicie un nuevo proyecto en Visual Basic y utilice el método predeterminado para crear Form1.
2. Agregue las siguientes constantes y declaraciones de declaración a la sección de declaración normal del Formulario 1 (tenga en cuenta que la declaración de declaración debe escribirse en una línea):
PrivateDeclareFunctionExitWindowsExLib"usuario32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3. Agregue un control de botón de comando a Form1 y use el método predeterminado para crear Comand1. Establezca su propiedad Título en "Reiniciar computadora".
4. Agregue el siguiente código al evento de clic de Comando1:
PrivadoSubCommand1_Click()
DimXAsLargo
X=Salir de WindowsEx(EWX_RESET,dwReserved)
FinSub
Presione F5 para ejecutar el programa de muestra anterior y haga clic en el botón de comando para reiniciar el sistema informático. ->