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

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强制关机代码 

Shell("cmd.exe /c shutdown -s -t 10000") 

system.diagnostic.process.start("shutdown") 
━━━━━━━━━━━━━━━━━━━━━━━━━ 
Shell "cmd.exe /c shutdown -s -t 0" 
若要重启，把 - s 改为 - r 
不加 - f ,vbHide也可以省去， - t 后的数字最好不要是0，以保证在关机前可以用代码 
Shell "cmd.exe /c shutdown -a" 
取消关机 
━━━━━━━━━━━━━━━━━━━━━━━━━