VB API函数(ExitWindowEx)

　　利用ExitWindowEx实现最简单的关机功能

　　Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

　　参数：

　　uFlags:   　　Long  //指定关闭的类型，类型有：

EWX_FORCE　　//强制终止进程

EWX_LOGOFF    //关闭所有进程，然后注销用户

EWX_POWEROFF  //关闭系统并关闭电源

EWX_REBOOT    //关闭系统，然后重新启动系统

EWX_SHUTDOWN　//关闭系统，安全地关闭电源

dwReserved:   Long  // 系统保留，一般为0

代码实现如下

 

Option Explicit
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_FORCE = 4    '强制终止进程
Private Const EWX_LOGOFF = 0   '关闭所有进程，然后注销用户
Private Const EWX_REBOOT = 2   '关闭系统，然后重新启动系统
Private Const EWX_SHUTDOWN = 1 '关闭系统，安全地关闭电源。

Private Sub Command1_Click()
 Dim i As Long
 i = ExitWindowsEx(EWX_REBOOT, 0)
 
End Sub