функции или Api
Кто знает функции или API для выключения, перезагрузки, спящего режима8)
ExitWindowsEx(). Но вот использование её зависит от того, под что пишешь (9x или NT). Если 9х - no problemo, ExitWindowsEx(EWX_...). Если NT - не прокатет, тут надо привилегии себе назначить. Короче, попозже код выложу...
В vb6.0 ос XP
Так я и думал... Ладно, держи код. И с тебя ещё огромное СПАСИБО, т. к. там ещё и модули для WinAPI 32, написанные и отлаженные мной собственноручно (есть ещё много недокументированных функций и констант), и на которые я в своё время убил огромное количество часов... Кстати, как уложить компутер спать я не знаю (не смотрел пока)
В vb6.0 ос XP
А вот другое решение этой же проблемы.
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
Нашел, не помню на каком-то форуме.
Зато я помню, тем более что далеко идти не надо ... http://www.codenet.ru/progr/vbasic/shutdown.php
Зато я помню, тем более что далеко идти не надо ... http://www.codenet.ru/progr/vbasic/shutdown.php
Верно :)
'Перезагружаем компьютер, закрывая все открытые программы.
Dim retval As Long 'возвращаемое значение
retval = ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0)
If retval = 0 Then Debug.Print "Не удается перезагрузить компьютер."
Это сново я...X)-
Как уже было сказанно функция перезагружаем компьютер, закрывая все открытые окна и проги... Типо смена пользователя или завершение сианса.