源代碼：
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
只要程序不被關(guān)閉，點(diǎn)擊 開(kāi)始－關(guān)閉計(jì)算機(jī)－關(guān)閉，電腦也不會(huì)被關(guān)機(jī)。
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
