переход на заданный сайт или как вставить в заданное место заданный текст

[Человек_Борща]

Мазилы под рукой нет. У Spy++ есть интересная функция FindWindow... "прицел" наводим на адресную строку и получаем название или имя класса поля ввода.
При помощи FindWindowEx получаем хэндл этого поля ввода. К примеру:

var
  wnd,wnd1:HWND;
begin
wnd:=FindWindow('MozillaWindowClass',nil);
if wnd <> 0 then
begin
wnd1:=FindWindowEx(wnd,nil,'TpoleVvoda',nil);
SetWindowText(wnd,'http://ololol.ru');
end;
end;

[Biker89]

пишу вот это


procedure TForm1.adressClick(Sender: TObject);
begin
sleep (1000);
wnd:=FindWindow('Chrome_WidgetWin_0 ',nil);
if wnd <>0 then
begin
wnd1:=FindWindowEx (wnd,nil,'Chrome_AutocompleteEditVi ew',nil);
SetWindowText(wnd,'www.abc.ru');
end;

при проверке выдаёт ошибку в параметрах к FindWindowEx.в чём проблема?

[Пепел Феникса]

второй параметр 0 должен быть.

[Biker89]

чё то всё равно не пашет.spy++ вообще не определяет адресную строку мазилы как отделаьный элемент.попробывал на chrome.

procedure TForm1.adressClick(Sender: TObject);
begin
sleep (2000);
wnd:=FindWindow('Chrome_WidgetWin_0 ',nil); -хром виджет вин это то когда наводишь прицел на самый верх хрома(где расположено закрыть,во весь экран,свернуть),вообщем как я понял это имя окна,а оно нам и нужно
if wnd <>0 then
begin
wnd1:=FindWindowEx (wnd,0,'Chrome_AutocompleteEditView ',nil); -хромавтокомплит это адресная строка хрома
SetWindowText(wnd1,'www.ya.ru');
end;
end;


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

[Biker89]

смог сделать переход на заданный адрес вот так

procedure TForm1.adressClick(Sender: TObject);
begin
sleep (2000);
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;

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

[Biker89]

попробывал чуть изменить


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,Integ er(PChar('www.yan.ru')));
setcursorpos (300,60);
end
else setcursorpos (0,0);
end;

вот так ветка с wnd1 не выполняется.выполняется else (курсор перемещается в (0,0))=>он просто не находит такую строчку и ошибка где то там.может глянет кто свежим взглядом?)

[eduard93]

Пробелы в названиях классов у вас в коде, или просто форум так глюканул?

[Biker89]

Сообщение от eduard93

Пробелы в названиях классов у вас в коде, или просто форум так глюканул?

эм)видимо форум.плюс программа запускается и ошибок не выдаёт,так что с орфографией вроде всё ок
и прошу давайте без вы)

[eduard93]

Может тогда попробовать другой способ взаимодействия с браузером? С помощью MSAA должно быть вполне возможно ввести текст в адресную строку браузера.

[Biker89]

Сообщение от eduard93

Может тогда попробовать другой способ взаимодействия с браузером? С помощью MSAA должно быть вполне возможно ввести текст в адресную строку браузера.

ввести текст в адресную строку я уже смог)у меня проблема чтобы ввести текст в определенную зону экрана (например строка поиска на яндексе)