Im Visual Basic-Programm können Sie Windows-API-Funktionen verwenden, um das Computersystem neu zu starten. In diesem Text wird beschrieben, wie Sie Windows 95 beenden und das Computersystem herunterfahren.
#Fahren Sie das Computersystem herunter
Sie können die ExitWindowsEx-Funktion der Windows-API verwenden, um das Computersystem über ein Visual Basic-Programm neu zu starten. Um diese Funktion zu verwenden, fügen Sie die folgende Deklarationsanweisung in den normalen Deklarationsabschnitt des Formulars ein:
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
Die ExitWindowsEx-Funktion erfordert zwei Parameter. Sie können eine oder mehrere Kombinationen der folgenden Flags verwenden, um der ExitWindowsEx-Funktion mitzuteilen, dass Sie den Herunterfahrvorgang durchführen möchten.
EWX_FORCE Alle Prozesse werden zwangsweise beendet.
EWX_LOGOFF Alle Prozesse werden zwangsweise beendet und der Benutzer wird abgemeldet (loggedoff).
EWX_POWEROFF Das Computersystem wird heruntergefahren, und wenn Energiesparfunktionen unterstützt werden, wird der Computer physisch heruntergefahren.
EWX_REBOOTDas Computersystem wurde heruntergefahren und neu gestartet.
EWX_SHUTDOWN Der Computer wurde physisch und sicher heruntergefahren.
Das folgende Beispielprogramm verwendet eine Kombination der oben genannten drei Flags. Diese Kombination von Flags (EWX_LOGOFF, EWX_FORCE und EWX_REBOOT) weist Windows95 an, ganz normal zu beenden
Während des Ausführungsprozesses meldet sich der Benutzer vom Netzwerk ab und versetzt das Computersystem in einen Zustand, in dem er heruntergefahren werden kann.
#Beispielprogramm
Dieses Beispielprogramm zeigt, wie ein Computersystem heruntergefahren wird.
1. Starten Sie ein neues Projekt in Visual Basic und verwenden Sie die Standardmethode, um Form1 zu erstellen.
2. Fügen Sie die folgenden Konstanten und Deklarationsanweisungen zum normalen Deklarationsabschnitt von Form1 hinzu (beachten Sie, dass die Deklarationsanweisung in einer Zeile geschrieben werden muss):
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. Fügen Sie Form1 ein Befehlsschaltflächen-Steuerelement hinzu und verwenden Sie die Standardmethode, um Comand1 zu erstellen. Setzen Sie die Caption-Eigenschaft auf „Computer neu starten“.
4. Fügen Sie dem Click-Ereignis von Command1 den folgenden Code hinzu:
PrivateSubCommand1_Click()
DimXAsLong
X=ExitWindowsEx(EWX_RESET,dwReserved)
EndSub
Drücken Sie F5, um das obige Beispielprogramm auszuführen, und klicken Sie auf die Befehlsschaltfläche, um das Computersystem neu zu starten. ->