Код отключения компа

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
_Big_Brother_
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 09.02.2005 (Ср) 14:48

Код отключения компа

Сообщение _Big_Brother_ » 09.02.2005 (Ср) 19:42

ПРИВЕТ,НАРОД!!!
ПОДСКАЖИТЕ КТО-НИБУДЬ КОД ОТКЛЮЧЕНИЯ КОМПА ДЛЯ WINDOWS XP, ЕСТЬ ПОД 98, НО ОН НЕ ПАШЕТ.
ХОЧУ СДЕЛАТЬ, ЧТОБЫ ПРОГРАМА В ЗАДАННОЕ ВРЕМЯ ВЫКЛЮЧАЛА КОМП.

--------------------------
ЗАРАНЕЕ СПАСИБО!!!

Chuvack
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 51
Зарегистрирован: 20.01.2005 (Чт) 20:59
Откуда: Россия

Сообщение Chuvack » 09.02.2005 (Ср) 20:01


Jenizix
Географ
Географ
Аватара пользователя
 
Сообщения: 545
Зарегистрирован: 20.04.2004 (Вт) 20:52
Откуда: Москва

Сообщение Jenizix » 09.02.2005 (Ср) 20:02

Я делал так, создавал БАТ с содержимым "shutdown -s -f" а потом запускал его в нужное время...
Ушел в себя, вернусь не скоро...

Если вам нужно сделать прозрачной только форму, а контролы на ней нет, то вам сюда!!!

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 09.02.2005 (Ср) 20:40


Александр80
Bonachón
Bonachón
 
Сообщения: 659
Зарегистрирован: 20.03.2004 (Сб) 23:50
Откуда: г.Москва

Сообщение Александр80 » 09.02.2005 (Ср) 23:00

Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
Private Const EWX_LOGOFF = 0
Private Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

отключить текущего пользователя
ExitWindowsEx EWX_LOGOFF, 0

выключить компьютер:
ExitWindowsEx EWX_SHUTDOWN, 0

перезагрузить компьютер:
ExitWindowsEx EWX_REBOOT, 0


Если же вам надо принудительное отключение (перезагрузка, выключение), то добавьте еще и EWX_FORCE. Например, для перезагрузки изменить код так:

ExitWindowsEx EWX_REBOOT Or EWX_FORCE, 0
В этом случае, несохраненные данные будут потеряны.

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 09.02.2005 (Ср) 23:04

2 Александр80:
_Big_Brother_ писал(а):ПОДСКАЖИТЕ КТО-НИБУДЬ КОД ОТКЛЮЧЕНИЯ КОМПА ДЛЯ WINDOWS XP, ЕСТЬ ПОД 98, НО ОН НЕ ПАШЕТ.
Ты сейчас привел пример как раз для 98 :roll:

Александр80
Bonachón
Bonachón
 
Сообщения: 659
Зарегистрирован: 20.03.2004 (Сб) 23:50
Откуда: г.Москва

Сообщение Александр80 » 10.02.2005 (Чт) 0:27

:? :oops: Упс... точно. :?

тогда вот:

http://bbs.vbstreets.ru/viewtopic.php?t ... ight=power
У меня работает. :lol: :wink:

HotKitten
Дятил
Дятил
Аватара пользователя
 
Сообщения: 400
Зарегистрирован: 24.01.2005 (Пн) 21:48
Откуда: из дома

Сообщение HotKitten » 10.02.2005 (Чт) 18:33

А как в ждущий режим????
Изображение

HotKitten
Дятил
Дятил
Аватара пользователя
 
Сообщения: 400
Зарегистрирован: 24.01.2005 (Пн) 21:48
Откуда: из дома

Сообщение HotKitten » 10.02.2005 (Чт) 18:34

и ещё блокировку подскахите плиззззззззззззз
Изображение

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 10.02.2005 (Чт) 18:52

Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 156

    TopList