| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
My roof is on fire! Помогите распотрошить чужой ст, My roof is on fire! Помогите распотрошит Проблема с регулярными выражениями. Обработка событий от графических объектов в Excel вывод данных из ячеки Exel c условием, Легкая задача ActiveX и массив занчения свойств ActiveX и ComboBox, Помогите. Срочно.... Socket где достать электронный учебник по QBasic?, может я, конечно, не в тему...... Скрытие строк в Worde i need help^) Excel: автоматическое перемещение фокуса, Как сделать так, чтобы при достижении яч Отключение драйвера 2-х направленный ResultSet Возможности VB Константы... Crystal Reports Excel Visual Basic, Обработать событие добавления строки Как поместить кнопку в окно "чужого" процесса? Картинки в меню.... DataGrid..., Заполнение данными... console в VB Запрос к таблице Excel Редактирование ячейки, Exel + VBa Чего в Java такого сверхъестественного?, Расскажите, почему вы его так любите. OLE Что енто, и как с ентим работать DataGrid.... Как получить имена хостов в локалке?, Сеть Функция Подбор параметра в MS Excel - как сделать, - как сделать через макрос? Цвет меню и панели инструментов..... Power off, PO Контроль принтеров, Контороль использования принтеров. как настроить ado recordset шоб изменения, вносились только после updatebatch? Извлечение bmp из dll, ... как вывести на экран файл, произвольного формата. Динамический массив - возможно? Сортировка данных в Excel, Нужна помощь посортировке данных в Excel Как Вы относитесь к курящим девушкам? Excel Script Editor, добавление своей функции ячейки Игры на Visual'e 6.0, Разработка игр ArcObject, надстройка для VB Коды ошибок.... Delphi->VB, Глюк при передаче String из Deplhi в VB Создание типизированного файла Графический редактор, Очень нужно написать Работа с FileSearch, не изменяется LookIn Как выделить фрагмент картинки, с помощью JavaScript Русский Оffice, VLookup... Как сделать тест на Visual Basice Закачка файла на удаленный сервер через FTP, Закачка файла с помошью Visual Basic Excel Visual Basic, Где найти справочник Excel Visual Basic comm port list Toolbox и подчиненные формы? Вопрос по синтаксису Format-функция в SQLServer PCI и VB - нужны исходники!!!, Надо считать с PCI информацию Создание сервера на 12 машин + чат + почта, Как это все воплатить в жизнь Ресурсы jar-файла Прокси-сервер на VB работа с файлами через dll, е могу понять в чем трабла Масштабирование формы, Как избежать? Реестр и REG_DWORD, присвоение значения... однонаправленный циклический список, вопрос о списке. Печать с помошью API Гиперссылки? Params в SQL запросе, Работа с БД. Как отредактировать запись в базе, MS Access работа с сетью в VB .NET, что использовать getSystemIdleTime, Вопрос для специалистов по Java Сколько места занимает объект в памяти? Русский Ёксель и даты |
Платные хостинги Раскрутка сайта Книги по программированию Power off, PO
- Вот выдрал из 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&)highlightSyntax('vbOTc4OG','vb'); - 'Попробуй етоOption ExplicitPublic Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As IntegerPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Public Function Hibernate() Call SetSuspendState(1, 0, 0)End FunctionPublic Function Sleep() Call SetSuspendState(0, 0, 1)End FunctionPublic Function Reboot() Call ExitWindowsEx(EWX_REBOOT, 0)End FunctionPublic Function Shutdown() Call ExitWindowsEx(EWX_SHUTDOWN, 0)End FunctionPublic Function LogOff() Call ExitWindowsEx(4, 0)End Function - А ты приколист Тебе же выложили черным по белому весь код (лишнего правда есть)... а ему все мало Код Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst EWX_SHUTDOWN = 1Private Sub Command1_Click()Call ExitWindowsEx(EWX_SHUTDOWN, 0)End SubhighlightSyntax('vbjExOTg','vb'); Надеюсь, скопировать и вставить в модуль сам сможешь...  |