Конференция VBStreets

**Ян Машарский** » 05.02.2005 (Сб) 18:43

Как выключить комп? Есть такой скрипт?

**Mleha** » 05.02.2005 (Сб) 18:59

Click

**elsen** » 06.02.2005 (Вс) 14:24

нет млин ест же поиск

**Андрей Васюта** » 07.02.2005 (Пн) 9:06

Если кому пригодится
Как программно перезагрузить Windows 98
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
Много полезного найдеш сдесь :
http://www.sources.ru/vb/index.html
http://forum.sources.ru/index.php?showforum=134

**Ramzes** » 07.02.2005 (Пн) 11:50

Андрей Васюта писал(а):Если кому пригодится
Как программно перезагрузить 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
Много полезного найдеш сдесь :
http://www.sources.ru/vb/index.html
http://forum.sources.ru/index.php?showforum=134

Этот код работает только под 98 виндой

**Андрей Васюта** » 07.02.2005 (Пн) 22:09

Ай-ай-ай. Говорила мне мама, что советы нужно СЛУШАТЬ , а не давать. Вот и получил по загривку. Я та сделаю исправление, можна... :oops:

**Ramzes** » 08.02.2005 (Вт) 10:56

Андрей Васюта писал(а):Ай-ай-ай. Говорила мне мама, что советы нужно СЛУШАТЬ , а не давать. Вот и получил по загривку.

Никто тебя не упрекает, просто поправляют, что часто бывает на этом форуме, так что не следует огорчатся, а советы надо как слушать так и давать (если реально этим кому-то поможешь) :roll:

**Toxa** » 08.02.2005 (Вт) 14:28

Shell "C:\WINDOWS\system32\Shutdown.exe -s -f -t 00", vbNormalFocus
-s - выключить
-r - перегрузить
-l - выйти

**Хой** » 08.02.2005 (Вт) 16:08

Пуск -> Выключение -> Выключение

**Ruslan Demidow** » 08.02.2005 (Вт) 16:17

Toxa писал(а):Shell "C:\WINDOWS\system32\Shutdown.exe -s -f -t 00", vbNormalFocus
-s - выключить
-r - перегрузить
-l - выйти

А в 2000-ых пробовал?
Не пойдёт - питание с системника не отключит, а просто высветит сообщение "Теперь питание комьютера можно отключить." (проверялось на компах с ACPI, и штатными средствами, через "Пуск"-"Завершить работу" выключается нормально), а вот через shutdown 2000-ая нормально вырубаться не хочет.

**HotKitten** » 10.02.2005 (Чт) 23:21

я под win2k тоже мучаюсь, не могу найти исходник без "Теперь питание комьютера можно отключить.", точнее исходник был да сплыл

**romanow** » 22.03.2005 (Вт) 11:02

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( "Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown
Next

**RayShade** » 22.03.2005 (Вт) 11:23

Всем ответившим в топике (даже тем, кто копипастит MSDN

)- строгое предупреждение. Автору - большое строгое. Поиском пользоваться надо.

**Sirik** » 22.03.2005 (Вт) 11:27

если кому надо могу дать код вызова стандартного окна завершения работы

**KDima** » 22.03.2005 (Вт) 18:30

Sirik

У меня такое подозрение, что это не проще чем пойти в поиск или не писать вредоносных прог!

Конференция VBStreets

Как выключить комп?

Как выключить комп?

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