VB.NET中实现"关机/休眠/重启/注销"的类

最新推荐文章于 2021-07-29 14:02:04 发布

爱上蓝色调

最新推荐文章于 2021-07-29 14:02:04 发布

阅读量583

点赞数

分类专栏： VB.NET其他编程语言商务网站小应用文章标签： vb.net integer function hibernate token structure

本文链接：https://blog.csdn.net/klxmin/article/details/6618388

版权

这是一个VB.NET类，用于实现计算机的关机、休眠、重启和注销功能。类中定义了RestartOptions枚举，通过调用系统API并调整进程令牌权限来执行相应的操作。同时，该类还包含了处理系统权限异常和检查动态链接库入口点的方法。

摘要由CSDN通过智能技术生成

Imports System
Imports System.Text
Imports System.Diagnostics
Imports System.Runtime.InteropServices

    Public Class WindowsController
        Public Enum RestartOptions
            LogOff = 0
            PowerOff = 8
            Reboot = 2
            ShutDown = 1
            Suspend = -1
            Hibernate = -2
        End Enum

        Public Structure LUID
            Dim LowPart As Integer
            Dim HighPart As Integer
        End Structure

        Public Structure LUID_AND_ATTRIBUTES

            Dim pLuid As LUID

            Dim Attributes As Integer
        End Structure

        Public Structure TOKEN_PRIVILEGES

            Dim PrivilegeCount As Integer

            Dim Privileges As LUID_AND_ATTRIBUTES
        End Structure

        Private Const TOKEN_ADJUST_PRIVILEGES = &H20
        Private Const TOKEN_QUERY = &H8
        Private Const SE_PRIVILEGE_ENABLED = &H2
        Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
        Private Const EWX_FORCE = 4
        Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As IntPtr
        Declare Function FreeLibrary Lib "kernel32" (