倒计时关机之高难度编程

来源：百度知道 编辑：UC知道 时间：2024/07/03 11:57:48
我想用VB编一程序,当系统到指定的时间时就自动关机.我还不是很会用VB,才开始学,请懂的高手指点指点啊!在这里先谢了哈.

建立一个窗体 一个Command1 一个Command2 一个 计时器 一个文本框（用于设定时间）

Command1单击时开始

Command2单击时退出

复制下面代码进去就OK了

Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Private Type LUID