Maus atomatisch klicken lassen

[5etH]

hallo Zusammen,

ich würde gerne einen teil in mein programm schreiben der die maus automatisch auf bestimmmten positionen klicken lässt ....
dazu wollte ich mal fragen ob es möglich ist und wie ich es realisieren kann ...
ich hab zwar schon die suche bennutzt aber nichts entsprechendes gefunden ....
im prinzip will ich verschiedene koordinaten klicken lassen in bestimmten zeitabständen

ihr sollt mir um gottes willen keinen code schreiben ^^ ich will ja was dabei lernen nur ein tipp wie oder mit welcher methode oder procedure ich es realisieren kann ^^

schonmal vielen Dank im vorraus
lg 5etH

[QuickAndDirty]

Hilft TMouse dabei?

[Deep-Sea]

http://www.swissdelphicenter.ch/de/showcode.php?id=360 :wink:

[taaktaak]

Moin, Moin.
Einen Mausklick (hier für die linke Taste) zu simulieren ist kein Problem:

Delphi-Quellcode:

..
mouse_event(MouseEventF_leftDown,x,y,0,0);
mouse_event(MouseEventF_leftUp,x,y,0,0);
..

alternativ kann natürlich auch direkt eine definierte Methode ...OnMouseDown() o.ä. aufgerufen werden. Kommt darauf an, was du speziell damit bewirken willst.

[FAlter]

Hi,

1. den Zeiger an die gewünschte Position schieben
SetCusrorPos

2. Maus klicken
3. Maus loslassen
MouseEvent

Zum beispiel so zu finden:
Mausklick Simulieren Delphi

Erstes Ergebnis: siehe oben (dreimal roter Kasten, dann muss ich den Link nicht nochmal hinschreiben)

Mfg
FAlter

[taaktaak]

... oder gleich wie von mir vorgeschlagen :stupid:

[5etH]

also was ich gerne damit machen würde ist das ich eine gewisse anzahl an koordinaten recorde und die dann clicken lasse und dazwischen ein sleep setze also ich drücke den butte und er klickt die selben immer wieder

[taaktaak]

Was sollen die Klicks auf die verschiedenen Koordinaten denn bewirken?

[5etH]

also bei dem programm kommen immer mal wieder meldungen auf und die werden dann weggeklickt und dann wird mit dem normalen ablauf weiter gemacht

aber die positionen sind immer gleich

[taaktaak]

Meldungen eines fremden Programms, die du "ferngesteuert" schließen willst?

[5etH]

ja so in etwa

[taaktaak]

so in etwa :?: "Fremd oder nicht fremd, das ist hier die Frage"

[5etH]

fremd in dem sinne das es nicht zu meinem programm gehört aber es ist auf meinem rechner ... im prinzip soll ich eine datenbank mit 20.000 einträgen übertragen und joa das dauert so etwas daher will ich ein programm schreiben was es für mich macht ... und dann notiert wenn es ein fehler gab also es sich nicht kopieren lies und die nr in eine memo packt

[5etH]

okay also ich habe per suche gefunden wie ich koordinaten ermittle und wie ich klicken kann ^^ *freu* aber jetzt tut sich ein anderes problem auf: sagen wir ich klicke im fremdprogeramm auf das feld in das ich hineinschreiben möchte .... dann weis ich aber nicht wie ich das übergeben kann also das er das hineinschreiben simoliert ? hat da wer ne idee oder lässt sich das nicht realisieren ?

[DeddyH]

Zu mouse_event gibt es ein Pendant keybd_event. Das wäre ein guter Suchbegriff ;)

[rollstuhlfahrer]

HI,

du kannst auch mittels FindWindow/FindWindowEx das Control suchen und diesem dann eine Nachricht schicken, dass ein gewisser Text für es da ist. Dies würde ich aber bei z.B. Datenbanken nicht bevorzugen, da die Anzahl der Controls expotentionell zu der Anzahl Ddatensätze steigt.
keybd_event benötigt zum Funktionieren eine Taste und den Parameter, ob drücken oder loslassen. In der CL sollte es da ne Funktion dafür geben, die auch Groß/Klein berücksichtigt.

Bernhard

[5etH]

ich denke das mir PostMessage mehr hilf da ich nur einen String aus einer Variablen übergeben muss bzw sie an die stelle schreibe an die ich vorher geklickt habe ... nur leider versth ich das überhaupt nicht was bei PostMessage die parameter sein sollen .... bin wohl noch zu neu im delphi universum .... auch das lesen der anderen threads und der hilfe an sich hat mich nicht weiter gebracht .... hoffe das ihr vill bereit seid mir zu helfen

ich will einfach nur den string von sagen wir edit1.text schreiben an die stelle wo ich zuvor in das feld geklickt habe ....

hoffe mal sehr auf eure hilfe

lg 5etH

[rollstuhlfahrer]

HI,

für PostMessage brauchst du 3 (nicht 4) Parameter.
1. Das Handle deines Ziels,
2. die Konstante WM_SETTEXT,
3. eine 0 und
4. einen Pointer.

Ich hoffe mal, dass du weißt, wie du an das Handle kommst. Für Parameter 4 brauchst du einen Zeiger auf einen mit #0 abgeschlossenen String, was der Datentyp String darstellt. Dieser wird einfach nach PChar gecastet. Schwupps hast du deinen Pointer, den du dann noch nach Integer casten musst, da die Funktion keinen Pointer sondern Zahlen will. So jetzt ist da wohl alles da um die Funktion aufzurufen.

Delphi-Quellcode:

procedure SetWndText(wnd: HWND{ Das Handle }; Text: String{ Der Text });
var tmp: PChar;
begin
tmp := PChar(text);
// tmp := Text;   // wems ao gefällt (nicht getestet)
// SendMessage(wnd, WM_SETTEXT, 0, Integer(tmp));
PostMessage(wnd, WM_SETTEXT, 0, Integer(temp));
end;

Fertig. Die genaue Beschreibung gibts bei MSDN unter WM_SETTEXT.

Bernhard