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

[Smith68]

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

[BV]

Думаю, так же, как и из C++ - ExitWindowsEx.

[Smith68]

Спасибо, попробуем

[Smith68]

Нда, нечего не получается! Пишет Sub или Function не определены. А других методов не знаешь?

[fenix_slayer]

Код: Выделить всё


'в модуле   
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
     ByVal dwReserved As Long) As Long
   Public Const EWX_LOGOFF = 0
   Public Const EWX_SHUTDOWN = 1
   Public Const EWX_REBOOT = 2
   Public Const EWX_FORCE = 4
'в коде
Dim s As Long

   'Так можно сделать Shut down
    s = ExitWindowsEx(EWX_SHUTDOWN, 0&)

   'Так можно сделать Log off   s = ExitWindowsEx(EWX_LOGOFF, 0&)

   'А так Reboot    s = ExitWindowsEx(EWX_REBOOT, 0&)


для ХР

Код: Выделить всё

Dim strComputer As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")

For Each ObjOperatingSystem In colOperatingSystems

ObjOperatingSystem.ShutDown 'Для выключения
Next


Код: Выделить всё

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
   ObjOperatingSystem.Reboot ' Для перезагрузки
Next


[HotKitten]

Smith68
а мне кажется, что король Робар (с твоей аватары) сначала набрал бы в поиске что-то типа слова Shutdown или какое нибудь более простое типа выключение иначе бы он стал королем годам к 300
http://bbs.vbstreets.ru/viewtopic.php?t ... t=shutdown