Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Private Sub Command1_Click()
Dim sh As String
If Option1.Value = True Then
sh = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)
End If

If Option2.Value = True Then
sh = ExitWindowsEx(EWX_REBOOT, dwReserved)
End If

If Option1.Value = True Then
sh = ExitWindowsEx(EWX_LOGOFF, dwReserved)
End If


End Sub


Private Sub Form_Load()
Const shutdown = 1
Const reboot = 2
Const logoff = 0
End Sub

为什么在 运行后 不管选择哪一个 最后执行的都是注销,而不是关机 ??是API函数有问题 还是使用错误!!!!
请大家给我指点下迷津!!!!

ExitWindowsEx在2000以上..都要先得到系统的权限,,才能实现关机...
也可以调用一下系统的shutdown来关机.

能告诉我 具体的意思吗 ??
怎么调用 是指批处理命令吗??

shell"shutdown.exe -s -t 20" 20秒后关机
shell"shutdown.exe -s" 直接关机

谁知道怎么在一个VB程序里做连接的？