在VB中终止Win9X
来源:互联网 发布:下载股市行情软件 编辑:程序博客网 时间:2024/04/28 11:48
在Visual Basic程序中,可以使用Windows API函数来重新启动计算机系统,文本介绍如何退出Windows 9X并关闭计算机系统。
一、关闭计算机系统
可以使用Windows API的ExitWindowsEx函数来从Visual Basic程序中重新启动计算机系统。要使用该函数,需要将如下声明语句包含在窗体的通常声明部分中:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal
uFlags As Long, ByVal dwReserved As Long) As Long
ExitWindowsEx 函数需要2个参数,可以使用一个或多个下面的标识的组合来告诉ExitWindowsEx函数希望进行关机过程。
EWX_FORCE所有的进程都被强制终止。
EWX_LOGOFF所有的进程被强制终止,并且用户退出登录(logged off)。
EWX_POWEROFF计算机系统被关机,并且如果支持节电特性,则计算机被物理关机。
EWX_REBOOT计算机系统被关机并重新启动。
EWX_SHUTDOWN计算机被物理地安全地关机。
下面的样例程序中使用了上面的三个标识的组合。该标识组合(EWX_LOGOFF,EWX_FORCE, 以及EWX_REBOOT)告诉Windows95退出所有正在执行的进程,使用户退出网络登录,使计算机系统处于准备状态以供用户关机。
二. 样例程序
该样例程序显示了如何关闭计算机系统。
1、在Visual Basic中开始一个新的项目,采用缺省的方法建立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上添加一个命令按钮控件,采用缺省的方法建立Comand1。将它的Caption属性设置为“重新启动计算机”。
4、将如下代码添加到Command1的单击事件中:
Private Sub Command1_Click()
Dim X As Long
X = ExitWindowsEx(EWX_RESET, dwReserved)
End Sub
按下F5来运行上述样例程序,单击命令按钮,即可重新启动计算机系统。
以上代码来自: 源代码数据库(SourceDataBase)
当前版本: 1.0.445
作者: Shawls
个人主页: Http://Shawls.Yeah.Net
E-Mail: ShawFile@163.Net
QQ: 9181729
- 在VB中终止Win9X
- 如何在VB中终止Windows系统
- PHP+Apache在Win9X配置安装
- Win9X系统中如何锁定光驱
- Windows mobile VB.net 中 程序终止的代码
- VB 定时终止进程
- 在delphi中如何判断线程终止
- 在linux中如何终止sendmail配置
- 在Win9x/NT下获取硬盘物理序列号
- 在VB中实现多线程!
- 在VB中使用注册表
- 在VB中创建多线程
- 在VB中操作XML
- 在VB中打开EMAIL
- 在VB中注册控件
- 在VB中更改结构
- 在ubuntu中,终止一个进程或终止一个正在运行的程序
- 终止符EOF在windows平台中如何输入
- 支持UniJa和JTWT业务的双模手机LG W800
- 一组VB实用小程序函数
- 浅谈即时战略游戏在 J2ME 上的实现
- 用VB6读写数据库中的图片
- 一个MIDP俄罗斯方块游戏的设计和实现
- 在VB中终止Win9X
- J2EE数据库设计入门
- Visual Basic 6 Naming Standards
- 用hibernate对递归数据的操作
- Microsoft Agent Tutorial Chapter 2
- 一个简单的 JDBC 包装器
- DX: Full Screen GUI Development 1
- 实战JBuilder7+WebLogic7存取SQL Server2000
- Adding Hyperlink Capability to RichText Boxes