Клик мышью в свернутом webbrowser

[Кинельски]

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
Begin
h:=form1.webbrowser1.handle;
Postmessage(h,WM_LBUTTONDOWN,0,(15 shl 16)+50);
Postmessage(h,WM_LBUTTONUP,0,(15 shl 16)+50);
end;

на ссылку не нажимается, но если заменить 'webbrowser1' на 'Button2', на кнопку жмет не зависимо от координат. Подскажите как нажать в бросвере на ссылку.

[|{ot]

Именно на ссылку в веб-странице?

webbrowser1 - это компонент веб браузера по умолчанию или что это??

(15 shl 16)+50

Зачем пишеш эту константу, и еще вычисляеш ее в процессе выполнения, и где ее взял то?

В последнем параметре сообщения WM_LBUTTONDOWN передается координаты мыши, которые возможно нужны процедуре обработки сообщения в программе. В данном случае они не нужны.

Для уверенности последовательности получения сообщений окном приложения, посылай сообщения функцией SendMessage - она синхронная.

Нажать на кнопку можно так:
1. Получаем любым из способов хендл окна, в котором кнопка располагается (к примеру FindWindow)
2. Потом последовательно получаем хендлы всех родительских элементов данной кнопки (к примеру есть:
Окно (класс TWindow, заголовок "Окно") -> В окне Панель (класс TPanel, заголовок "Панель")-> на панели кнопка (класс TButton, заголовок "Жми")
Ищем это окно по классу или заголовку ф-цией FindWindow, затем получаем хэндл панели, ф-цией FindWindowEx, а затем уже хэндл кнопки.. Ей то и отправляем сообщения.)
3. Добравшись до хэндла кнопки, управляем ею.

Где то так:

var
  h:HANDLE;
begin
  h:=FindWindow('TWindow',nil);
  if h <> nil then begin
    h=FindWindowEx(h,nil,'TPanel',nil);
    ...
    h=FindWindowEx(h,nil,nil,'Жми');
    ...
    SendMessage(h,WM_LBUTTONDOWN,0,0);
    SendMessage(h,WM_LBUTTONUP,0,0);
  end;
end;

//На паскале не пишу, если что...

Иерархию компонентов можно посмотреть с помощью программы WinDowse

А если нужно именно на ссылку нажать.. то либо получай весь код странички из браузера (или через сокеты) а там уже парси нужную ссылку...

[Кинельски]

Не парсинг страницы не подходит,нужно нажать на ява скрипт, вроде делаю также как и все , а он не нажимается, может у кого есть рабочий исходник или уже скомпилированый файлик? Смотрел что происходит через WinSight, максимум чего добился это что черным закрасился квадратик напротив Sell Embedding, а когда вручную нажимаешь закрашиваются все три

Вот рисунок из программы WinSigth

[NewHorek]

Что бы реально программно кликнуть где то в webbrowser, или еще чего эмулировать надо сообщения посылать не в хэндл webbrowser а в хэндл IE
Находим хэндл
// функция находит реальный IE

function GetIEHandle(WebBrowser: TWebbrowser; ClassName: string): HWND;
var
  hwndChild, hwndTmp: HWND;
  oleCtrl: TOleControl;
  szClass: array [0..255] of char;
begin
  oleCtrl :=WebBrowser;
  hwndTmp := oleCtrl.Handle;
  while (true) do
  begin
   hwndChild := GetWindow(hwndTmp, GW_CHILD);
   GetClassName(hwndChild, szClass, SizeOf(szClass));
   if (string(szClass)=ClassName) then
   begin
   Result :=hwndChild;
   Exit;
   end;
   hwndTmp := hwndChild;
  end;
  Result := 0;
end;

ну а затем какое надо сообщение

var
  H : hwnd;
begin
 H := GetIEHandle(WB,'Internet Explorer_Server');
 SendMessage(H,WM_MOUSEMOVE,0,MakeLong(x,y);
end

[vhawk]

Сообщение от Кинельски

Вот код:

Postmessage(h,WM_LBUTTONDOWN,0,(15 shl 16)+50);
Postmessage(h,WM_LBUTTONUP,0,(15 shl 16)+50);
end;

а что это за координаты и куда их можно применить?

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

координаты куда вы "кликаете" внутри компонента.

[Florento]

Использовал код, который выложил NewHarek. Но появилась другая проблема. Нужен клик в Flash игре. По ссылкам кликает, работает. Но когда открываю сайт игры в WebBrowser, кликать отказывается. В чем может быть проблема? Игра полностью flash.