Поставлена задача запретить PrtScr.
Опыты с перехватом нажатия, autokeys и т.д. ни к чему не привели.
Можно ли (из vba) ?

Решил.
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 44 Then MsgBox ("Ups... PrtScr!?")
ClipBoard_SetData ("Ups... PrtScr!?")
End Sub

Короче буфер обмена надо очистить или подменить.

дык бери.
Недостаток: в каждую форму надо пихать.
Сделать бы для приложения целиком.
На всякий случай:

Option Compare Database Option Explicit Declare Function OpenClipboard Lib "User32" (ByVal hWnd As Long) As Long Declare Function CloseClipboard Lib "User32" () As Long Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal dwBytes As Long) As Long Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long Declare Function EmptyClipboard Lib "User32" () As Long Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, _            ByVal hMem As Long) As Long Function ClipBoard_SetData(str2Copy As String)         Dim hGlobalMemory As Long, lpGlobalMemory As Long         Dim hClipMemory As Long, X As Long         hGlobalMemory = GlobalAlloc(&H42, Len(str2Copy) + 1)         lpGlobalMemory = GlobalLock(hGlobalMemory)         lpGlobalMemory = lstrcpy(lpGlobalMemory, str2Copy)              GlobalUnlock hGlobalMemory         OpenClipboard 0&         X = EmptyClipboard()         hClipMemory = SetClipboardData(1, hGlobalMemory)         CloseClipboard End Function

Форму во весь экран
При Unload формы - буфер очищается
запретить вызов диспетчера задачь
запретить отображать процесс в диспетчере задач.

я так понимаю старта тоже не видно?

вот>

Да, это засада....

или кнопка старт (флажок на клаве)

ды да!

У мну приложение на vb6 написано - ничего делать не даёт...
можно тока комп вырубить.
я уж точно не помню как там делал, это было лет несколько назад.
может вспомню...

Изначально надо так делать...

как-то так cильно не ругать

Private Declare Function RegisterHotKey Lib "User32" (ByVal hWnd As Long, ByVal IDHOT As Integer, ByVal MOD_ALT As Integer, ByVal VK_SNAPSHOT As Integer) As Boolean 'Private Declare Function UnregisterHotKey Lib "User32" (ByVal hWnd As Long, ByVal IDHOT As Integer) Const IDHOT_SNAPDESKTOP = -2 Const IDHOT_SNAPWINDOW = -1 Const MOD_ALT = &H1 Const VK_SNAPSHOT = &H2C Call RegisterHotKey(Me.hWnd, IDHOT_SNAPDESKTOP, 0, VK_SNAPSHOT) Call RegisterHotKey(Me.hWnd, IDHOT_SNAPWINDOW, MOD_ALT, VK_SNAPSHOT)

shift + prtscr а что она делает?

вариант № 2
на кнопку PrintScreen - выводим 220 Вольт и после 2-х нажатий охота пропадет это делать (даже на домашнем)

Const MOD_SHIFT = &H4
Call RegisterHotKey(Me.hWnd, IDHOT_SNAPWINDOW, MOD_SHIFT, VK_SNAPSHOT)

В Windows 2003, при добавлении в реестр двоичного параметра: [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] "Scancode Map" можно отключить любую клавишу. В частности, для Print Screen, это: 00,00,00,00, 00,00,00,00, 02,00,00,00, 00,00,37,e0, 00,00,00,00

мож при запуске правитиь реестр а при закритыии - очищать эту фигню

оно оказывается ЗАработает только после перезагрузки.

220 в

Да это мы знаем. Но теоретически их не должно быть. У нас строгое администрирование. Даже флэшки отключены у юзеров. Но шпиономания процветает (не без оснований). Поэтому такие заморочки.

Даже флэшки отключены у юзеров

Мой следуший вапрос в форме как отклучит ? (без биоса если к компу потключён принтер ? )

использовать сетевые принтеры - а USB разъемы залиты эбоксидкой
сетевые разъемы запаяны в мать, корпус заварен.
клавы и мыши тоже впаяны намертво в мать
DVD приводы выломаны, дырки от них зацементированы
сам системник заварен в сейф, ключ от него в другом сейфе

но при это есть интернет - пиши-отправляй хочу-не-хочу.

если сетевой раъем доступен то кто мешает соеденить кроссовым кабелем системник с принесенным в кармане нет буком - а там и инет и все остальное.

почему?

- а вобще бабушка уборщица вечером открутит 8 винтиков - и винт отнесет "кому надо" - а утром прикрутит обратно (и даже не бабушка уборщика)

а зачем тогда камера ?

а офис по продаже жувачки и гандонов - шпиономания и безопасность превыше всего.


п.с. строя забор вокруг огорода - убедись что на огороде хоть что-то растет,
и стоимость забора не превышает стоимость сотни урожаев.

Принтскрин побежден.
См.прогу->
(написана на AutoIt, с треем, чтобы выйти. Можно и без трея)


ПС Вложение что-то не вкладывается. Error 1 ааа, размер.

http://zalil.ru/32911714