如何在VB中终止Windows系统

在VisualBasic程序中，可以使用WindowsAPI函数来重新启动计算机系统。本文描述了如何退出Windows并关闭计算机系统。

关闭电脑系统

您可以使用WindowsAPI的exitwindowsex函数从VisualBasic程序重新启动计算机系统。要使用此函数，您需要在表单的常规声明部分包含以下声明语句:

privatdeclarefunctionexitwindowsexlib " user 32 "(ByValuFlagsAsLong，ByValdwReservedAsLong)AsLong

ExitWindowsEx函数需要2个参数，以下标志的一个或多个组合可用于告诉ExitWindowsEx函数它要关闭。

EWX_FORCE的所有进程都被强制终止。

EWX_LOGOFF所有进程被强制终止，用户注销。

EWX_POWEROFF计算机系统已关闭，如果支持节能功能，则计算机已物理关闭。

EWX_REBOOT计算机系统关闭并重新启动。

EWX_SHUTDOWN计算机以物理方式安全关闭。

下面的示例程序中使用了上述三个标识符的组合。徽标组合(EWX_LOGOFF、EWX_FORCE和EWX_REBOOT)告诉Windows退出所有正在执行的进程，以便用户可以注销网络，并使计算机系统为用户关机做好准备。

抽样程序

示例程序显示了如何关闭计算机系统。

1.在VisualBasic中启动一个新项目，并使用默认方法构建Form1。

2.将以下常量和声明语句添加到Form1的通常声明部分(注意，该声明语句需要写在一行中):

privatdeclarefunctionexitwindowsexlib " user 32 "

(ByValuFlagsAsLong，ByValdwReservedAsLong)AsLong

ConstEWX_LOGOFF=0

ConstEWX_SHUTDOWN=1

ConstEWX_REBOOT=2

ConstEWX_FORCE=4

ConstEWX_POWEROFF=8

ConstEWX _ RESET = EWX _ log off+EWX _ FORCE+EWX _ REBOOT

3.在Form1上添加一个命令按钮控件，使用默认方法构建Comand1。将其标题属性设置为“重新启动计算机”。

4.将以下代码添加到Command1的click事件中:

PrivateSubCommand1_Click()

丁克斯龙

X=ExitWindowsEx(EWX_RESET，dwReserved)

末端接头

按F5运行上面的示例程序，并单击命令按钮重新启动计算机系统。编辑和完成考试