Maus atomatisch klicken lassen

[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