Mausdrag im Twebbrowser simulieren?

[BBoy]

Ich nutze EmbeddedWB und möchte das mein Programm eine Internetseite "zieht". Also linke Maustaste an eine Position drücken und mit gedrückter Maustaste in eine bestimmte Richtung zieht. Falls es eine rolle spielt, die Webseite ist Flash.

Wie kann man so etwas verwirklichen?

[BBoy]

Hat niemand eine Idee?

Gibt es eigentlich eine aktuelle Twebbrowser komponente? EmbeddedWB ist veraltet und wird nicht weiterentwickelt. Am besten eine mit mozilla engine.

[BBoy]

Ich habe es mal so probiert aber das ziehen funktioniert nicht.

Delphi-Quellcode:

procedure MoveMouse (X,Y,Speed: Integer);
var
  Maus : TPoint;
  mx, my, nx, ny, len : double;
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

  if Speed < 1 then Speed := 1;

  GetCursorPos(Maus);
  mx := maus.x;
  my := maus.y;

  While (mx<>x)OR(my<>y) Do begin
    nx := x-mx;
    ny := y-my;
    len := sqrt(nx*nx + ny*ny);

    if(len<=1)Then begin
      mx:=x;
      my:=y;
    end
    else begin
      nx := nx / (len*0.5);
      ny := ny / (len*0.5);
      mx := mx + nx;
      my := my + ny;
    end;
    SetCursorPos(Round(mx),Round(my));
    Sleep(Speed);
  end;
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

end;

Weiß jemand wie ich es hin bekomme das der Inhalt der Webbrowsers (in dem Fall ein Flash) gezogen wird. Also linke Maustaste drücken, gedrückt halten und nach rechts oder links bewegen.