win95 98 pe的关机代码（vb）

如题
哥哥姐姐们帮帮忙
win2000，xp，xp……关机代码我有

---

用ExitWindowsEx 实现win98 关机

---

我一个产品的关机模块ModCloseWindows，用来适应所有的Windows操作系统实现关机。给你
调用例子：CloseWindows (0)'关机
VB code:

'****************************************************************************
'
'KTV酒水系统--SQL Server版(客户端)
'
'****************************************************************************

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetVersion Lib "kernel32" () As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias _
"LookupPrivilegeValueA" (ByVal lpSystemName As String, _
ByVal lpName As String, lpLuid As LUID) As Long
Private 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, R