Mausdrag im Twebbrowser simulieren?
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? |
AW: Mausdrag im Twebbrowser simulieren?
Hat niemand eine Idee?
Gibt es eigentlich eine aktuelle Twebbrowser komponente? EmbeddedWB ist veraltet und wird nicht weiterentwickelt. Am besten eine mit mozilla engine. |
AW: Mausdrag im Twebbrowser simulieren?
Ich habe es mal so probiert aber das ziehen funktioniert nicht.
Delphi-Quellcode:
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.
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz