VB里如何写一个关闭计算机的程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:27:08
用API函数ExitWindowsEx 我只会注销
弄了半天也没实验出如何关机或者重起
有谁写个具体的
比如 增加一个command控件
一点command 就关机
谁能告诉我参数是什么 具体格式
谢谢

shell ("shutdown -s -f 60")
调用windows的关机命令shutdown，60代表60秒，可以自己改

Option Explicit

Option Base 1
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (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
Public Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As L