[Biker89]

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

WinExec('"C:\Users\123\AppData\Loca l\Google\Chrome \Application\chrome.exe" http://www.ya.ru/',SW_show);

далее пытаюсь в адресную строку ввести какой-либо запрос вот так:

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
if wnd <>0 then
begin
wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
SetWindowText(wnd1,'www.ya.ru');
end;

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

[Aristarh Dark]

Так в заданную область экрана или в некий абстрактный контрол?

[Biker89]

вообще желательно в абстрактный,потому что 2 экрана и координаты соответственно меняются)

[Aristarh Dark]

Если в абстрактный то SetWindowText не во всех случаях работать будет. Можешь еще попробовать послать сообщение WM_SETTEXT, но тоже не факт что сработает.

[Biker89]

Сообщение от Aristarh Dark

Если в абстрактный то SetWindowText не во всех случаях работать будет. Можешь еще попробовать послать сообщение WM_SETTEXT, но тоже не факт что сработает.

а можно пример если не сложно?)

[Aristarh Dark]

Примерно так:

Код:

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     SendMessage(and1,WM_SETTEXT,0,Integer(PChar('Some text')));
   end;

[NumLock]

SetWindowText cannot change the text of a control in another application.
To set the text of a control in another process, send the WM_SETTEXT message directly instead of calling SetWindowText.

http://msdn.microsoft.com/en-us/libr...46(VS.85).aspx

[Biker89]

Сообщение от Aristarh Dark

Примерно так:

Код:

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     SendMessage(and1,WM_SETTEXT,0,Integer(PChar('Some text')));
   end;

чо то всё равно не пашет

Код:

WinExec('"C:\Users\Наталия\AppData\Local\Google\Chrome\Application\chrome.exe" http://www.ya.ru/',SW_show);
sleep(2000);
wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     SendMessage(wnd1,WM_SETTEXT,0,Integer(PChar('www.yan.ru')));
   setcursorpos (300,60);
   end;

с помощью сеткурсор убеждаюсь что цикл выполняется,но ничего не вводится в поисковую строку.пробывал на мозиле всё равно.
есть подозрение что путаю что либо в названиях окон.я с помощью spy++ определяю их названия.в wnd я записываю название всего окна (навожу прицел на название вкладки),а внд1 хромрендервиджет это название строки для поиска.может тут что то напутал и поэтому не пашет?)

[Biker89]

сделал вот так

Код:

begin
{WinExec('"C:\Users\Наталия\AppData\Local\Google\Chrome\Application\chrome.exe" http://www.ya.ru/',SW_show);}
sleep(2000);
wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     setcursorpos (600,30);
     if wnd1 <>0 then
     begin
     SendMessage(wnd1,WM_SETTEXT,0,Integer(PChar('www.yan.ru')));
     setcursorpos (300,60);
     end
     else setcursorpos (0,0);
   end;

Админ: Пользуемся тегами, иначе последуют санкции!

цикл с wnd1 вообще не выполняется,выполняется ветка else

[Aristarh Dark]

Ну значит не нашел он такого окна

[Biker89]

Сообщение от Aristarh Dark

Ну значит не нашел он такого окна

ну это то я понял)вопрос почему?)

[Biker89]

посоны ну хоть кто нить скажите где я ошибся)

[Aristarh Dark]

Будет интересно, стукнись ко мне в аську в воскресенье. Отвечу...

[Biker89]

Сообщение от Aristarh Dark

Будет интересно, стукнись ко мне в аську в воскресенье. Отвечу...

жду воскресенья!