Блокировка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д