让VB窗口无法关闭

Private Sub Form_Unload(Cancel As Integer)

Dim m, n

Set ws = CreateObject("wscriptshell")

Set say = CreateObject("sapispvoice")

i = MsgBox("你确定要退出吗？", vbOKCancel, "退出？"

If i = vbOK Then

For m = 0 To 5

n = 5 - m

wspopup " " & (n) & "秒后关闭程序", 1, "倒数"

Next

Else

Cancel = 1

End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = 1

End Sub

写在窗体代码里就无法关闭了

但是任务管理器可以关闭

非常难，几乎不可能实现。除非接管系统的一切鼠标键盘 *** 作，用hook实现。但是用很多杀毒软件，冰刃等工具还是可以关闭的。用冰刃都可以结束杀毒软件，更不用说一个小小的vb程序守护的窗口了。

也就是说就连杀毒软件都不能自保，你还想用vb程序去保护其他窗口？

以上就是关于让VB窗口无法关闭全部的内容，包括:让VB窗口无法关闭、VB如何设定窗口无法关闭,即使是任务管理器也无法强制关闭、这样用VB让一个窗口无法关闭等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！