国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

原代碼為C#編寫，由L3'Studio團(tuán)隊(duì)開(kāi)發(fā)；樂(lè)博網(wǎng)將其轉(zhuǎn)化為VB.Net代碼

功能描述：管理類(主要有關(guān)機(jī)重啟等功能,API函數(shù)實(shí)現(xiàn))

相關(guān)事件 ：注銷 關(guān)機(jī) 重啟

命名空間：Lob.Windows

子類：WindowsManager

轉(zhuǎn)化后代碼如下：
    
Imports System
Imports System.Runtime.InteropServices
Namespace Lob.Windows

    Public Class WindowsManager

        Friend Const SE_PRIVILEGE_ENABLED As Integer = 2

        Friend Const TOKEN_QUERY As Integer = 8

        Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = 32

        Friend Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"

        Friend Const EWX_LOGOFF As Integer = 0

        Friend Const EWX_SHUTDOWN As Integer = 1

        Friend Const EWX_REBOOT As Integer = 2

        Friend Const EWX_FORCE As Integer = 4

        Friend Const EWX_POWEROFF As Integer = 8

        Friend Const EWX_FORCEIFHUNG As Integer = 16

        Friend Declare Function GetCurrentProcess Lib "kernel32.dll" () As IntPtr

        Friend Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal h As IntPtr, ByVal acc As Integer, ByRef phtok As IntPtr) As Boolean

        Friend Declare Function LookupPrivilegeValue Lib "advapi32.dll" (ByVal host As String, ByVal name As String, ByRef pluid As Long) As Boolean

        Friend Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal htok As IntPtr, ByVal disall As Boolean, ByRef newst As TokPriv1Luid, ByVal len As Integer, ByVal prev As IntPtr, ByVal relen As IntPtr) As Boolean

        Friend Declare Function ExitWindowsEx Lib "user32.dll" (ByVal flg As Integer, ByVal rea As Integer) As Boolean

        Private Shared Sub DoExitWin(ByVal flg As Integer)
            Dim ok As Boolean
            Dim tp As TokPriv1Luid
            Dim hproc As IntPtr = GetCurrentProcess
            Dim htok As IntPtr = IntPtr.Zero
            ok = OpenProcessToken(hproc, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), htok)
            tp.Count = 1
            tp.Luid = 0
            tp.Attr = SE_PRIVILEGE_ENABLED
            ok = LookupPrivilegeValue(Nothing, SE_SHUTDOWN_NAME, tp.Luid)
            ok = AdjustTokenPrivileges(htok, False, tp, 0, IntPtr.Zero, IntPtr.Zero)
            ok = ExitWindowsEx(flg, 0)
        End Sub

        Public Shared Sub ShutDown()
            DoExitWin(EWX_SHUTDOWN)
        End Sub

        Public Shared Sub Reboot()
            DoExitWin(EWX_REBOOT)
        End Sub

        <StructLayout(LayoutKind.Sequential, Pack:=1)> _
        Structure TokPriv1Luid

            Public Count As Integer

            Public Luid As Long

            Public Attr As Integer
        End Structure
    End Class
End Namespace