vb禁止关机的代码

源代码：

 

Private Declare Function SetProcessShutdownParameters Lib "kernel32" (ByVal dwLevel As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    Call SetProcessShutdownParameters(1279, 0&)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        Cancel = 1
    End If
End Sub

 

只要程序不被关闭，点击　开始－关闭计算机－关闭，电脑也不会被关机。