Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отслеживание событий клавиатуры, в дочернем процессе 
:(
    Опции темы
kapbepucm
Дата 27.8.2007, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12
Вкратце проблема такая. Вызываю дочерний процесс (пока извращаюсь над Notepad.exe). Основной процесс должен "увидеть" что и как было нажато и отпущено на клавиатуре в "дочке". Наверное, Hook надо устанавливать. Есть особенность- таких вызовов будет много и часто. Как на VB проще и грамотнее это сделать?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
mihanik
Дата 27.8.2007, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
что-то типа
Код

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public 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
 
 Declare Function GetCurrentThreadId Lib "kernel32" () As Long
 
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public hHook As Long

Public Function to_do(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If wParam = 9 Then
    Beep
    Call UserForm1.Labb
End If
to_do = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 27.8.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12
Как корректно вызвать SetWindowsHookExA, где idHook=WH_KEYBOARD и привязка ко всем потокам дочернего процесса? (у меня получается установка Hook'a на все существующие потоки, что имхо неразумно). Или лучше у насильников спросить?

Это сообщение отредактировал(а) kapbepucm - 27.8.2007, 15:36


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0658 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.