在VB中终止Win9X

在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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
读写INI文件的四个函数 如何取得计算机名 计算Windows从启动后所运行的总时间 使窗体右上角的X按钮失效删除系统菜单 动态改变及恢复屏幕设置下 制作垂直标题栏的窗体下 用API函数控制光驱的开关 如何映射/断网络磁盘 制作垂直标题栏的窗体上 实现隐藏和显示桌面图标 VB托盘程序详解下 妙用GetSystemMetrics函数 利用API和注册表获取系统信息上 VB快速调用系统对话框下 利用API和注册表获取系统信息 利用API和注册表获取系统信息下 百叶窗图形特效 实现平面工具栏下 数据库查询结果的动态排序三 动态改变及恢复屏幕设置上 关于VisualBasic类开发一 界面设计原则和编程技巧下 Enc-Base64位加密程序源代码上 Enc-Base64位加密程序源代码下 编写ActiveXDLL实现ASP编程下 VB快速调用系统对话框上 VB快速调用系统对话框 用内存共享实现EXE通信 ListBoxComboBox寻找字串 使用DDE技术为应用程序增辉上 使用DDE技术为应用程序增辉下 VB动态图形按钮的实现 拦截ComboBox的mouse右键 VB调用API函数建立控制台窗口上 VB调用API函数建立控制台窗口上 获取网上邻居里的计算机名上 获取网上邻居里的计算机名 获取网上邻居里的计算机名下 VB下得CRC校验程序 打印预览上 打印预览下 Hook简介上 Hook简介下 MTS开发多层数据库应用系统下 MTS开发多层数据库应用系统上 关于VisualBasic类开发二 界面设计原则和编程技巧上 编写ActiveXDLL实现ASP编程上 shell以同步方式打开一个exe文件上 shell以同步方式打开一个exe文件下 取得拨号网络的所有连接名上 农历的算法上 农历的算法 农历的算法下 取得拨号网络的所有连接名下 VB下得CRC校验程序下 自己设定消息框的显示位置 VB下得CRC校验程序上 模拟Windows的资源回收站 四角形以外其他形状的Form 数据库编程调用带参数存储过程的实现上 如何加长加宽ComboBox的下拉选单 获得某一台网络打印机有几份等待打印的报表 ZOrder的使用 算出TextBox目前光标位置 动态新增、移除ODBC DSN 取消TextBox鼠标右键的弹出菜单功能 让ComboBox自动下拉 找出Win/Sys/Temp目录的路径 如何改变屏幕的分辨率上 如何改变屏幕的分辨率下 设置树型列表控件的背景颜色标题行高度 实现网络连通检测 为树型列表控件不同标题行设置不同提示 启动拨号网络的连接 设计E-mail的接发送收部分 访问因特网并调用Explorer 禁止TextBox输入 VB应用程序巧用DLL上 VB应用程序巧用DLL下 判断某一个连接是否保存Cache下 判断某一个连接是否保存Cache上 用VB制作IE工具条自定义按钮上 使用VB设计具有动感的命令图标栏 用VB制作IE工具条自定义按钮下 直接通过ODBCAPI访问SQL数据库一 直接通过ODBCAPI访问SQL数据库二 直接通过ODBCAPI访问SQL数据库三 直接通过ODBCAPI访问SQL数据库四 功能强大的SendMessage函数上 功能强大的SendMessage函数下 VB实现SQL功能下 VBAPI编程精粹一 VBAPI编程精粹二 VBAPI编程精粹三 VBAPI编程精粹四 VBAPI编程精粹五 提高调用API函数编程技巧下 Shell语句用法心得 提高调用API函数编程技巧上 VB托盘程序源代码上 VB托盘程序源代码 VB托盘程序源代码下 用API函数遍历文件二 枚举出局域网上所有网络资源 用API函数遍历文件一 得到光驱的盘符 关于算法的一些想法 使用XML上传文件上 使用XML上传文件下 VB实现SQL功能上 闪烁的标题栏 从任务列表隐藏 使Shell指令具Wait功能上 使Shell指令具Wait功能下 回调(CallBacks)的实现 VB终止Win9X SENDMESSAGE函数巧应用上 向控件发送系统热键 SENDMESSAGE函数巧应用下 VB托盘程序详解上 VB托盘程序详解API制作图形窗体 实现平面工具栏上 API实现完美的图片出现效果一 API实现完美的图片出现效果二 API实现完美的图片出现效果三 用API函数遍历文件三 利用API创建文件目录 用API函数实现文件夹列表 VB取得Windows的当前目录 用VB建立文件关联一 用VB建立文件关联二 采用API实现的文件拖放上 用VB建立文件关联三 采用API实现的文件拖放 采用API实现的文件拖放下 反转桌面 设计更换屏幕保护的程序 用VB更换桌面墙纸上 一组VB实用小程序函数 用VB更换桌面墙纸下 编写映射驱动器 VB Mscomm控件应用上 VB Mscomm控件应用 VB Mscomm控件应用下 VB开发通讯软件上 VB开发通讯软件下 检验是否连接到网络上 检验是否连接到网络下 检验是否连接到网络 对齐排列控件上 对齐排列控件下 用VB编写一个弹出菜单类下 VB下几个非常有用的函数上 VB下几个非常有用的函数下 特效字体的显示 vb从域名得到IP及从IP得到域名上 vb从域名得到IP及从IP得到域名下 用VB编写一个弹出菜单类上 发布虚拟站点 十七种可用一行代码完成的技巧 阴阳历的算法一 阴阳历的算法二 阴阳历的算法三 VB与大型数据库的无数据源连接上 VB与大型数据库的无数据源连接 VB与大型数据库的无数据源连接下 为应用程序设置热键 谈谈VB的数据库编程方式 ActiveX控件的创建一 ActiveX控件的创建二 ActiveX控件的创建三 ActiveX控件的创建四 重启Windows 2000/NT系统 用VB编写键盘拦截程序 如何用VB6写COM组件 将立体ListView标题栏转换成平面式 菜单靠右 用VB建立自己的回收站上 用ADO对象实现动态WEB查询实例上 用VB建立自己的回收站下 用ADO对象实现动态WEB查询实例 用ADO对象实现动态WEB查询实例下 ASP技术访问WEB数据库上 ASP技术访问WEB数据库 ASP技术访问WEB数据库下 应用程序访问SQLServer方法探讨上 应用程序访问SQLServer方法探讨下 VB调用API函数检测当前系统环境上 VB调用API函数检测当前系统环境下 提高VB访问数据库的效率 数据库编程调用带参数存储过程的实现下 使ACCESS数据库保持同步上 VB以异步方式使用XMLHTTP对象 使ACCESS数据库保持同步下 袖珍数据库连接方式查询手册上 袖珍数据库连接方式查询手册下 深入探讨SQL2000对XML的支持一 深入探讨SQL2000对XML的支持二 深入探讨SQL2000对XML的支持三 深入探讨SQL2000对XML的支持四 深入探讨SQL2000对XML的支持五 SELECT查询的应用一 SELECT查询的应用二 SELECT查询的应用三 正常结束由Shell所引发的程序上 正常结束由Shell所引发的程序下 全面接触SQL语法六 全面接触SQL语法一 全面接触SQL语法二 全面接触SQL语法三 全面接触SQL语法四 全面接触SQL语法五 数据库查询结果的动态排序上 全文本检索的应用上 全文本检索的应用下 Rundll32用法浅说上 Rundll32用法浅说下 VB获取逻辑磁盘的信息 VB用程序实现代码分组报表打印输出 COM编程模型上 IE浏览器完全控制上 COM编程模型 COM编程模型下 IE浏览器完全控制下 IE右键菜单添加菜单项上 IE右键菜单添加菜单项 求解数列和通用程序 IE右键菜单添加菜单项下 Visual Basic的数据库编程一 Visual Basic的数据库编程二 Visual Basic的数据库编程三 Visual Basic的数据库编程四 Visual Basic的数据库编程五 Visual Basic的数据库编程六 网络数据库教程一 网络数据库教程二 网络数据库教程三 网络数据库教程四 网络数据库教程五 网络数据库教程六 网络数据库教程七 网络数据库教程八 网络数据库教程九 网络数据库教程十 网络数据库教程十一 网络数据库教程十二 网络数据库教程十三 RAS加密算法简介 MD5加密算法简介 QB运用递归法一例 使用VB编写自动反安装的程序 对象组件技术COM+ VB实现“擦视”技术上 VB实现“擦视”技术下 VB使用Delphi的控件 HOOKS说明书上 用VB实现应用程序局域网络上自动更新上 HOOKS说明书下 用VB制作常居上层的浮动工具箱 用VB实现应用程序局域网络上自动更新下 DCOM技术谈 面向VB编程人员的COM+综述 XML和数据库五 VB对底层硬件的访问控制 XML和数据库一 XML和数据库二 XML和数据库三 XML和数据库四 手工签署证书的方法 用VB编写DirectX7.0游戏一 用VB编写DirectX7.0游戏二 用VB编写DirectX7.0游戏三 用VB编写DirectX7.0游戏四 用VB编写DirectX7.0游戏五 用VB编写DirectX7.0游戏六 数据库查询结果的动态排序一 数据库查询结果的动态排序二 向过程传递参数上 向过程传递参数下 VB编程动态注册ActiveX控件 DoEvents函数 VBAPI实现多媒体 编程规范一 编程规范二 编程规范三 编程规范四 图象转换上 图象转换下 制作透明的任务栏上 制作透明的任务栏下 用WinSock设计Chat程序上 用WinSock设计Chat程序WinSock设计Chat程序下 实现文件查找功能
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值