В программе Visual Basic вы можете использовать функции Windows API для перезагрузки компьютерной системы. В этом тексте описывается, как выйти из Windows 95 и завершить работу компьютерной системы.
#Выключите компьютерную систему
Вы можете использовать функцию ExitWindowsEx API Windows для перезагрузки компьютерной системы из программы Visual Basic. Чтобы использовать эту функцию, включите следующий оператор объявления в раздел обычных объявлений формы:
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong, ByValdwReservedAsLong)AsLong
Для функции ExitWindowsEx требуется 2 параметра. Вы можете использовать одну или несколько комбинаций следующих флагов, чтобы сообщить функции ExitWindowsEx, что вы хотите выполнить процесс завершения работы.
EWX_FORCE Все процессы принудительно завершаются.
EWX_LOGOFF Все процессы принудительно завершаются, и пользователь выходит из системы (выход из системы).
EWX_POWEROFF Компьютерная система выключается, и если поддерживаются функции энергосбережения, компьютер физически выключается.
EWX_REBOOTКомпьютерная система была выключена и перезапущена.
EWX_SHUTDOWN Компьютер был физически и безопасно выключен.
В следующем примере программы используется комбинация трех вышеуказанных флагов. Эта комбинация флагов (EWX_LOGOFF, EWX_FORCE и EWX_REBOOT) сообщает Windows95 о необходимости выйти из обычного режима.
В процессе выполнения пользователь выходит из сети и переводит компьютерную систему в состояние готовности к завершению работы пользователя.
#Пример программы
В этом примере программы показано, как выключить компьютерную систему.
1. Запустите новый проект в Visual Basic и используйте метод по умолчанию для создания Form1.
2. Добавьте следующие константы и операторы объявления в обычный раздел объявлений формы Form1 (обратите внимание, что оператор объявления должен быть записан в одну строку):
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. Добавьте элемент управления «Командная кнопка» в форму Form1 и используйте метод по умолчанию для создания Comand1. Установите для свойства Caption значение «Перезагрузить компьютер».
4. Добавьте следующий код в событие щелчка Command1:
PrivateSubCommand1_Click()
DimXAsLong
X = ExitWindowsEx (EWX_RESET, dwReserved)
EndSub
Нажмите F5, чтобы запустить приведенный выше пример программы, и нажмите командную кнопку, чтобы перезагрузить компьютерную систему. ->