Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Клавиатурный шпион Добавлено: 08.11.03 16:07  

Автор вопроса:  MACROS
Подскажите как сделать клавный шпион, только чтобы он учитывал ВСЕ нажатые клавиши по все Виндовс.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Dima22



Вопросов: 5
Ответов: 57
  Профиль | | #1 Добавлено: 08.11.03 17:40
Погодь, на работе на серваке пороюсь - где-то код был.

Ответить

Номер ответа: 2
Автор ответа:
 Dima22



Вопросов: 5
Ответов: 57
  Профиль | | #2 Добавлено: 09.11.03 14:42

Вспомнил!

в модуль:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Public Const VK_DELETE = &H2E ' константа для Delete
                                ' другие зазырь в АПИ вьювере


Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_DELETE) = 1 Then
MsgBox "del pressed"
  End If
End Sub

ЗЫ. Если реагировать не будет - попробуй в таймере интервал побольше задать (400-500 миллисек.)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам