vb6 - vb6锁屏

Question

我想知道如何使用 VB6 制作屏幕储物柜。我试过最大化框架，但它仍然可以最小化。然后我将框架做得非常大以适合整个屏幕并使框架无法调整大小，但有人可以按Alt+F4并关闭它。我还希望禁用任务管理器。那么任何人都可以帮助我吗？

score 5 · Accepted Answer

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

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

调用它

Call LockWorkStation

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

score 2 · Accepted Answer

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

不过，您可以使用取消参数阻止用户关闭应用程序。

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

score 1 · Accepted Answer

You can remove the exit button and make the form immovable and irresizeable. The you can call a batch file that will stop the task manager as :

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

This will continuously stop the task manager if it is opened.

3 回答 3