Question

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

Answer 2

你需要将调用windows API。