функции или API

[ANDLL]

Опять же стоит заметить, что код будет работать только в том случае, если AdjustTokenPrivileges не соизволит вернуть ошибку. Ибо не факт, что приложению дадут привелегию для shutdown'а.

[Хакер]

У меня мамка ATX, на ней MILLENIUM КАРТИНКУ показывакт, а ХР - нет.

[Viper]

У меня мамка ATX, на ней MILLENIUM КАРТИНКУ показывакт, а ХР - нет.

...странно однако... Фишка ATX как раз и состоит в том, чтобы отключать комп самостоятельно, не "радуя" юзверя предложением отключить питание

[tyomitch]

В настройках системы можно отключить автоотключение питания и полюбоваться на картинку.

[AjaxVS]

Угу...
Правый клик на десктопе -> Свойства:экран -> Заставка -> Питание -> АУП -> (галочка) Задествовать АУП.

Вопрос остался нерешенным: как же все таки научить VB видеть эту галочку? Или это вопрос из разряда "как заблокировать Ctrl+Alt+Del"? +_+

ЗЫ. У меня ATX, и на XP всегда (если программно) при выключении остается этот экран...

[Random]

Америку не открою, но: RUNDLL.EXE user.exe,exitwindows - для Win 9x (может кто и не знает)
Если не изменяет память, где-то в сэмплах CD c VB6 я видел проект проги перезагрузки компа....

[minotawr]

Хм, там не только перезагрузка, можно выставляя параметры функции от 0 до 4х выключать, переходить в ждущий режим, перегружать, и экстренно завершать работу WIN...

[ВуД]

можно так:

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

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
   ObjOperatingSystem.Reboot ' Для перезагрузки
Next

и:

Dim strComputer As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")

For Each ObjOperatingSystem In colOperatingSystems

ObjOperatingSystem.ShutDown 'Для выключения

Next


Со Спящим,Ждущим режимом ПОМОГИТЕ!!!