VB.NET实现关机和重新启动
来源:互联网 发布:淘宝网窗帘 编辑:程序博客网 时间:2024/05/16 08:37
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
Const EWX_FORCE As Short = 4
Const EWX_LOGOFF As Short = 0
Const EWX_REBOOT As Short = 2
Const EWX_SHUTDOWN As Short = 1
Dim retval As Integer
' 定义Esc按键
Const VK_ESCAPE As Short = &H1Bs
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
If Option1.Checked Then
' 注销当前用户
retval = ExitWindowsEx(EWX_FORCE, 0)
ElseIf Option2.Checked Then
' 关闭计算机
retval = ExitWindowsEx(EWX_SHUTDOWN, 0)
ElseIf Option3.Checked Then
' 重新启动
retval = ExitWindowsEx(EWX_REBOOT, 0)
End If
End Sub
Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
Me.Close()
End Sub
' 按Esc键时,结束应用程序
Private Sub Form1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = VK_ESCAPE Then
Me.Close()
End If
If KeyAscii = 0 Then
eventArgs.Handled = True
End If
End Sub本实例通过使用ExitWindowEx()API函数来达到关机和重新启动的目的。在ExitWindowEx()函数中,参数uFlags指定要进行何种操作。在表86-2中列出了参数uFlags的值及其说明。
表86-2 参数uFlags的值及说明
常量名
值
说明
EWX_FORCE
4
终止所有进程,包括没有响应的进程,并注销Windows
EWX_REBOOT
2
重新启动系统
EWX_SHUTDOWN
1
关闭系统
EWX_LOGOFF
0
终止所有正在运行的进程,并注销Windows
- VB.NET实现关机和重新启动
- VB.NET实现关机和重新启动
- [VB.NET]实现关机和重新启动
- VB.NET实现关机和重新启动
- VB.NET实现关机和重新启动
- VB实现关机程序
- VB.NET中实现"关机/休眠/重启/注销
- VB.NET实现计算机关机/重启/休眠/注销
- vb.net实现Windows关机渐淡效果
- VB.NET实现计算机关机/重启/休眠/注销
- WinCE下面的关机,重新启动和冷启动
- 常用的关机和重新启动命令
- VB实现关机,重启
- 学习 Linux, 101: 运行级别、关机和重新启动
- [VB.NET]VB.NET怎样设计定时关机???
- VB.net 定时关机程序(WPF)
- VB.NET中实现"关机/休眠/重启/注销"的类
- VB.NET中实现"关机/休眠/重启/注销"的类
- 信息化:浅谈IT系统内部推广[转]
- VB.NET与WEB服务器通讯
- 用图像置换方法切换按钮
- 数据库用户操作
- VB.NET 获取磁盘信息
- VB.NET实现关机和重新启动
- struts和hibernate整和开发配置示例
- 黑客之门:深入浅出windows的dll文件[图]
- [WinForm每日一帖] UltraGrid如何自定义Row Filter的值
- 深入理解linux内核学习
- websphere性能调整建议
- 6.5多云
- java读取pdf文件内容
- 与木马病毒斗争到底