Question

vb 如何完美关机？

在做一个定时关机的。
我用了很多方法，在开着360杀毒，360卫士。播放电影。突然关机，会跳出一个任务栏。提示立即结束，如果不按结束是不会关机，一直卡在那里。
有没有完美关机 函数或者方法。

Answer 1

首先，把你程序的权限提高，否则会不能用。
声明：

Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_FORCE = 4
Public Const EWX_SHUTDOWN = 1
用法：

Call ExitWindowsEx(EWX_Force Or EWX_SHUTDOWN, 0)

Answer 2

你所谓的完美关机，是指不理那些提示信息，强行关机是吧？这样做当然可以，用api函数（就像楼上的）。但是这样做很可能造成不良后果的，比如正在运行磁盘整理、正在下载数据、正在储存数据到U盘等，强行关机很可能会造成磁盘损害的，另外，好多软件是要在关闭过程中执行一些保存数据之类的操作的，如果强行关闭，会造成数据丢失等等问题。因此你认为的完美关机，就好像直接把电源插头拔掉一样，你自己考虑一下后果吧。
另外，那些提示立即结束的提示框，在程序真正退出后会自动消失的，比如正在杀毒，这时突然关机命令启动，跳出提示框，杀毒软件继续运行，杀毒完毕，杀毒软件退出，这时提示框会自动消失，然后自动关机。。。。

Answer 3

Shell "shutdown.exe /s /t 0" '调用shutdown程序关闭计算机 -s

简单吧 只要加入command按钮就行了。。

Answer 4

开始->运行 shutdown -s -t 3600 -f