VB API函數(ExitWindowEx)

標籤：style   blog   color   io   ar   for   strong   sp   div   

　　利用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 ExplicitPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate 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

 

 

　　

VB API函數(ExitWindowEx)