vb中如何设置关机？

mikewolf2k

因需要设置自动关机，2000server，网上传播的关机方法主要有两个，一是rundll32 user.exe, exitwindows，没反应；一是将xp下的shutdown拷到2000下，经测试能关闭windows，出现可以安全关闭计算机的提示，却不能断电（直接关可以断电，什么高级电源设置都试过了），也不符合要求。网上有些关机软件，一来不想为这点要求再安装一个软件，还有注册什么的，太麻烦了。因此想自己写一个关机程序。

请问vb有关机代码吗？

MJTD_7777

关注

zhu1

前两天看到这个帖子就想回，可是试了几次都不能回帖，今天终于可以了

ＶＢ里可以通过编程关机，是不是关掉电源不清楚，代码如下（用到ＡＰＩ）：

Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭计算机
lresult = ExitWindowsEx(EWX_REBOOT, 0&) '重新启动计算机