| Вопрос: как послать нажатие клавиши НЕ АКТИВНОМУ окну з... | Добавлено: 14.11.02 13:15 |
Автор вопроса:  Dad | ICQ: 996691 |
|
как послать нажатие клавиши НЕ АКТИВНОМУ окну зная его hwnd и заголовок ?????? вот такая фича, закрыть это окно я могу , а вот эмулировать нажатие F1 не получается, че я неправильно делаю???? мне надо чтоб в НЕ АКТИВНОМ окне (игра) по таймеру нажимались клавиши(F1, F2, ...) может вообше можно как то по другому???? короче обязательно надо, чтоб нажатие клавишь ловило НЕ АКТИВНОЕ окно. это для игры Ультима Онлайн, там на клавиши можно написать макрос и нажимая клавишу будет выполняться действие, но это занимает комп, я видел для нее самопальные проги, которые жмут клавиши в неактивном окне игры, но они хреново написаны и слишком тормозят комп... '------------------------------------------ Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" _ Alias "PostMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long '''''''''Const VK_f1 = &H70 '''''''''Const WM_QUIT = &H12 Dim hW As Long '---------------------------------------------- Private Sub tim1_Timer() hW = FindWindow(vbNullString, "Безымянный - Блокнот" & Chr(0)) Call PostMessage(hW, &H12, 0, 0) 'работает !!!!! ''' Call PostMessage(hW, &H70, 0, 0) 'НЕ РАБОТАЕТ !!!!! |
| Ответы | Всего ответов: 0 |
Страница: