Блокировка Ctrl+Alt+Del в VB.

Узнай цену своей работы

Формулировка задачи:

В данный момент занимаюсь разработкой менеджера безопасности. Выгдядит он стандартно: при загрузке ОС появляется форма во весь экран (поверх всех) с просьбой указать пароль. Но самое фиговое, что эту форму можно легко закрыть хотя бы тем же Ctrl+Alt+Del. Под ОС с 98 платформой сделал так, чтобы прогу не было видно в списке задач. А вод под NT... Че только не пробовал. Может кто подскажет, можно ли как-нибудь заблокировать Ctrl+Alt+Del, или на худой конец, клавиатуру? Стандартные KeyAscii и vbKey не помогают. Заранее благодарю.

Решение задачи: «Блокировка Ctrl+Alt+Del в VB.»

textual
Листинг программы
  1. Private Const SPI_SCREENSAVERRUNNING = 97&
  2. Private Declare Function SystemParametersInfo Lib "User32" _
  3. Alias "SystemParametersInfoA" _
  4. (ByVal uAction As Long, _
  5. ByVal uParam As Long, _
  6. lpvParam As Any, _
  7. ByVal fuWinIni As Long) As Long
  8.  
  9. Private Sub Form_Load()
  10. Command1.Caption = "Отключить комбинации !"
  11. Command2.Caption = "Включить комбинации !"
  12. End Sub
  13.  
  14. Private Sub Form_Unload(Cancel As Integer)
  15. 'Восстановить возможность использ. комбинаций CTRL+ALT+DEL и ALT+TAB
  16. Command2_Click
  17. End Sub
  18.  
  19. Private Sub Command1_Click()
  20. Dim lngRet As Long
  21. Dim blnOld As Boolean
  22. lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
  23. blnOld, _
  24. 0&)
  25. End Sub
  26.  
  27. Private Sub Command2_Click()
  28. Dim lngRet As Long
  29. Dim blnOld As Boolean
  30. lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _
  31. blnOld, _
  32. 0&)
  33. End Sub

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


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

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

11   голосов , оценка 4.273 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы