module1.vb

Visual.Basic.NET实用编程百例-47.6M.zip

Module Module1
    Public Const EWX_LogOff As Integer = 0
    Public Const EWX_SHUTDOWN As Integer = 1
    Public Const EWX_REBOOT As Integer = 2
    Public Const EWX_FORCE As Integer = 4
    Public Const EWX_POWEROFF As Integer = 8


    Public Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Integer, ByVal dwReserved As Integer) As Integer

    Public Declare Function GetLastError Lib "kernel32" () As Integer

    Public Structure LUID
        Dim UsedPart As Integer
        Dim IgnoredForNowHigh32BitPart As Integer
    End Structure

    Public Structure LUID_AND_ATTRIBUTES
        Dim TheLuid As LUID
        Dim Attributes As Integer
    End Structure

    Public Structure TOKEN_PRIVILEGES
        Dim PrivilegeCount As Integer
        Dim TheLuid As LUID
        Dim Attributes As Integer
    End Structure

    Public Declare Function GetCurrentProcess Lib "kernel32" () As Integer

    Public Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Integer, ByVal DesiredAccess As Integer, ByRef TokenHandle As Integer) As Integer

    Public Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer

    Public Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Integer, ByVal DisableAllPrivileges As Integer, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer

    Public Declare Sub SetLastError Lib "kernel32" (ByVal dwErrCode As Integer)

    Public Const mlngWindows95 As Short = 0

    Public Const mlngWindowsNT As Short = 1

    Public glngWhichWindows32 As Integer

    Public Declare Function GetVersion Lib "kernel32" () As Integer
End Module