Question

VB快速关机

VB如何实现 快速关机（一点就关机的）和重新启动？
给代码谢谢！

Answer 1

在公共标准模块中声明WIN API：
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

在按钮事件中用如下代码可关机：
Private Sub Command1_Click()
ExitWindowsEx 1, 0
End Sub

在按钮事件中用如下代码可重启：
Private Sub Command1_Click()
ExitWindowsEx 2, 0
End Sub
楼上说WIN200和WIN XP需认证,我在调试时都未遇到,但有人在WIN2000不能实现关机.以上代码供参考.看了楼下VANLAW 答复,确认WIN XP SP2未通过,WINXP家庭版我试过没问题,谢谢VANLAW .

Answer 2

好像是,我一会关机时试试shell("shutdown /r")