女性阳虚吃什么中成药:vb禁止关机的代码

来源:百度文库 编辑:偶看新闻 时间:2024/04/30 21:31:48
源代码: 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
 只要程序不被关闭,点击 开始-关闭计算机-关闭,电脑也不会被关机。