专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »VB教程 » windowsvb:如何在VB中终止Windows系统 »正文

windowsvb:如何在VB中终止Windows系统

来源: 发布时间:星期四, 2009年2月12日 浏览:116次 评论:0


在visual basic 程 序 中 可 以 使 用windows api 函 数 来 重 新 启 动 计 算 机 系 统 文 本 介 绍 如 何 退 出windows 并 关 闭 计 算 机 系 统 关 闭 计 算 机 系 统

   可 以 使 用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 计 算 机 被 物 理 地 安 全 地 关 机

   下 面 样 例 程 序 中 使 用 了 上 面 3 个 标 识 组 合 该 标 识 组 合(ewx_logoffewx_force 以 及ewx_reboot) 告 诉windows 退 出 所 有 正 在 执 行 进 程 使 用 户 退 出 网 络 登 录 使 计 算 机 系 统 处 于 准 备 状 态 以 供 用 户 关 机

样 例 程 序

   该 样 例 程 序 显 示 了 如 何 关 闭 计 算 机 系 统

   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_re = ewx_logoff + ewx_force + ewx_reboot


   3. 在form1 上 添 加 个 命 令 按 钮 控 件 采 用 缺 省 方 法 建 立comand1 将 它 caption 属 性 设 置 为“ 重 新 启 动 计 算 机”

   4. 将 如 下 代 码 添 加 到command1 单 击 事 件 中:


private sub command1_click
dim x as long
x = exitwindowsex(ewx_re, dwreserved)
end sub


   按 下f5 来 运 行 上 述 样 例 程 序 单 击 命 令 按 钮 即 可 重 新 启 动 计 算 机 系 统

0

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: