Question

用VB编程做关不掉的窗口

Answer 1

真正关不掉的窗口是不存在的，且不说道德、安全这些你可能不以为然的东西，单就技术层面而言，由于每个窗口都是由操作系统统一生成的（换句话说VB程序中生成的窗口并不是由VB自己生成的，而是VB“通知”操作系统生成的），因此操作系统始终掌握着窗口的生死大权，不管窗口如何采取规避措施，操作系统只要把你从内存中抹掉你就只有灰飞烟灭的结局。在现在越来越重视安全的大背景下，如果程序中存在“关不掉的窗口”，也会被360等安全软件认为是流氓软件或恶作剧软件从而进行拦截和报警。

当然，在VB中搞个糊弄小孩子的“关不掉的窗口”还是很简单的：

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

这可以屏蔽用鼠标点击X、按键盘Alt+F4等常规的关闭窗口方式，但仍然可以通过任务管理器的“应用程序”或“进程”进行强行关闭。

如果再加上下面这段：

Private Sub Form_Load()
App.TaskVisible = False
End Sub

那么程序窗口将不会出现在任务管理器的“应用程序”中，但仍然可以通过关闭进程的方式进行关闭。

Answer 2

将窗体的最大、最小、关闭等属性隐藏即可实现你的目的。

但只要窗体显示出来，用户就能在任务管理器中找出它的进程或线程，就能关闭它。