知识大全用VB.NET 2005编写定时关机程序[2]

Posted 2022-07-14 计算机

篇首语：只要自己上进，不怕人家看轻。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB.NET 2005编写定时关机程序[2]相关的知识，希望对你有一定的参考价值。

用VB.NET 2005编写定时关机程序[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　双击窗体进入常规声明Public Class Form 事件中　　CODE: Imports System Runtime InteropServicesImports Microsoft VisualBasicPublic Class Form <DllImport( kernel dll ExactSpelling:=True)> _ 调用系统参数Friend Shared Function GetCurrentProcess() As IntPtrEnd Function<DllImport( advapi dll ExactSpelling:=True SetLastError:=True)> _Friend Shared Function OpenProcessToken(ByVal h As IntPtr ByVal acc As Integer ByRef phtok As IntPtr) As BooleanEnd Function<DllImport( advapi dll SetLastError:=True)> _Friend Shared Function LookupPrivilegeValue(ByVal host As String ByVal name As String ByRef pluid As Long) As BooleanEnd Function<DllImport( advapi dll ExactSpelling:=True SetLastError:=True)> _Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr ByVal disall As Boolean ByRef newst As TokPriv Luid ByVal len As Integer ByVal prev As IntPtr ByVal relen As IntPtr) As BooleanEnd Function<DllImport( user dll ExactSpelling:=True SetLastError:=True)> _Friend Shared Function ExitWindowsEx(ByVal flg As Integer ByVal rea As Integer) As BooleanEnd FunctionFriend Const SE_PRIVILEGE_ENABLED As Integer = &H Friend Const TOKEN_QUERY As Integer = &H Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = &H Friend Const SE_SHUTDOWN_NAME As String = SeShutdownPrivilege Friend Const EWX_LOGOFF As Integer = &H 注销计算机Friend Const EWX_SHUTDOWN As Integer = &H 关闭计算机Friend Const EWX_REBOOT As Integer = &H 重新启动计算机Friend Const EWX_FORCE As Integer = &H 关闭所有进程注销计算机Friend Const EWX_POWEROFF As Integer = &H Friend Const EWX_FORCEIFHUNG As Integer = &H <StructLayout(LayoutKind Sequential Pack:= )> _　引用参数　Friend Structure TokPriv Luid　Public Count As Integer　Public Luid As Long　Public Attr As IntegerEnd StructurePrivate Shared Sub DoExitWin(ByVal flg As Integer)　Dim xc As Boolean 判断语句　Dim tp As TokPriv Luid　Dim hproc As IntPtr = GetCurrentProcess()　调用进程值　Dim htok As IntPtr = IntPtr Zero　xc = OpenProcessToken(hproc TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY htok)　tp Count = 　tp Luid = 　tp Attr = SE_PRIVILEGE_ENABLED　xc = LookupPrivilegeValue(Nothing SE_SHUTDOWN_NAME tp Luid)　xc = AdjustTokenPrivileges(htok False tp IntPtr Zero IntPtr Zero)　xc = ExitWindowsEx(flg )End SubPublic Shared Sub Reboot()　DoExitWin((EWX_FORCE Or EWX_REBOOT)) 重新启动计算机End SubPublic Shared Sub PowerOff()　DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 关闭计算机End SubPublic Shared Sub LogoOff()　DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 注销计算机End SubDim entTime As Object 保存输入时间Dim xianzaiTime As Object 保存实时时间Dim startTime As Object 保存开始定时时间 cha138/Article/program/net/201311/15695

知识大全 用VB.NET 2005编写定时关机程序[2]

知识大全用VB.NET 2005编写定时关机程序[2]