VPF::Послать VK_Retutn c помощью keybd_event - Форум программистов

RinOSpro

Дата 1.11.2007, 11:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте помогите пожалуйста. Проблема такая есть edit в чужом приложении туда я посылаю текст и

должен там нажать enter
вот код

Код


s := 'Hello';
for j := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Word(s[j]), 0);

SendMessage(wnd, WM_CHAR, 13, 0);
SendMessage(wnd, WM_CHAR, 10, 0);

В том приложении после нажатия enter происходит действие, но у меня что то не получается этим

способом. Можно с помощью keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0); этот споссоб

работает но тогда в то приложение отправляется огромное количество этих энтеров. как мне можно сделать

чтобы заработало?

Alix

Дата 1.11.2007, 11:45 (ссылка)

(голосов:1)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

SendMessage(wnd, WM_KEYDOWM, VK_RETURN, 0);
SendMessage(wnd, WM_KEYUP, VK_RETURN, 0);
не работает?

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

RinOSpro

Дата 1.11.2007, 12:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Alix неработает. Я сделал вот как

Код

procedure TForm1.SendKeys(buffer: string; fHandle : HWND);
var i:integer;
   w:word;
   D:DWORD;
   P:^DWORD;
begin
P:=@D;
SystemParametersInfo(                      //get flashing timeout on win98
        SPI_GETFOREGROUNDLOCKTIMEOUT,
        0,
        P,
        0);
SetForeGroundWindow(fHandle);
for i:=1 to length(buffer) do
begin
   w:=VkKeyScan(buffer[i]);
   keybd_event(w,0,0,0);
   keybd_event(w,0,KEYEVENTF_KEYUP,0);
end;
SystemParametersInfo(                     //set flashing TimeOut=0
        SPI_SETFOREGROUNDLOCKTIMEOUT,
        0,
        nil,
        0);
SetForegroundWindow(TWinControl(TComponent(Self).Owner).Handle);
                                           //->typecast working...
SystemParametersInfo(                     //set flashing TimeOut=previous value
        SPI_SETFOREGROUNDLOCKTIMEOUT,
        D,
        nil,
        0);
end;

Alix

Дата 1.11.2007, 13:09 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

что это?

специально проверил. Написал для edit'a обработчик onKeyUp, а в другой программе:

Код

var
  wnd : HWND;
  s : string;

begin
  wnd := strtoint(edit1.text);

  s := 'Hello';
  sendmessage(wnd, wm_settext, 0, integer(pchar(s)));

  sendmessage(wnd, wm_keydown, vk_return, 0);
  sendmessage(wnd, wm_keyup, vk_return, 0);
end;

все отлично сработало. Как у тебя сделана реакция на enter для edit'a?

--------------------

RinOSpro

Дата 1.11.2007, 21:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Alix не спорю, обычно работает, но для того приложения, чтото эта штука не работала. Я хз по чему. Если что это приложение ApexDC++

Alix

Дата 1.11.2007, 21:59 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

у меня нету Apex'a, а ставить не хочу, может быть есть эквивалент в StrongDC? В принципе ифейс то у них одинаковый почти, скажи что за Edit, я проверю.

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

Это сообщение отредактировал(а) Alix - 1.11.2007, 22:45

--------------------

Alix

Дата 1.11.2007, 22:59 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

В общем получилось так (требуется хэндл окна и edit'a)

Код

procedure sendReturn(victimWindow, victimControl : HWND)
var
  myId,
  threadId : DWORD;

begin
  threadId := GetWindowThreadProcessId(victimWindow, nil);
  myId := GetWindowThreadProcessId(form1.Handle, nil);

  if AttachThreadInput(myId, threadId, true) then begin
    windows.SetFocus(victimControl);
    keybd_event(vk_return, mapvirtualkey(vk_return, 0), 0, 0);
    AttachThreadInput(myId, threadId, false);
  end;
end;

Добавлено через 2 минуты и 3 секунды
т.е. перед тем как симулировать нажатие кнопки мне надо установить активный контрол

Это сообщение отредактировал(а) Alix - 1.11.2007, 23:00

--------------------

RinOSpro

Дата 3.11.2007, 12:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Alix мой пример тоже не плохо работает, там можно посылать к томуже текст, только проблема есть.

,.)(*?:%;№"! - это он не воспринимает и прописные буквы он тоже не воспринимает. Как исправить Помогите.

RinOSpro

Дата 3.11.2007, 13:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот

Код


procedure TForm1.SendKeys(buffer: string; fHandle : HWND);
var
i:integer;
w:word;
D:DWORD;
P:^DWORD;
begin
P:=@D;
SystemParametersInfo(                      //get flashing timeout on win98
        SPI_GETFOREGROUNDLOCKTIMEOUT,
        0,
        P,
        0);
SetForeGroundWindow(fHandle);
for i:=1 to length(buffer)+1 do
begin
if buffer[i]<>#13 then
  SendMessage(fHandle, WM_CHAR, ord(buffer[i]), 0)
  else begin
    w := VkKeyScan(buffer[i]);
    keybd_event(w,0,0,0);
    keybd_event(w,0,KEYEVENTF_KEYUP,0);
  end; 

end;
SystemParametersInfo(                     //set flashing TimeOut=0
        SPI_SETFOREGROUNDLOCKTIMEOUT,
        0,
        nil,
        0);
SetForegroundWindow(TWinControl(TComponent(Self).Owner).Handle);
                                           //->typecast working...
SystemParametersInfo(                     //set flashing TimeOut=previous value
        SPI_SETFOREGROUNDLOCKTIMEOUT,
        D,
        nil,
        0);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »