vb6 - vb6は画面をロックします

Question

VB6を使用してスクリーンロッカーを作成する方法を知りたいです。フレームを最大化しようとしましたが、それでも最小化できます。次に、フレームを画面全体に収まるように非常に大きくし、フレームのサイズを変更できないようにしましたが、誰かがAlt+F4を押して閉じることができます。また、タスクマネージャーを無効にしたい。だから誰かが私を助けてくれますか？

Answer 1

これはおそらくあなたがやろうとしていることではありませんが、WINAPI関数LockWorkStationを呼び出すことでウィンドウをロックすることができます。

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

でそれを呼び出す

Call LockWorkStation

.basモジュールにdeclareステートメントを配置し、フォームから呼び出す場合は、declareスコープをPublicに変更する必要があります。この機能は、Windows XP以降、およびWindowsServer2003以降でサポートされています。

Answer 2

アプリケーションの停止を完全に防ぐ絶対的な方法はありません。そして、なぜあなたがそれをするのかを知ることができますか？

それでも、cancelパラメーターを使用してユーザーがアプリケーションを閉じるのを防ぐことができます。

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

Answer 3

終了ボタンを削除して、フォームを動かせず、サイズを変更できないようにすることができます。タスクマネージャを停止するバッチファイルを次のように呼び出すことができます。

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

これにより、タスクマネージャが開いている場合、タスクマネージャが継続的に停止します。