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

КАК?

0

http://www.yandex.ru/yandsearch?text=%EA%E0%EA+%E2%FB%EA%EB%F E%F7%E8%F2%FC+%EA%EE%EC%EF%FC%FE%F2%E5%F 0+visual+basic&tb=1 http://www.yandex.ru/yandsearch?text=%EA%E0%EA+%E2%FB%EA%EB%F E%F7%E8%F2%FC+%EA%EE%EC%EF%FC%FE%F2%E5%F 0+visual+basic&tb=1
.

0

Alexsey, Вы даже не представляете, как Вы надоели со своим поиском (я думаю не только мне). Если не хотите отвечать - не отвечайте, не более того. Вашим способом автор будет искать решения 2-3 часа, потому как половина ссылок выдается не по теме, почти все остальные или битые, или не содержат нормального ответа. В лучшем случае 1 из 20 окажется нужной.

Благодаря таким ответам, как Ваш, форум с каждым днем всё больше "хиреет" (хотя это, конечно, только моё мнение).

Спасибо за внимание.



Автору:

Это я вырезал только что из PDWizard`a (Package and Developing Wizard), так что проверьте, может чего не хватает (если у Вас профессиональная версия VB, то проект полный найдете в папке ...Microsoft Visual StudioVB98WizardsPDWizardSetup1).



На форме ComboBox и кнопка с именами cboSys и cmdGo соответственно.

И код:

Option Explicit



'===== Functions

Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetCurrentProcess Lib "Kernel32" () As Long

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, _

TokenHandle As Long) As Long

Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As _

String, ByVal lpName As String, lpLuid As LARGE_INTEGER) As Long

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges _

As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As _

TOKEN_PRIVILEGES, ReturnLength As Long) As Long

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



'===== Constants

Const ANYSIZE_ARRAY = 1

Const TOKEN_ADJUST_PRIVILEGES = 32

Const TOKEN_QUERY = 8

Const SE_PRIVILEGE_ENABLED As Long = 2



Const EWX_FORCE = 4

Const EWX_LOGOFF = 0

Const EWX_REBOOT = 2

Const EWX_SHUTDOWN = 1



'===== Types

Private Type LARGE_INTEGER

lowpart As Long

highpart As Long

End Type

Private Type LUID_AND_ATTRIBUTES

pLuid As LARGE_INTEGER

Attributes As Long

End Type

Private Type TOKEN_PRIVILEGES

PrivilegeCount As Long

Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES

End Type

Private Type OSVERSIONINFO 'for GetVersionEx API call

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128

End Type



Private Function IsWindows95() As Boolean

Const dwMask95 = &H1&

IsWindows95 = (GetWinPlatform() And dwMask95)

End Function



Private Function IsWindowsNT() As Boolean

Const dwMaskNT = &H2&

IsWindowsNT = (GetWinPlatform() And dwMaskNT)

End Function



Private Function GetWinPlatform() As Long

Dim osvi As OSVERSIONINFO



osvi.dwOSVersionInfoSize = Len(osvi)

If GetVersionEx(osvi) = 0 Then

Exit Function

End If

GetWinPlatform = osvi.dwPlatformId

End Function



Private Function RebootSystem(Comm As Long) As Boolean

Dim ret As Long

Dim hToken As Long

Dim tkp As TOKEN_PRIVILEGES

Dim tkpOld As TOKEN_PRIVILEGES

Dim fOkReboot As Boolean

Const sSHUTDOWN As String = "SeShutdownPrivilege"



'Check to see if we are running on Windows NT

If IsWindowsNT() Then

'We are running windows NT. We need to d

0

Можно немного по-короче...