Dans le programme Visual Basic, vous pouvez utiliser les fonctions API Windows pour redémarrer le système informatique. Ce texte décrit comment quitter Windows 95 et arrêter le système informatique.
#Arrêtez le système informatique
Vous pouvez utiliser la fonction ExitWindowsEx de l'API Windows pour redémarrer le système informatique à partir d'un programme Visual Basic. Pour utiliser cette fonction, incluez l'instruction de déclaration suivante dans la section des déclarations normales du formulaire :
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
La fonction ExitWindowsEx nécessite 2 paramètres. Vous pouvez utiliser une ou plusieurs combinaisons des indicateurs suivants pour indiquer à la fonction ExitWindowsEx que vous souhaitez effectuer le processus d'arrêt.
EWX_FORCE Tous les processus sont terminés de force.
EWX_LOGOFF Tous les processus sont terminés de force et l'utilisateur est déconnecté (loggedoff).
EWX_POWEROFF Le système informatique est arrêté et si les fonctionnalités d'économie d'énergie sont prises en charge, l'ordinateur est physiquement arrêté.
EWX_REBOOTLe système informatique a été arrêté et redémarré.
EWX_SHUTDOWN L'ordinateur a été arrêté physiquement et en toute sécurité.
L’exemple de programme suivant utilise une combinaison des trois indicateurs ci-dessus. Cette combinaison d'indicateurs (EWX_LOGOFF, EWX_FORCE et EWX_REBOOT) indique à Windows95 de quitter toutes les opérations normales.
Pendant le processus d'exécution, l'utilisateur se déconnecte du réseau et met le système informatique dans un état prêt à être arrêté.
#Exemple de programme
Cet exemple de programme montre comment arrêter un système informatique.
1. Démarrez un nouveau projet dans Visual Basic et utilisez la méthode par défaut pour créer Form1.
2. Ajoutez les constantes et les instructions de déclaration suivantes à la section de déclaration normale de Form1 (notez que l'instruction de déclaration doit être écrite sur une seule ligne) :
PrivateDeclareFunctionExitWindowsExLib"user32"(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. Ajoutez un contrôle de bouton de commande à Form1 et utilisez la méthode par défaut pour créer Comand1. Définissez sa propriété Caption sur "Redémarrer l'ordinateur".
4. Ajoutez le code suivant à l'événement click de Command1 :
PrivateSubCommand1_Click()
DimXAsLong
X = Quitter WindowsEx (EWX_RESET, dwReserved)
FinSub
Appuyez sur F5 pour exécuter l'exemple de programme ci-dessus et cliquez sur le bouton de commande pour redémarrer le système informatique. ->