在VisualBasic程序中
,可以使用WindowsAPI函数来重新启动计算机系统
,文本介绍如何退出Windows并关闭计算机系统
。关闭计算机系统
可以使用WindowsAPI的ExitWindowsEx函数来从VisualBasic程序中重新启动计算机系统
。要使用该函数,需要将如下声明语句包含在窗体的通常声明部分中:
PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
ExitWindowsEx函数需要2个参数,可以使用一个或多个下面的标识的组合来告诉ExitWindowsEx函数希望进行关机过程。
EWX_FORCE所有的进程都被强制终止。
EWX_LOGOFF所有的进程被强制终止,并且用户退出登录(loggedoff)。
EWX_POWEROFF计算机系统被关机,并且如果支持节电特性,则计算机被物理关机。
EWX_REBOOT计算机系统被关机并重新启动。
EWX_SHUTDOWN计算机被物理地
安全地关机。
下面的样例程序中使用了上面的三个标识的组合。该标识组合(EWX_LOGOFF,EWX_FORCE,以及EWX_REBOOT)告诉Windows退出所有正在执行的进程,使用户退出网络登录,使计算机系统处于准备状态以供用户关机。
样例程序
该样例程序显示了如何关闭计算机系统。
1.在VisualBasic中开始一个新的项目,采用缺省的方法建立Form1。
2.将如下常量和声明语句添加到Form1的通常声明部分中(注意该声明语句需要书写在一行内):
PrivateDeclareFunctionExitWindowsExLib"user32"
(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand1。将它的Caption属性设置为“重新启动计算机”。
4.将如下代码添加到Command1的单击事件中:
PrivateSubCommand1_Click()
DimXAsLong
X=ExitWindowsEx(EWX_RESET,dwReserved)
EndSub
按下F5来运行上述样例程序,单击命令按钮,即可重新启动计算机系统。
希望这篇
如何在Visual Basic中终止Windows系统的文章能够对您有所帮助,如果您觉得这篇网站维护教程有用的话,别忘了推荐给您的朋友哦!如果您有好的经验方法,不妨拿出来和大家一起分享:假如每个人都拿出一个经验,那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名:(黑客防线网安服务器维护方案维护基地)Www.Rongsen.Com.Cn