先說一下要調(diào)用的API:
'目的:退出系統(tǒng),所有句柄以O(shè)r連接
'輸入:uFlags:EWX_FORCE:可以強(qiáng)迫終止沒有響應(yīng)的進(jìn)程
'            EWX_LOGOFF:可以終止進(jìn)程,然后注銷
'            EWX_SHUTDOWN:關(guān)掉系統(tǒng)電源
'            EWX_REBOOT:重新引導(dǎo)系統(tǒng)
'     dwReserved:保留,設(shè)置為0
'返回:非0即成功,0為失敗!
Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'--------------------
'以下屬性皆As Long
Public Const EWX_FORCE = 4
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDOWN = 1
Public Const EWX_POWEROFF = 8

好,我們再來看系統(tǒng):
2000以下的版本直接調(diào)用一個(gè)底層API:ExitWindowsEx()
2000以上的,由于內(nèi)核變成WinTN的了,你還要給程序一個(gè)權(quán)限才行.
那么我怎樣賦予程序權(quán)限呢?
Public Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
'----------------
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
'----------------
'調(diào)用API函數(shù) GetCurrentProcess 獲取當(dāng)前進(jìn)程的句柄
hdlTokenHandle = GetCurrentProcess()
'----------------
'調(diào)用函數(shù) OpenProcessToken 打開當(dāng)前進(jìn)程的訪問代號，并存儲(chǔ)在 hdlTokenHandle 中
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle
'----------------
'獲取底層權(quán)限：
LoopupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkp.PrivilegeCount = 1
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED
'----------------
'為程序獲取關(guān)機(jī)權(quán)限
AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded
End Sub
哈哈!這樣,我們的程序就能在2000以上的環(huán)境中調(diào)用底層權(quán)限了!

為了程序更好用,我們可以這么寫:
'如果操作系統(tǒng)不是Win 9X系列
If glngWhichWindows32 = mlngWindowsNT Then
'調(diào)用上面自定義過的函數(shù)AdjustToken
AdjustToken
End If
'調(diào)用API函數(shù)ExitWindowsEx關(guān)閉機(jī)子
Call ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), 0)

這樣子就能關(guān)機(jī)了.
嘿嘿,相信很多高手看了都會(huì)說

 

早做了一個(gè)定時(shí)關(guān)機(jī)軟件了，用的就是shell(shutdown /f /s /t 0)，不用什么API和批處理，直接在VB里就可以全部完成操作了。

何不用Shell調(diào)用shutdown.exe shell(c:windowssystem32shutdown.exe -s -t 00)

 

 

文