Автоматическое выключение компьютера по клику

@ORST · Регистрация: 01.05.2011

Студворк — интернет-сервис помощи студентам

Люди!!! Помогите! Нужен оператор, который вырубает камп.
Мне нужна кнопка на форме, после нажатия каторой камп автоматически вырубиться

@wishcom · 27.05.2011, 11:01

Посмотри на 03 вопросов ниже...(Там ответили)

@wishcom · 27.05.2011, 11:01

Посмотри на 30 вопросов ниже...(Там ответили)

@Alexey Spirin · 27.05.2011, 14:49

2ORST: Слушай, это тебе не чат. Не надо писать по несколько раз одну и ту же тему. Не надо задавать вопросы, на которые уже по сто раз ответили. Перед тем как создать тему не поленись воспользоваться ПОИСКОМ. и не только по форуму, а еще и в Яндексе и Гугле. Отвечать на такие вопросы все равно никто не будет.

@ORST · 29.05.2011, 20:39 **[ТС]**

Я понял как его вырубать:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strComputer As String
 
strComputer = '.'
 
Set objWMIService = GetObject('winmgmts:' & _ 
'{impersonationLevel=impersonate,(Shutdown)}!\ ' & strComputer & '
ootcimv2')
Set colOperatingSystems = objWMIService.ExecQuery( _ 
'Select * from Win32_OperatingSystem')
 
For Each ObjOperatingSystem In colOperatingSystems
 
ObjOperatingSystem.ShutDown 'Для выключения
'ObjOperatingSystem.Reboot - Для перезагрузки
 
Next

Все проверил!!! Работает!!!

@lover_line · 03.10.2011, 06:25

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

Public Declare Function ExitWindowsEx Lib 'user32'_
ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_FORCE = 4
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2 'Перезагрузка
Public Const EWX_SHUTDOWN = 1 'Выключение

Использование:

ExitWindowsEx EWX_FORCE + EWX_SHUTDOWN, 0

(lover_line@mail.ru)

@Letter_D · 05.10.2011, 16:14

ORST,
я оценил.

А где можно почитать про сей объект?
Свойства, медоты, что он там еще может?...

@Alexey Spirin · 05.10.2011, 19:03

www.MSDN.com
www.Google.com
...

@Letter_D · 06.10.2011, 11:06

Alexey Spirin,
ясен перец. Типа сумничал?

)
Имелось в виду, нет ли где-нибудь типа обзорной статьи.
С конкретным адресом.

@Alexey Spirin · 06.10.2011, 12:00

ага, именно 'сумничал'.
Только вот почему-то я 'сумничал' ты все равно этим не воспользовался. А я с первого же раза нашел, к примеру, вот это:
http://infocity.kiev.ua/os/content/os065.phtml

@Letter_D · 06.10.2011, 12:50

Alexey Spirin,
спасибо. А я вот не нашел, потому и спросил.
Ты не дуйся, я же смайлы поставил.

)

@Letter_D · 06.10.2011, 14:40

А кто-нибудь силен, код, предоставленный ORST'ом, переписать в VBScript?
Хачу в штмл вставить. И зазырить!

06.10.2011, 15:34

а смысл?

@Letter_D · 06.10.2011, 15:38

дык, перегрузить компьютер

@Alexey Spirin · 06.10.2011, 16:14

Не, не прокатит.
Такие штучки уже давно вырезаются - система безопасности винды не пропускает.

@Alexey Spirin · 06.10.2011, 16:29

Ну и кроме того, на веб страницу это не положишь, т.к. хоть GetObject в VBS и есть, но в эксплорере его использовать нельзя.

@Letter_D · 06.10.2011, 16:44

1.
А почему в Ворде пускает?
Система безопасности эта.

2.
А я и не хочу на веб-станицу это ложить!
Собственно, интересно, можно ли это использовать без среды раработки VB и VBA.
Типа в текстовом блокноте набросал, обозвал его какким-нибудь расширением, которое винда сама исполнит...

3.
В общем, не удался сегодня день.

)

@Alexey Spirin · 06.10.2011, 16:54

1. Потому что когда ты открываешь ворд с макросами он у тебя раза три спросит, точно ли надо открывтаь документ и не отключить ли макросы.
2. Конечно можно. Создай файл 123.vbs и впихни туда код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim strComputer , objWMIService
 
strComputer = '.'
 
Set objWMIService = GetObject('winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\ ' & strComputer & '
ootcimv2')
Set colOperatingSystems = objWMIService.ExecQuery('Select * from Win32_OperatingSystem')
 
For Each ObjOperatingSystem In colOperatingSystems
 
ObjOperatingSystem.ShutDown 'Для выключения
'ObjOperatingSystem.Reboot - Для перезагрузки
 
Next

3. Ну, почему же) Пятница как никак)

@Letter_D · 06.10.2011, 17:19

Да! Удался! День.

Блин, сколько лет успешно юзаю разные VB, а VBS... как-то мимо меня проехал.
Ну все, теперь пипец невзлюбившей меня секретарше

))
Шутка.

@Letter_D · 06.10.2011, 21:38

Alexey Spirin,

)
и главное-то, до 11:47 у нас с нею была любовь и уважение.
Уже два года.
Но в 11:47 я потянулся к блюдечку с сахаром чуть раньше ее, ну и кусочек, соответсвенно, взал немного раньше.
Она обиделась ужасно!
Женщин вообще хрен поймешь...

Правда, это был последний кусочек сахара на фирме...

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@ORST 1 / 1 / 0 Регистрация: 01.05.2011 Сообщений: 203

	Автоматическое выключение компьютера по клику 27.05.2011, 10:47. Показов 2341. Ответов 19 Метки нет (Все метки) Люди!!! Помогите! Нужен оператор, который вырубает камп. Мне нужна кнопка на форме, после нажатия каторой камп автоматически вырубиться 0

@wishcom 1 / 1 / 0 Регистрация: 17.02.2010 Сообщений: 131
	27.05.2011, 11:01
	Посмотри на 03 вопросов ниже...(Там ответили) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	27.05.2011, 14:49
	2ORST: Слушай, это тебе не чат. Не надо писать по несколько раз одну и ту же тему. Не надо задавать вопросы, на которые уже по сто раз ответили. Перед тем как создать тему не поленись воспользоваться ПОИСКОМ. и не только по форуму, а еще и в Яндексе и Гугле. Отвечать на такие вопросы все равно никто не будет. 0

@lover_line 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 6
	03.10.2011, 06:25
	Как программно выключить Windows: Public Declare Function ExitWindowsEx Lib 'user32'_ ByVal uFlags As Long, ByVal dwReserved As Long) As Long Public Const EWX_FORCE = 4 Public Const EWX_LOGOFF = 0 Public Const EWX_REBOOT = 2 'Перезагрузка Public Const EWX_SHUTDOWN = 1 'Выключение Использование: ExitWindowsEx EWX_FORCE + EWX_SHUTDOWN, 0 (lover_line@mail.ru) 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	05.10.2011, 16:14
	ORST, я оценил. А где можно почитать про сей объект? Свойства, медоты, что он там еще может?... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	05.10.2011, 19:03
	www.MSDN.com www.Google.com ... 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 11:06
	Alexey Spirin, ясен перец. Типа сумничал? ) Имелось в виду, нет ли где-нибудь типа обзорной статьи. С конкретным адресом. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	06.10.2011, 12:00
	ага, именно 'сумничал'. Только вот почему-то я 'сумничал' ты все равно этим не воспользовался. А я с первого же раза нашел, к примеру, вот это: http://infocity.kiev.ua/os/content/os065.phtml 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 12:50
	Alexey Spirin, спасибо. А я вот не нашел, потому и спросил. Ты не дуйся, я же смайлы поставил. ) 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 14:40
	А кто-нибудь силен, код, предоставленный ORST'ом, переписать в VBScript? Хачу в штмл вставить. И зазырить! 0

CepbIu
	06.10.2011, 15:34
	а смысл?

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 15:38
	дык, перегрузить компьютер 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	06.10.2011, 16:14
	Не, не прокатит. Такие штучки уже давно вырезаются - система безопасности винды не пропускает. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	06.10.2011, 16:29
	Ну и кроме того, на веб страницу это не положишь, т.к. хоть GetObject в VBS и есть, но в эксплорере его использовать нельзя. 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 16:44
	1. А почему в Ворде пускает? Система безопасности эта. 2. А я и не хочу на веб-станицу это ложить! Собственно, интересно, можно ли это использовать без среды раработки VB и VBA. Типа в текстовом блокноте набросал, обозвал его какким-нибудь расширением, которое винда сама исполнит... 3. В общем, не удался сегодня день. ) 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 17:19
	Да! Удался! День. Блин, сколько лет успешно юзаю разные VB, а VBS... как-то мимо меня проехал. Ну все, теперь пипец невзлюбившей меня секретарше )) Шутка. 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	06.10.2011, 21:38
	Alexey Spirin, ) и главное-то, до 11:47 у нас с нею была любовь и уважение. Уже два года. Но в 11:47 я потянулся к блюдечку с сахаром чуть раньше ее, ну и кусочек, соответсвенно, взал немного раньше. Она обиделась ужасно! Женщин вообще хрен поймешь... Правда, это был последний кусочек сахара на фирме... 0