Win2000下如何编程关机？

Question

我有一个和你差不多的问题：P
http://www.csdn.net/Expert/TopicView1.asp?id=902186也来帮你UP一下

Answer 1

以下是一个小的例子：
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    msg = MsgBox("此程序将演示重启你的机器. 点击 OK  重启机器 or 点击Cancel 退出程序.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End
    'reboot the computer
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub看看现在是否已经实现了你想要的功能了呢？
see it?