Блокировка Ctrl+Alt+Del в VB.
Формулировка задачи:
В данный момент занимаюсь разработкой менеджера безопасности.
Выгдядит он стандартно: при загрузке ОС появляется форма во весь экран (поверх всех) с просьбой указать пароль. Но самое фиговое, что эту форму можно легко закрыть хотя бы тем же Ctrl+Alt+Del. Под ОС с 98 платформой сделал так, чтобы прогу не было видно в списке задач. А вод под NT... Че только не пробовал. Может кто подскажет, можно ли как-нибудь заблокировать Ctrl+Alt+Del, или на худой конец, клавиатуру?
Стандартные KeyAscii и vbKey не помогают.
Заранее благодарю.
Решение задачи: «Блокировка Ctrl+Alt+Del в VB.»
textual
Листинг программы
Private Const SPI_SCREENSAVERRUNNING = 97& Private Declare Function SystemParametersInfo Lib "User32" _ Alias "SystemParametersInfoA" _ (ByVal uAction As Long, _ ByVal uParam As Long, _ lpvParam As Any, _ ByVal fuWinIni As Long) As Long Private Sub Form_Load() Command1.Caption = "Отключить комбинации !" Command2.Caption = "Включить комбинации !" End Sub Private Sub Form_Unload(Cancel As Integer) 'Восстановить возможность использ. комбинаций CTRL+ALT+DEL и ALT+TAB Command2_Click End Sub Private Sub Command1_Click() Dim lngRet As Long Dim blnOld As Boolean lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _ blnOld, _ 0&) End Sub Private Sub Command2_Click() Dim lngRet As Long Dim blnOld As Boolean lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _ blnOld, _ 0&) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д