Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Power off

Автор: Ayaz 1.1.2004, 04:12

Дайте код для выключения компа!

Автор: DriveSoftware 2.1.2004, 16:09

Вот выдрал из Faq-а

Код


Отмечу, что разговор пойдет не только о выключении и перезагрузке компьютера, применительно к Win9x. Под NT (включая W2K) данная процедура требует указания прав и ввиду своей сложности опущена.
Для выполнения этих операций существует функция WinAPI ExitWindowsEx: 

   Declare Function ExitWindowsEx Lib "user32" _
      (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Начем со второго параметра, который зарезервирован. Его значение никак не учитывается в работе функции (теоретически), но знатоки API советуют устанавливать его не в 0& а в &HFFFFFFFF&.
Первый параметр задает тип выполняемого действия. Эти действия перечислены ниже: 

   Public Const EWX_LOGOFF      = &H0&' завершение сеанса пользователя  
   Public Const EWX_SHUTDOWN    = &H1&' шатдаун компьютера
   Public Const EWX_REBOOT      = &H2&' перезагрузка компьютера
   Public Const EWX_POWEROFF    = &H8&' выключение компьютера (ATX)
   Public Const EWX_FORCE       = &H4&  ' флаг принудительного выполнения операции
   Public Const EWX_FORCEIFHUNG = &H10& ' флаг принудительного выполнения при зависании
   Public Const EWX_FORCENETWORK  ' флаг принудительного выполнения при наличия
                                        ' доступа к ресурсам компьютера
Первые 4 параметра задают конкретное действие.
Остальные параметры - битовые модификаторы и их можно комбинировать.
Флажок EWX_FORCE заставляет выполнить действие не обращая внимания на протесты приложений (скажем если в Word находятся несохраненные данные, то без флага EWX_FORCE действие не будет выполнено, пока пользователь не ответит на запрос Word'а).
Флаг EWX_FORCEIFHUNG позволяет проигнорировать зависшие приложения.
Должен еще существовать флажок, предположительно EWX_FORCENETWORK, но к сожалению у меня нет информации по его названию и его значению. В случае наличия сетевого доступа к ресурсам компьютера, этот флаг позволяет избежать появления подтверждающего закрытие или перезагрузку окошка.

Небольшой пример. Перезагрузим компьютер с флагом EWX_FORCE:


   Call ExitWindowsEx (EWX_REBOOT Or EWX_FORCE, &HFFFFFFFF&)

Автор: Vadym 5.1.2004, 02:13

'Попробуй ето

Option Explicit

Public Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2

Public Function Hibernate()
Call SetSuspendState(1, 0, 0)
End Function

Public Function Sleep()
Call SetSuspendState(0, 0, 1)
End Function

Public Function Reboot()
Call ExitWindowsEx(EWX_REBOOT, 0)
End Function

Public Function Shutdown()
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
End Function

Public Function LogOff()
Call ExitWindowsEx(4, 0)
End Function

Автор: Ayaz 14.2.2004, 15:58

Я толком ничего не понял. Пож. объясните. Скажите код для выключения...

Автор: Black_Star 16.2.2004, 13:30

Цитата

Я толком ничего не понял. Пож. объясните. Скажите код для выключения...

А ты приколист

Тебе же выложили черным по белому весь код (лишнего правда есть)... а ему все мало

Код


Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_SHUTDOWN = 1
Private Sub Command1_Click()
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

Надеюсь, скопировать и вставить в модуль сам сможешь...