📄 ba12.htm
字号:
<HTML>
<HEAD>
<TITLE>在VisualBasic中终止Windows 95</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="235">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><b>在Visual
Basic中终止Windows 95</b></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="247">
<div align="left">
<p align="center"> </p>
<p><br>
<br>
<font size="-1" face="宋体">谭翁<br>
<br>
在Visual Basic程序中，可以使用Windows API函数来重新启动计算机<br>
系统，文本介绍如何退出Windows 95并关闭计算机系统。<br>
<br>
# 关闭计算机系统<br>
<br>
可以使用Windows API的ExitWindowsEx函数来从Visual Basic程序中<br>
重新启动计算机系统。要使用该函数，需要将如下声明语句包含在窗体的<br>
通常声明部分中：<br>
<br>
Private Declare Function ExitWindowsEx Lib "user32"
(ByVal <br>
uFlags As Long, ByVal dwReserved As Long) As Long <br>
<br>
ExitWindowsEx 函数需要2个参数，可以使用一个或多个下面的标识<br>
的组合来告诉ExitWindowsEx函数希望进行关机过程。<br>
<br>
EWX_FORCE所有的进程都被强制终止。<br>
<br>
EWX_LOGOFF所有的进程被强制终止，并且用户退出登录（logged off）。<br>
<br>
EWX_POWEROFF计算机系统被关机，并且如果支持节电特性，则计算机被物理关机。<br>
<br>
EWX_REBOOT计算机系统被关机并重新启动。<br>
<br>
EWX_SHUTDOWN计算机被物理地安全地关机。<br>
<br>
下面的样例程序中使用了上面的三个标识的组合。该标识组合<br>
（EWX_LOGOFF，EWX_FORCE, 以及EWX_REBOOT）告诉Windows95退出所有正<br>
在执行的进程，使用户退出网络登录，使计算机系统处于准备状态以供用<br>
户关机。<br>
<br>
# 样例程序<br>
<br>
该样例程序显示了如何关闭计算机系统。<br>
<br>
1.在Visual Basic中开始一个新的项目，采用缺省的方法建立Form1。<br>
<br>
2.将如下常量和声明语句添加到Form1的通常声明部分中（注意该声<br>
明语句需要书写在一行内）：<br>
<br>
Private Declare Function ExitWindowsEx Lib "user32"
(ByVal <br>
uFlags As Long, ByVal dwReserved As Long) As Long<br>
<br>
Const EWX_LOGOFF = 0<br>
<br>
Const EWX_SHUTDOWN = 1<br>
<br>
Const EWX_REBOOT = 2<br>
<br>
Const EWX_FORCE = 4<br>
<br>
Const EWX_POWEROFF = 8<br>
<br>
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT<br>
<br>
3.在Form1上添加一个命令按钮控件，采用缺省的方法建立Comand1。<br>
将它的Caption属性设置为“重新启动计算机”。<br>
<br>
4.将如下代码添加到Command1的单击事件中： <br>
<br>
Private Sub Command1_Click()<br>
<br>
Dim X As Long<br>
<br>
X = ExitWindowsEx(EWX_RESET, dwReserved)<br>
<br>
End Sub<br>
<br>
按下F5来运行上述样例程序，单击命令按钮，即可重新启动计算机系统。</font>
<p align="center"> </p>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba11.htm">（上一页）</a>---<a href="ba13.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -