152.计算机注销/关机/重启

'###############################################################

'函数作用：计算机注销/关机/重启

'###############################################################

Public Enum sys

    sQuit = 0

    sClose = 1

    sRestore = 2

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

Public Function SystemControl(Optional Command As Sys)

    Select Case Command

        Case sQuit

            ExitWindowsEx 4 Or 0, 0 '注销

        Case sClose

            ExitWindowsEx 4 Or 1, 0 '关机

        Case sRestore

            ExitWindowsEx 4 Or 2, 0 '重启

    End Select

End Function