在vb中终止win9x
在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
