Блокировка 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы