怎样实现“重启“对话框

[ayou]

怎样才能实现“必须重新启动才能使新的设置生效，想现在就启动计算机吗？”
这个对话框，或者用什么命令可以重新启动计算机？

[shines77]

我甚至可以给你一个小.exe，可以支持重新启动，不要按Shift＋确定，重起Windows（不通过及机器自检）。

[wxz]

上面的朋友都正确,来晚了

[chenxixian]

用以下代码试一试：

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

Sub 重启()
ExitWindowsEx EWX_FORCE, &HFF&
ExitWindowsEx EWX_REBOOT, &HFF&
end sub

Sub 关机()
ExitWindowsEx EWX_FORCE, &HFF&
ExitWindowsEx EWX_SHUTDOWN, &HFF&
End Sub

[OUYAN]

重启的方法多多。
你可以试一下。
ExitWindowsEx &H42, 0
记得要先声明。