如何用VB编关机程序啊？？？

回答者：soki612 - 秀才 二级
下面是我愿来写的关机程序可以适用于98/xp/2000,你可以拷来用.关机和重起函数我写好了，你自己调用即可。现在操作系统多为2000或xp,所以需要特别注意的是应该先得到关机的特权:(你要想弄懂下面的程序,要有调用api函数的知识......)

其中:前面一些Public Declare都是api函数的声明.
Public Sub AdjustToken()子程序用来取得关机特权.
Public Sub Shutdown() '是关机子程序
Public Sub Reboot() '是重启子程序

*********************代码开始了:*****************
Public Structure LUID
Dim UsedPart As Integer
Dim IgnoredForNowHigh32BitPart As Integer
End Structure

Public Structure LUID_AND_ATTRIBUTES
Dim TheLuid As LUID
Dim Attributes As Integer
End Structure

Public Structure TOKEN_PRIVILEGES
Dim PrivilegeCount As Integer
Dim TheLuid As LUID
Dim Attributes As Integer
End Structure

'强制关机函数
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer

'GetLastError函数返回本线程的最后一次错误代码。错误代码是按照线