"Быстрое" выключение ПК - программно

[IljaO]

Как известно, есть 2 способа выключить ПК: через Start -> Turn off или нажав кнопку Power. Причем выключение по кнопке происходит раза в 2-3 быстрее (вроде бы настройки винды не сохраняются в профайл). Так вот: как программно выключить ПК вторым способом (т.е. как по кнопке), если это возможно?
Заранее спасибо.

[Mleha]

А в общем какая разница с какой скоростью у Тебя комп вырубится или все же не нужно настройки сохранять?

попробуй так:

Код: Выделить всё

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( "Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown
Next

[IljaO]

В принципе работает. Спасибо.
А настройки мне сохранять НЕ нужно.
Кстати: а что происходит при нажатии на Power?

[GSerg]

Перестаёт подаваться питание на мать.
Эмулируется ножницами или кусачками.

[tyomitch]

Это на AT-корпусах так. На ATX он замыкает на ней пару выводов. Неплохо эмулируется отвёрткой

[KDima]

Кстати в ATX комп можно отключить в течении 8 секунд.
Прижимаем кнопарь... и через 8 секунд наш корпус становится AT
Типс вроде старый как мир, а мой дружбан не знал

[User2004]

А можно так:

Код: Выделить всё

'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End
    'reboot the computer
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub


Можно поэкспериментировать с константами-прикольно

[GSerg]

А где включение привилегии SeShutdownPrivilege? Без этого доступ не дадут

[User2004]

А где включение привилегии SeShutdownPrivilege? Без этого доступ не дадут

Сделал exe-шку-работает
Может из-за win98 .
На ХР- не хочет

[GSerg]

Ага, на 98 нет привилегий

[User2004]

Спасибо!Буду знать.

[IljaO]

Не, ExitWindowsEx, конечно, работает правильно и везде (как - MSDN Q168796), но через него винда выгружается очень долго и нудно, что не всегда хорошо %). Задача - как можно быстрее вырубить 60 компов в комнате В принципе код, предложенный MLeha, работает, но я никак не могу разобраться с объявлениями... Option Explicit свое дело знает... А необъявленные объекты в будущем могут дать сбои. Если можно, объясните.

[IljaO]

Кстати, кусачки и отвертка - очень хорошая идея. В каждый корпус - по роботу, которые этими самыми инструментами и будут орудовать
Просто и надежно

[GSerg]

dim objWMIService as object, colOperatingSystems as object, ObjOperatingSystem as object

[GSerg]

Кстати, кусачки и отвертка - очень хорошая идея. В каждый корпус - по роботу, которые этими самыми инструментами и будут орудовать
Просто и надежно

Ага, и мануал на 3000 страниц по управлению роботами

[alibek]

Кстати в ATX комп можно отключить в течении 8 секунд.

Разве не 4 секунды?

[tyomitch]

Кстати в ATX комп можно отключить в течении 8 секунд.

Разве не 4 секунды?

У моего компа - четыре. Думаю, это зависит от БП/матери/биоса и т.п.

[tyomitch]

Кстати, кусачки и отвертка - очень хорошая идея. В каждый корпус - по роботу, которые этими самыми инструментами и будут орудовать
Просто и надежно

Угу, даже анек такой был: "самая главная угроза для компа - это программист с отвёрткой". Типа, даже страшнее чем чайник с админскими правами.

[HotKitten]

А моей Win98 без раздницы она как на Power отрубается секунды за 3-4 так и через ПУСК,
А вот мой Win2k через Power - за 15-20 сек, а через ПУСК - секунт так 40!!!!!!!!!!

[HotKitten]

и зачем под 98 так долго на Power жать??

[KDima]

Кстати в ATX комп можно отключить в течении 8 секунд.

Разве не 4 секунды?

У моего компа - четыре. Думаю, это зависит от БП/матери/биоса и т.п.

Я слышал это настраивается но не у всех....

[xenomorph]

Ножницы,
отвёртки,
роботы ))) ...
- Главное хвост!
--
А я вот предпочитаю так:
Получаем SE?Debug Priveleges ...
Delaem OpenProcess Winlogon.exe
и делее немного извращаемся с CreateRemoteThread и ExitProcess ---
Комп лечиться в течении милисекунды .

Комбинация фатальна 8ъ!
--
Код не дам - куды дел не помню - помню что работало )))!