| Вопрос: Програмные выключение и перезагрузка винды | Добавлено: 16.01.08 11:36 |
Автор вопроса:  sjerj
|
|
В библиотеке кодов приведен код для програмной перезагрузки /выключения винды http://www.vbnet.ru/faq/showtopic.asp?id=103
но он почемуто не работает??? или я чото не понимаю??? по примеру создал форму на ней создал два пункта меню с соответствующими названиями, поместил на форму Private Sub mnuCompOff_Click() Call ShutDown(EWX_SHUTDOWN) End Sub Private Sub mnuCompReboot_Click() Call ShutDown(EWX_REBOOT) End Sub создал модуль и все остальное засунул в него. Проэкт запускается но при нажатии на соответствующие пункты меню абсолютно ничего не происходит, Почему ???!! |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 16.01.08 12:29 |
| В API-Guide рабочий пример есть. На первый взгляд я не заметил в этом примере определения ОСи (GetVersionEx). | ||
|
Номер ответа: 2 Автор ответа: Yanex ICQ: 387761649 Вопросов: 32 Ответов: 169 |
Web-сайт: Профиль | | #2 | Добавлено: 16.01.08 14:22 |
|
Этот код (ExitWindowsEx) работает только под Windows 9x/ME. Не работает под NT-базированными системами.
Кстати, кто-нибудь знает, как мнгновенно выключить компьютер? Без ожидания - как будто Reset нажали? |
||
|
Номер ответа: 3 Автор ответа: sjerj Вопросов: 2 Ответов: 4 |
Профиль | | #3 | Добавлено: 16.01.08 16:08 |
| Не нашел если можеш кинь ссылку, заранее спасибо | ||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 16.01.08 18:48 |
| Yanex, Windows - склонен к суициду, но не до такой ведь степени | ||
|
Номер ответа: 5 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 16.01.08 19:10 |
в NT-подобных системах вообще надо shutdown-привилегии приложению дать, чтоб что-то выключить 
|
||
|
Номер ответа: 6 Автор ответа: YanexICQ: 387761649 Вопросов: 32 Ответов: 169 |
Web-сайт: Профиль | | #6 | Добавлено: 17.01.08 08:58 |
|
Я видел прогу Super Fast Shutdown, кажется, называется. Сделана она на VB - уверен, ломал
Там идет обращение к двум каким-то API; их в API Viewer не нашел. В инете особо не искал, но поверхностная проверка показала: не очень-то популярные эти функции. Но нужные, несомненно! Кому хочется ждать это дурацкое (!) "Завершение работы"...
Так что в VB реально можно сделать. |
||
|
Номер ответа: 7 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #7 | Добавлено: 17.01.08 10:03 |
|
Из API-Guid:
'In a module
Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Const TOKEN_ADJUST_PRIVILEGES = &H20 Private Const TOKEN_QUERY = &H8 Private Const SE_PRIVILEGE_ENABLED = &H2 Private Const ANYSIZE_ARRAY = 1 Private Const VER_PLATFORM_WIN32_NT = 2 Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Type LUID LowPart As Long HighPart As Long End Type Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long 'Detect if the program is running under Windows NT Public Function IsWinNT() As Boolean Dim myOS As OSVERSIONINFO myOS.dwOSVersionInfoSize = Len(myOS) GetVersionEx myOS IsWinNT = (myOS.dwPlatformId = VER_PLATFORM_WIN32_NT) End Function 'set the shut down privilege for the current application Private Sub EnableShutDown() Dim hProc As Long Dim hToken As Long Dim mLUID As LUID Dim mPriv As TOKEN_PRIVILEGES Dim mNewPriv As TOKEN_PRIVILEGES hProc = GetCurrentProcess() OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID mPriv.PrivilegeCount = 1 mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED mPriv.Privileges(0).pLuid = mLUID ' enable shutdown privilege for the current application AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount) End Sub ' Shut Down NT Public Sub ShutDownNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_SHUTDOWN If Force Then Flags = Flags + EWX_FORCE If IsWinNT Then EnableShutDown ExitWindowsEx Flags, 0 End Sub 'Restart NT Public Sub RebootNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_REBOOT If Force Then Flags = Flags + EWX_FORCE If IsWinNT Then EnableShutDown ExitWindowsEx Flags, 0 End Sub 'Log off the current user Public Sub LogOffNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_LOGOFF If Force Then Flags = Flags + EWX_FORCE ExitWindowsEx Flags, 0 End Sub 'In a form 'This project needs a form with three command buttons Private Sub Command1_Click() LogOffNT True End Sub Private Sub Command2_Click() RebootNT True End Sub Private Sub Command3_Click() ShutDownNT True End Sub Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Command1.Caption = "Log Off NT" Command2.Caption = "Reboot NT" Command3.Caption = "Shutdown NT" End Sub |
||
|
Номер ответа: 8 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #8 | Добавлено: 17.01.08 17:55 |
|
Yanex, тебе не хочется ждать "завершение работы". То есть выключаешь комп 4секундным нажатием POWER? )
|
||
|
Номер ответа: 9 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #9 | Добавлено: 17.01.08 19:38 |
| Жжошь. | ||
|
Номер ответа: 10 Автор ответа: YanexICQ: 387761649 Вопросов: 32 Ответов: 169 |
Web-сайт: Профиль | | #10 | Добавлено: 18.01.08 08:38 |
|
Нет, почему четырехсекундным? Шести...
Да нет, если честно. У меня XP довольно быстро выключается. Но Vista глючит долго... Очень долго... |
||
|
Номер ответа: 11 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #11 | Добавлено: 18.01.08 10:40 |
|
Не знаю как в Висте, в ХР HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control ключ WaitToKillServiceTimeout - время в миллисекундах, отвечает за ожидание до убийства процесса. По умлчанию вроде 20000, если уменьшить, то выгрузка пойдет быстрее. Главное не перегнуть палку.
|
||
|
Номер ответа: 12 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #12 | Добавлено: 18.01.08 10:40 |
| Vista глючит долго, XP глючит быстро... мда. | ||
|
Номер ответа: 13 Автор ответа: YanexICQ: 387761649 Вопросов: 32 Ответов: 169 |
Web-сайт: Профиль | | #13 | Добавлено: 18.01.08 12:44 |
|
Не, потом уже финальная стадия долго проходит. Завершение работы Windows...
Кстати, не забываем про тему сообщения: Вот - код для выключения или перезагрузки системы Windows XP/Vista: 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 Кстати, пример взял на VBRussian.com. |
||
|
Номер ответа: 14 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #14 | Добавлено: 18.01.08 13:06 |
|
WMI то можно отключить, и этот код работать не будет.
|
||
|
Номер ответа: 15 Автор ответа: sjerjВопросов: 2 Ответов: 4 |
Профиль | | #15 | Добавлено: 21.01.08 09:53 |
| To Yanex эти кода тоже не работают, а вот предложенная выше Super fast shootdown действительно вырубает комп практически мгновенно (2-3 секунды). | ||