求VB关机代码

'我是江户川·柯南,QQ:316250462
Open App.Path & "\CONAN.bat" For Output As #1
Print #1 ,"@Shutdown -s -f -t 1"
Close #1
Shell App.Path & "\CONAN.bat"

查一下api关机函数，放在command1单击事件里就行了

VB在XP系统下实现关机 其实很容易 因为XP他又一个文件 SHUTDOWN.EXE直接调用这个就可以实现了
Shell "shudown.exe -l"
Shell "shudown.exe -r"
Shell "shudown.exe -s"

vb在NT 98下实现关机程序：

下面是本人愿来写的关机程序可以适用于98/xp/2000,在程序中调用即可。现在操作系统多为2000或xp,所以需要特别注意的是应该先得到关机的特权:(要想弄懂下面的程序,先要具备vb调用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 Attr