Консультация № 165787
25.04.2009, 03:14
0.00 руб.
0 3 3
Уважаемый администраторы. Как можно выключить программно комьютера в Visual Basic 6 (для Windows XP)?

Обсуждение

Неизвестный
25.04.2009, 05:10
общий
это ответ
Здравствуйте, Norov Abdusaid Murodovich!
Можно вызвать соответствующие консольные команды
Для Win9*:
shell "RUNDLL32.EXE user,exitwindows"
Для современных -
shell "shutdown /s"

Также можно использовать соответствующие функции WinAPI (Rundll32 это и делает сама). Но проще для такой задачи запустить внешнюю программу.
help shutdown выведет все ключи этой программы.
Неизвестный
25.04.2009, 07:52
общий
это ответ
Здравствуйте, Norov Abdusaid Murodovich!

Set WMIServiceObject = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each ComputerObject In WMIServiceObject.InstancesOf("Win32_OperatingSystem")
ComputerObject.Win32Shutdown(5)
Next
Неизвестный
25.04.2009, 16:12
общий
это ответ
Здравствуйте, Norov Abdusaid Murodovich!
http://vbaccelerator.com/home/VB/Tips/How_to_Shutdown_the_System_in_Windows_9x_and_NT/article.asp

Очень полезный код!
Форма ответа