Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Возможно ли сделать прогу для работы с мобилкой? Да! https://www.cyberforum.ru/ visual-basic/ thread505571.html
Как-то интересовался вопросом: возможно ли сделать прогу для работы с мобилкой. Были ещё участники, которые спрашивали команды. Скачал недавно прикольную прогу...
Как получить список принтеров и очистить очередь печати выбранного принтера? VB
Как получить список принтеров и очистить очередь печати выбранного принтера? Вторая часть "Очистить очередь печати" приоритетнее, хотелось бы узнать как обнулить очередь печати. Это та самая...
VB Библиотека в VB 6.0 для работы например с подключением к интернету
А есть какая нибудь библиотека в VB 6.0 для работы например с подключением к интернету (функции для получения времени нахождения в сети, учёт траффика), для програмного установления подключения к...
VB Захват и сохранение видео фрейма в файл Интересный вопрос, захват видео фрейма из ЛЮБОГО видео файла, не только AVI формата. Есть такая библиотека "ActiveMovie control type Library", по другому оно называется DirectShow, свою программу... https://www.cyberforum.ru/ visual-basic/ thread505518.html
VB RunTime Error 340 Control array element 'item' doesn't exist https://www.cyberforum.ru/ visual-basic/ thread505508.html
Имеется массив элементов А(I). Пользователь может удалить любой элемент из этого массива. Нужно после операции удаления отсортировать этот массив, но в цикле по I при достижении индекса удалённого...
Преобразование из массива байтов в стринг на VBS VB
Есть кусок кода, переделаного с ASP: Dim objXMLHTTP strConn = "PROVIDER=MSDASQL;DRIVER=SQL Server;Server=q;Database=w;User ID=e;Password=r" url = "http://www.ya.ru" Set objXMLHTTP =...
Проблема с размерами иконок в трее VB
Делаю иконку для проги, по правилам должно идти 48x48 на 16, 32x32 на 16, 24x24 на 16, 16x16 на 16, 48x48 на 256, 32x32 на 256, 24x24 на 256, 16x16 на 256, 48x48 на 32b, 32x32 на 32b, 24x24 на 32b,...
VB Как можно загрузить в TextBox большой текст? Скажите, пожалуйста, как можно загрузить в TextBox большой текст? Большой - это порядка одного мегабайта. https://www.cyberforum.ru/ visual-basic/ thread505439.html
VB Список стандартных констант VB https://www.cyberforum.ru/ visual-basic/ thread505437.html
Скажите, пожалуйста, где можно найти список стандартных констант VB? В смысле те константы, которые описывают цвета, клавиши, типы и т.д. Точнее, не просто список (он есть в Object Browser'е), а...
VB Run-Time Error '68': Device Unavailable Как предупредить эту ошибку - Run-Time Error '68': Device Unavailable, она у меня возникает, когда в DriveListBox я выбираю свой CD-Rom, в котором нет диска? https://www.cyberforum.ru/ visual-basic/ thread505434.html
Терминатор
28.09.2006, 05:41 0

Как програмно выключить комп

28.09.2006, 05:41. Просмотров 1883. Ответов 3
Метки (Все метки)

Ответ


Можно немного по-короче...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' константы, необходимые для выхода из Windows 
 
Const EWX_FORCE = 4     ' закрытие неактивных приложений 
Const EWX_LOGOFF = 0    ' выход из системы 
Const EWX_REBOOT = 2    ' перезагрузка 
Const EWX_SHUTDOWN = 1  ' закрытие системы 
 
Declare Function RtlAdjustPrivilege Lib "ntdll" (ByVal a1 As Integer, ByVal a2 As Boolean, ByVal a3 As Boolean, ByRef a4 As Boolean) As Boolean 
Declare Function ZwShutdownSystem Lib "ntdll" (ByVal f As Integer) As Boolean 
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&) 
 
 
Sub sPowerOff_NT() 
Dim flag As Boolean 
    ' выключает компьютер в WinNT/2000/XP 
    RtlAdjustPrivilege 19, True, False, flag 
    ZwShutdownSystem 2 
End Sub


Вернуться к обсуждению:
Как програмно выключить комп
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2006, 05:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как програмно выключить компьютер
Доброго времени суток. Подскажите, пожалуйста, как програмно выключить компьтер ? Добавлено...

Програмно выключить компютер
етот код выключает компютер через час....я хочу добавить combobox штобы мог...

Как автоматически выключить комп?
Конкретнее: юзер закрывает программу и винда сама выгружается. Простой запуск shutdown.exe -s не...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.