VB6禁止电脑关机和重启? 30

最近安装程序后老是莫名奇妙地就关机了,后来发现是该程序关的机,有些程序则不提示直接重启电脑,好恼火!网吧是无盘系统,关机系统就还原了,程序不重启用不了不要紧,但强行关机则... 最近安装程序后老是莫名奇妙地就关机了,后来发现是该程序关的机,有些程序则不提示直接重启电脑,好恼火!网吧是无盘系统,关机系统就还原了,程序不重启用不了不要紧,但强行关机则太不厚道了!有些程序可以选择取消关机,有些没得选择还倒计时关机,太可恶了,记事本弹出提示也拦不住关机.

这个程序还可以取消,但10秒内未操作依然会关机.我想用VB做个程序,阻止系统及程序关机,注销,重启.不能用Process方法,因为虽然能阻止关机,但会把其他程序关闭!! 不知能不能把所有程序发给系统的重启或关机消息全部拦截下来,或者让系统收到关机信息但不处理;或者禁掉关机功能也许,但要能恢复.幽灵网吧辅助工具就可以阻止所有的关机重启操作,但可能有病毒,不能用.

本人菜鸟,只写思路不写代码的请绕道!!! 展开





 我来答

1个回答

#热议# 空调使用不当可能引发哪些疾病？

liujj4241
2014-09-10 · TA获得超过4043个赞

知道大有可为答主

回答量：7021

采纳率：58%

帮助的人：794万

我也去答题访问个人页

关注

展开全部

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
这样只要这个程序开着，所有关机都不会工作。除非按电源