黑河闯关东影视基地:VB中怎么实现关机或重启机器?

来源:百度文库 编辑:高校问答 时间:2024/05/10 04:20:05
点一个按钮来实现关机(重启),怎么写语句?

在公共标准模块中声明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

你需要将调用windows API。