在 VB 中终止 Windows95 的运行

在Visual Basic环境中，通过利用Windows API的ExitWindowsEx函数，能够在程序内部实现对计算机系统的强制重启操作。要实现这一功能，首先需在窗体的声明部分添加以下声明语句：

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

ExitWindowsEx函数接收两个参数，用于指示希望执行的关机过程类型。这些标识可以组合使用，包括：

• EWX_FORCE：强制终止所有进程


• EWX_LOGOFF：终止所有进程并让用户注销


• EWX_POWEROFF：关机并物理关闭计算机（如支持节电特性）


• EWX_REBOOT：关机并重启


• EWX_SHUTDOWN：安全关机

为了演示上述功能，可创建一个简单的VB程序示例：

1. 新建VB项目，生成Form1。


2. 在Form1的声明部分添加以下常量和声明语句，注意声明语句应在一行内编写：




• Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


• Const EWX_LOGOFF = 0


• Const EWX_SHUTDOWN = 1


• Const EWX_REBOOT = 2


• Const EWX_FORCE = 4


• Const EWX_POWEROFF = 8


• Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT




3. 在Form1上添加一个命令按钮控件，创建Command1，设置其Caption属性为“重新启动计算机”。


4. 将以下代码添加到Command1的单击事件中：




• Private Sub Command1_Click()


• Dim X As Long


• X = ExitWindowsEx(EWX_RESET, dwReserved)


• End Sub

执行此程序，单击按钮即可实现计算机系统的重启操作。