Webbrowser клик

[zdus2757]

мне нужен клик по рекламе, есть только class
кто может помочь?

[ClMlD]

отправляй обычный клик хенделу WebBrowser например PostMessage

[zdus2757]

не подходит надо чтобы webbrowser не отображался

[ClMlD]

для этого PostMessage какрас и нужен

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

для этого PostMessage какрас и нужен

Если окна не видно, то клик происходит в никуда.

zdus2757

Перебираете элементы DOM, находите эл. с аттрибутом class и нужным в нем содержимым. Кликаете.

[ClMlD]

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

var
  w:HWND;
begin
....
   w:=WebBrowser1.Handle;
   w :=GetIEHandle(WebBrowser1);
   postmessage(w,WM_MOVE,0,(100 shl 16)+ 100);
   postmessage(w,WM_LBUTTONDOWN,0,(100 shl 16)+ 100);
   PostMessage(w,WM_SETCURSOR,w,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
   postmessage(w,WM_LBUTTONUP,0,(100 shl 16)+ 100);
   PostMessage(w,WM_SETCURSOR,w,MakeLong(HTCLIENT,WM_LBUTTONUP));
......
end;

Клик будет в координатах 100 100
Растягиваете форму браузера на нужную длину за границы формы, например 1000 на 1000 , программа работает даже если WebBrowser не видно