学习首页 百科 人生课堂 办公软件 英语学习 操作系统 故事会 编程资料 软件学习 设计
铭瑶网 >> 学习首页 >> 软件 >> VB.NET实现关机和重新启动
标题：VB.NET实现关机和重新启动

【字体： 大中小】 时间:2008-4-11 来源:互联网 作者:study

VB.NET实现关机和重新启动

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