如何在应用程序中实现关机功能_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

如何在应用程序中实现关机功能

作者：闵涛文章来源：闵涛的学习笔记点击数：899 更新时间：2009/4/23 18:58:04

VB 6.0开发应用程序时，用户要求在程序内部加入直接关机功能，使操作全部集中于应用程序的内部进行。为此，笔者编制程序，进行Windows API函数调用，成功地实现了Windows 9x“关闭系统”仿真功能，满足了用户要求，现将设计过程列举如下:

　　一、设计关机系统界面

　　新建工程文件及窗体Form1，Form1中加入选项控件Option1、 Option2 、 Option3，将它们Caption 属性依次设为“关闭计算机(S)”、“重新启动计算机(R)”、“关闭所有程序并以其他用户身份登录”；再加入命令按钮Command1和Command2、Command3且Caption属性分别设为“是”、“否”、“帮助”。即设计一个Windows 98“关闭系统”的仿真界面。

　　二、通用事件代码中对API 函数ExitWindowsEx( )进行声明

　　VB 6.0应用程序设计时,调用丰富Windows API 函数能完成VB本身没有提供或无法实现的功能，这些函数都属于“操作系统”级别，能使应用程序增添不少色彩。其中ExitWindowsEx( )函数具备关闭Windows系统的功能，调用前必须进行声明：

　　Declare Function ExitWindowsEx Lib ″user32″( ByVal uFlags As Long,ByVal dwReserved As Long) As Long

　　参数说明：此函数有两个参数vFlags、dwReserved，其中vFlags参数决定用户需要做的关机操作，dwReserved参数是作为保留而没有使用。

　　　　vFlags 参数可以取以下几种常量(或相应值):

　　　　EWX_ShutDown　　 1 关闭计算机

　　　　EWX_ReBoot　　　　 2 重新启动计算机

　　　　EWX_LogOff　　　　 0 关闭所有程序并以其他用户身份登录

　　三、关机功能所有程序代码清单如下:

　　′通用代码中对ExitWinwodsEx( )函数声明

　　Private Declare Function ExitWindowsEx Lib ″user32″ (ByVal uFlags As Long,ByVal dwReserved As Long) As Long

　　Const ShutDown = 1

　　Const ReBoot　　= 2

　　Const LogOff　　= 0

　　　　Private Sub Command1_Click()

　　Dim Sh As Long

　　If Option1.Value = True Then　　

　　 ′关闭计算机选项

　　Sh = ExitWindowsEx(ShutDown, dwReserved)

　　　　End If

　　　　If Option2.Value = True Then

　　　　′重新启动计算机选项

　　　　Sh = ExitWindowsEx(ReBoot, dwReserved)

　　　　End If

　　　　If Option3.Value = True Then

　　　　′关闭所有程序并以其他用户

　　　　身份登录选项

　　　　Sh = ExitWindowsEx(LogOff, dwReserved)

　　　　End If

　　　　End Sub

　　　　Private Sub Command2_Click()

　　　　Unload Me

　　　　End Sub

　　　　F5运行程序，即进行关机操作!该功能加入用户开发的应用程序，相当实用。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：一个用VB编写的监控别人上网的软件例子

下一篇教程： WINDOWS未开函数揭密(1)

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……