vb6锁定屏幕

Question

我想知道如何使用VB6制作屏幕锁屏。我试过最大化框架，但它仍然可以最小化。然后我使框架非常大以适应整个屏幕并使框架不可分割，但有人可以按 Alt + F4 并关闭它。我还希望禁用任务管理器。那么有人可以帮助我吗？

Answer 1

这可能不是你想要做的，但你可以通过调用WINAPI函数 LockWorkStation 来锁定窗口。

Option Explicit
Private Declare Function LockWorkStation Lib "User32" () As Boolean

用

调用它

Call LockWorkStation

如果将declare语句放在.bas模块中并从表单中调用它，则需要将声明范围更改为Public。 Windows XP及更高版本以及Windows Server 2003及更高版本支持此功能。

Answer 2

没有绝对的方法可以完全阻止应用程序停止。我们能知道你为什么这么做吗？

但是，您可以使用 cancel 参数阻止用户关闭应用程序。

private sub Form_unload(Cancel as Integer)
    Cancel = 1
End Sub

Answer 3

您可以删除退出按钮，使表单不可移动且不可复制。您可以调用批处理文件来停止任务管理器：

:run
taskkill /f /im taskmgr.exe
goto run

如果任务管理器被打开，这将持续停止。