Перехватить и обезвредить сочитаний клавиш

[Valerik]

Привет всем
Народ мне нужно перехватить сочетание клавиш и послать вместо их кода ноль :
1) Alt - Tab
2) Alt - F4
3) Esc
4) Ctrl - Alt - Del
5) Клавишу Windows
6) Ctrl - Esc
7) Alt - Esc

И как сделать так чтобы с программы нельзя было убрать фокус, чтобы нельзя было передать фокус другим приложениям. Чтобы форма нетеряла Фокус !

Заранее Благодарен

[Ennor]

И как сделать так чтобы с программы нельзя было убрать фокус, чтобы нельзя было передать фокус другим приложениям. Чтобы форма нетеряла Фокус !

Странно, зарегистрировался ты здесь ажно в 2002-м, а таких вещей до сих пор не знаешь. Твое намерение противоречит идеологии мультизадачной ОС, каковой является винда. Не позволит она тебе такого.

[Max!]

Пазволит, пазволит в 98ых такое можно делать в ХР не знаю ,не пробовал

[codemaster]

И как сделать так чтобы с программы нельзя было убрать фокус, чтобы нельзя было передать фокус другим приложениям. Чтобы форма нетеряла Фокус !

Странно, зарегистрировался ты здесь ажно в 2002-м, а таких вещей до сих пор не знаешь. Твое намерение противоречит идеологии мультизадачной ОС, каковой является винда. Не позволит она тебе такого.

К зарегистрированному аж в 2001 году (Ennor ) и с тех пор так
и не прочитавшему ни одной книги по архитектуре Win !

Интересно узнать какая cвязь между идеологией мультизадачной ОС и фокусом формы?

[Valerik]

Ennor писал(а):
Странно, зарегистрировался ты здесь ажно в 2002-м, а таких вещей до сих пор не знаешь. Твое намерение противоречит идеологии мультизадачной ОС, каковой является винда. Не позволит она тебе такого.

Ну что сказать *censored* -> МОЛОДЦА.
НУ вот знай что нет нечего невозможного, я слышал что типа моно поставить Hook, кличитца точно не помню вроде как Set Windows Hook.
Вроде как моно сделать так чтобы ваще мультимедийные кнопки отрубить из под Windows, либо определённые сочетания. Только нуна вспомнить как это делается.

Может кто поможет

[Ennor]

В мастдае, к коему я отношу 9x/ME, можно и не такое сделать. Только вот... грамотный пользователь все равно такие навороты обойти сможет. А вот в винде (то есть NT) - уже вряд ли сделаешь, если только не начнешь напрямую патчить ntoskrnl.exe, hal.dll, etc. Три пальца еще никто не отменял.
Хотя, возможно, есть один штатный способ. В XP появился режим работы (не помню, как он называется), при котором вообще не показывается десктоп. Его как бы нет, сразу грузится твоя программа. Ну и по ее выходе тоже, соотв-но - шатдаун полный. На моей предыдущей работе народ так встроенные системы на черных ящиках делал.

2 CodeMaster: сделать модальную форму ты можешь только в пределах одного процесса (т.е., своего). А вот запретить юзеру переключиться на десктоп через, например, Win+D - я такого пока не встречал. Минимизируется все, даже MsgBox'ы - сам проверь.

[codemaster]

В мастдае, к коему я отношу 9x/ME, можно и не такое сделать. Только вот... грамотный пользователь все равно такие навороты обойти сможет. А вот в винде (то есть NT) - уже вряд ли сделаешь, если только не начнешь напрямую патчить ntoskrnl.exe, hal.dll, etc. Три пальца еще никто не отменял.
.................
2 CodeMaster: сделать модальную форму ты можешь только в пределах одного процесса (т.е., своего). А вот запретить юзеру переключиться на десктоп через, например, Win+D - я такого пока не встречал. Минимизируется все, даже MsgBox'ы - сам проверь.

Долго думал?
Почитай для начала книжку по Архитектуре (Администрированию )NT
подумай чем занимаются ntoskrnl.exe, hal.dll и что есть процесс
в NT

Да .......

[Ennor]

2 CodeMaster: Я что-то не въеду: это форум по VB 6 или по асму? И как ты собираешься в нулевое кольцо залезать?..

[codemaster]

2 CodeMaster: Я что-то не въеду: это форум по VB 6 или по асму? И как ты собираешься в нулевое кольцо залезать?..

человек спросил

И как сделать так чтобы с программы нельзя было убрать фокус, чтобы нельзя было передать фокус другим приложениям. Чтобы форма нетеряла Фокус ! ?..

Причем тут нулевое кольцо ntoskrnl.exe, hal.dll

[RayShade]

Valerik, еще один матюг и полетишь с форума как деревяннотехническое изделие над столицей европейской страны, подарившей миру Ги Савуа.

[Valerik]

Народ ну что некто чтоли не делал этого ?
Киньте пример кода, очень нуна

[Yurik]

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

Вот маленький пример прога ловит ALT+TAB:

Код: Выделить всё

'В модуль
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_TAB = &H9
Public Const VK_MENU = &H12

Код: Выделить всё

Private Sub tmrTimer_Timer()
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_TAB) Then

'Делаешь что то страшное

End If
End Sub

Все что тебе осталось узнать константы тех клавишь которые тебе еще осталось отловить....

[ChelDm]

Отключение действия Ctrl+Alt+Del в Windows 9x (не в NT!)

Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Для отключения реакции на Ctrl+Alt+Del:
SystemParametersInfo 97, True, ByVal 1&, 0

Для включения:
SystemParametersInfo 97, False, ByVal 1&, 0

Примечание: Не забудьте после закрытия программы снова включить реакцию на Ctrl+Alt+Del.

Скрытие программы в списке задач Task Manager (т.е. в списке Ctrl+Alt+Del)

Declare Function RegisterServiceProcess Lib "kernel32.dll" _
(ByVal dwProcessId As Long, ByVal dwType As Long) As Long

Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

Для скрытия:
RegisterServiceProcess GetCurrentProcessId, 1

Для показа:
RegisterServiceProcess GetCurrentProcessId, 0

[Memfivosfey]

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

Дело говоришь!

'В модуль
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_TAB = &H9
Public Const VK_MENU = &H12

Код:
Private Sub tmrTimer_Timer()
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_TAB) Then

'Делаешь что то страшное

End If
End Sub

А за это спасибо...

[Sebas]

'В модуль
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_TAB = &H9
Public Const VK_MENU = &H12

Код:
Private Sub tmrTimer_Timer()
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_TAB) Then

'Делаешь что то страшное

End If
End Sub

А за это спасибо...

Не успеешь ты не фига(((

[Memfivosfey]

'В модуль
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_TAB = &H9
Public Const VK_MENU = &H12

Код:
Private Sub tmrTimer_Timer()
If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_TAB) Then

'Делаешь что то страшное

End If
End Sub

А за это спасибо...

Не успеешь ты не фига(((

Ты вроде гуру, а по делу говорить не умеешь...
Если есть что, говори, а нет не болтай в пустую.....

[Amed]

Memfivosfey, не обращай внимания... Гуры - они такие

А Sebas дело говорит, только загадками

[Samrat]

Самое простое присвоить окну аттрибут system - modal , точно не помню, короче сделать его системным и модальным а единственную кнопку заблокировать нафиг . Конечно западло дикое - зато просто и сердито.

[Amed]

Samrat, обрадую: это вообще не западло...

[Sebas]

Короче, вот штука, которой я спасаюсь от кей логгеров.

Выдрал из проекта, так чистите сами, если есть желание. Мож деклараций не хватит. (остались в других модулях....)

класс

Код: Выделить всё

Option Explicit

Private Hooked As Boolean


Public Event MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Public Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Public Event MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Public Event KeyDown(KeyCode As Integer, Shift As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event SystemKeyDown(KeyCode As Integer)
Public Event SystemKeyUp(KeyCode As Integer)

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long)

Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208
Private Const WM_MBUTTONDBLCLK = &H209
Private Const WM_MOUSEWHEEL = &H20A
Private Const WM_SYSTEMKEYDOWN = &H104
Private Const WM_SYSTEMKEYUP = &H105

Private Const WH_JOURNALRECORD = 0
Private Const WH_GETMESSAGE = 3

Private Type EVENTMSG
     wMsg As Long
     lParamLow As Long
     lParamHigh As Long
     msgTime As Long
     hWndMsg As Long
End Type

Dim EMSG As EVENTMSG

Public Function SetHook() As Boolean
On Error Resume Next
    If Hooked Then Exit Function
    hJournalHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf JournalRecordProc, App.hInstance, 0)
    'If hAppHook = 0 Then hAppHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf AppHookProc, App.hInstance, App.ThreadID)
    SetHook = True
    Hooked = True
End Function

Public Sub RemoveHook()
'Dim x As Long
On Error Resume Next
    'UnhookWindowsHookEx hAppHook
    If Not Hooked Then Exit Sub
    Call UnhookWindowsHookEx(hJournalHook)
    Hooked = False
End Sub

'Private Sub Class_Initialize()
'On Error Resume Next
    'SHptr = ObjPtr(Me)
'End Sub

Private Sub Class_Terminate()
On Error Resume Next
    If Hooked Then RemoveHook
    'If hJournalHook Or hAppHook Then RemoveHook
End Sub

Friend Function FireEvent(ByVal lParam As Long)
On Error Resume Next
  Dim i%, j%, k%
  Dim s As String
  If lParam = WM_CANCELJOURNAL Then
     hJournalHook = 0
     SetHook
     Exit Function
  End If
 
  CopyMemory EMSG, ByVal lParam, Len(EMSG)
  Select Case EMSG.wMsg
    Case WM_KEYDOWN
         j = 0
         If GetAsyncKeyState(vbKeyShift) Then j = (j Or 1)        'fixed by JJ
         If GetAsyncKeyState(vbKeyControl) Then j = (j Or 2)      'fixed by JJ
         If GetAsyncKeyState(vbKeyMenu) Then j = (j Or 4)         'fixed by JJ
         s = Hex(EMSG.lParamLow)
         k = (EMSG.lParamLow And &HFF)
         RaiseEvent KeyDown(k, j)

    Case WM_KEYUP
         j = 0                                                    'fixed by JJ
         If GetAsyncKeyState(vbKeyShift) Then j = (j Or 1)        'fixed by JJ
         If GetAsyncKeyState(vbKeyControl) Then j = (j Or 2)      'fixed by JJ
         If GetAsyncKeyState(vbKeyMenu) Then j = (j Or 4)         'fixed by JJ
         s = Hex(EMSG.lParamLow)
         k = (EMSG.lParamLow And &HFF)
         RaiseEvent KeyUp(k, j)
         's = Left$(s, 2) & Right$("00" & Hex(k), 2)               'fixed by JJ
         'EMSG.lParamLow = CLng("&h" & s)
         'CopyMemory ByVal lParam, EMSG, Len(EMSG)
    'Case WM_MOUSEMOVE
    '     i = 0                                                    'fixed by JJ
    '     If GetAsyncKeyState(vbKeyLButton) Then i = (i Or 1)      'fixed by JJ
    '     If GetAsyncKeyState(vbKeyRButton) Then i = (i Or 2)      'fixed by JJ
    '     If GetAsyncKeyState(vbKeyMButton) Then i = (i Or 4)      'fixed by JJ
    '     j = 0                                                    'fixed by JJ
    '     If GetAsyncKeyState(vbKeyShift) Then j = (j Or 1)        'fixed by JJ
    '     If GetAsyncKeyState(vbKeyControl) Then j = (j Or 2)      'fixed by JJ
    '     If GetAsyncKeyState(vbKeyMenu) Then j = (j Or 4)         'fixed by JJ
    '     RaiseEvent MouseMove(i, j, CSng(EMSG.lParamLow), CSng(EMSG.lParamHigh))
    'Case WM_LBUTTONDOWN, WM_RBUTTONDOWN, WM_MBUTTONDOWN
    '     i = 0                                                    'fixed by JJ
    '     If GetAsyncKeyState(vbKeyShift) Then i = (i Or 1)        'fixed by JJ
    '     If GetAsyncKeyState(vbKeyControl) Then i = (i Or 2)      'fixed by JJ
    '     If GetAsyncKeyState(vbKeyMenu) Then i = (i Or 4)         'fixed by JJ
    '     RaiseEvent MouseDown(2 ^ ((EMSG.wMsg - 513) / 3), i, CSng(EMSG.lParamLow), CSng(EMSG.lParamHigh))
    'Case WM_LBUTTONUP, WM_RBUTTONUP, WM_MBUTTONUP
    '     i = 0                                                    'fixed by JJ
    '     If GetAsyncKeyState(vbKeyShift) Then i = (i Or 1)        'fixed by JJ
    '     If GetAsyncKeyState(vbKeyControl) Then i = (i Or 2)      'fixed by JJ
    '     If GetAsyncKeyState(vbKeyMenu) Then i = (i Or 4)         'fixed by JJ
    '     RaiseEvent MouseUp(2 ^ ((EMSG.wMsg - 514) / 3), i, CSng(EMSG.lParamLow), CSng(EMSG.lParamHigh))
    Case WM_SYSTEMKEYDOWN
         s = Hex(EMSG.lParamLow)
         k = (EMSG.lParamLow And &HFF)
         If k <> vbKeyMenu Then RaiseEvent SystemKeyDown(k)
         's = Left$(s, 2) & Right$("00" & Hex(k), 2)               'fixed by JJ
         'EMSG.lParamLow = CLng("&h" & s)
         'CopyMemory ByVal lParam, EMSG, Len(EMSG)
    Case WM_SYSTEMKEYUP
         s = Hex(EMSG.lParamLow)
         k = (EMSG.lParamLow And &HFF)
         If k <> vbKeyMenu Then RaiseEvent SystemKeyUp(k)
         's = Left$(s, 2) & Right$("00" & Hex(k), 2)               'fixed by JJ
         'EMSG.lParamLow = CLng("&h" & s)
         'CopyMemory ByVal lParam, EMSG, Len(EMSG)
    Case Else
        'Debug.Print "Hook code = " & EMSG.wMsg
  End Select
End Function


модуль

Код: Выделить всё

Option Explicit
Type POINTAPI
        x As Long
        y As Long
End Type

Type TMSG
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public hJournalHook As Long ', hAppHook As Long
'Public SHptr As Long
Public Const WM_CANCELJOURNAL = &H4B

Public Function JournalRecordProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error Resume Next

    If nCode < 0 Then
            JournalRecordProc = CallNextHookEx(hJournalHook, nCode, wParam, ByVal lParam)
            Exit Function
        End If
       
 
  Call CallNextHookEx(hJournalHook, nCode, wParam, ByVal lParam)
  frmMain.SystemHook.FireEvent lParam
  'ResolvePointer(SHptr).FireEvent lParam
 
End Function

'Public Function AppHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'On Error Resume Next
'    If nCode < 0 Then
'            AppHookProc = CallNextHookEx(hAppHook, nCode, wParam, ByVal lParam)
'            Exit Function
'        End If
'    Dim msg As TMSG
'
'    CopyMemory msg, ByVal lParam, Len(msg)
'    Select Case msg.message
'        Case WM_CANCELJOURNAL
'            If wParam = 1 Then ResolvePointer(SHptr).FireEvent WM_CANCELJOURNAL
'        End Select
'
'   Call CallNextHookEx(hAppHook, nCode, wParam, ByVal lParam)
'End Function

'Private Function ResolvePointer(ByVal lpObj&) As clsHook
'On Error Resume Next
'    Dim oSH As clsHook
'    CopyMemory oSH, lpObj, 4&
'    Set ResolvePointer = oSH
'    CopyMemory oSH, 0&, 4&
'End Function




[tyomitch]

Код оловянниковский, только почему-то его копирайты стёрты. Ай, как некрасиво...

[Samrat]

Код оловянниковский, только почему-то его копирайты стёрты. Ай, как некрасиво...
Интересная тема выехала. Copyriht мужики просветите меня неграмотного. То есть даже путем проб и ошибок написав такой - же код, я что не свободен в его примении? Ведь для каждой задачи множество работоспособных вариантов кода сильно ограниченно и написать тоже самое элементарно причём с точностью до буквы.....

[tyomitch]

Вот когда твой код кто-нибудь будет выдавать за свой, тогда ты и поймёшь - элементарно или нет

[attackie]

Это НЕ ТВОЙ код. Ты МОЖЕШЬ его использовать, раз тебе его дали. Но ты не можешь его выдавать за свой, потому что он НЕ ТВОЙ, у него есть АВТОР.

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

[Sebas]

Вот, балин, этот код у меня с 2000 года, и чё, я должен помнить откуда я его взял?

Ну,звиняйте, я свои райт тож не ставил.

ЗЫ: Чтото я е видел чтоб примеры зеся пестрели копирайтами)))

[Samrat]

Ну что - же ситуация со сферическим кодом в вакууме понятна, но похоже вы не совсем до конца прочитали мой вопрос. Когда я читаю похожие строки у Эпплмана я понимаю что, он живёт на западе и всё такое, но нам то сирым теперь что - бежать по поводу и без в патентное бюро и патентовать вложенный 2 раза цикл for - next(double click уже запатентован ) или ещё какое либо классическое решение. По моему речь о копирайте может идти только в суде и только для изначально неразглашённых кодов. Если Ты выложил свою интеллектуальную собственность на всеобщее обозрение - ты её обобществил ВСЁ, ОНА ТЕПЕРЬ НЕ ТВОЯ, А ОБЩАЯ, ну а любишь копирайт и не хочешь кормить нахлебников - СМОТРИ ВНИМАТЕЛЬНЕЕ ЧЕМ ДЕЛИШЬСЯ !!!!!!!!!

[Samrat]

Помните: информация обладает сверхтекучестью

[tyomitch]

Samrat, ты путаешь патент и копирайт.


Вот, например написал Vitaly1 книгу. По-твоему получается, что либо он её никому не должен показывать (а зачем тогда он её написал?), либо любой может её копировать и выдавать за свою - так, что ли?

[GSerg]

Авторское право (не совсем точно называемое копирайтом) появляется у автора по факту создания произведения (по закону программный код относится к категории литературных произведений) и не требует дополнительной регистрации, хотя такая регистрация и может быть предпринята.

Право использования, право распоряжения и право собственности - это три разных вещи.

И даже если ты продал своё произведение с потрохами, ты не теряешь права называться его автором.

[Ariman]

Кстати, а разве нельзя своей проге периодически слать сообщения, чтоб она была активной??? Если их слать достаточно часто, юзаер и не заметит, что переставил фокус.............