Klick in Programmbereich Simulieren

[jacky213]

Hallo,

ich versuche mich daran ein minimiertes Programm zu steuern. xSpy zeigt mir beim Button namen Nil an, also dachte ich daran in dem Programm einfach auf eine bestimmte X Y Position zu Klicken. Kann mir da jemand helfen?

ein Ansatz hierfür wäre echt nett.

Das Programm muss allerdings im Hintergrund bleiben

Danke

[DieDolly]

Zitat:

ich versuche mich daran ein minimiertes Programm zu steuern.

Wie willst du ein nicht sichtbares Control anklicken? Gar nicht. Besonders nicht, weil es nicht dein Programm ist.

[Der schöne Günther]

Wenn du wirklich konkret einen "Mausklick an Stelle X|Y" simulieren willst kannst du das einfach mit SendInput machen. Aber ich glaube auch, das ist nicht was du wirklich willst. Vielleicht kannst du deine Anforderung etwas genauer beschreiben.

[jacky213]

ich habe das Windows Handle und an dieses Fenster möchte ich an Position X Y einen Klick schicken.

Ist das konkreter?

[Der schöne Günther]

--- vorschnell getippt. Erst denken, dann tippen ---

[jacky213]

Sofern es hilft, mir wird von xspy die ControlID angezeigt. Kann ich den Klick zu dieser ControlID senden oder über diese das richtige Handle ermitteln?

[jacky213]

ich bekomme zu dem button kein Handle, weder mit WinSpy noch mit xSpy, gibt es irgendeine andere Methode um daran zu kommen?

[Medium]

Wenn der Button kein Handle liefert, ist es kein natives Windows-Control (das Nachrichten empfangen könnte). Was in Folge heißt: Sofern es keine explizite Schnittstelle vom zu steuernden Programm gibt, hast du schlechte Karten es ohne Umweg über die Darstellung zu steuern. Was desweiteren heißt: Ohne sichtbares Fenster und definierte Maus-Koordinaten = sieht schlecht aus für dich.

[Luckie]

Um was für ein Programm handelt es sich denn? Und was tut es? Vielleicht kommt man ja auf anderen Weg zum Ziel.

[stahli]

Ist das ein selbst entwickeltes Programm oder ein fremdes?

[jacky213]

Es ist ein Waren wirtschafts Programm. Es ist nicht von mir. Es hat ein Tastenfeld inwelchem man die EAN eingeben kann um nach Kommissionierten Artikeln zu suchen. Anstatt nun jede Nummer einzeln einzugeben, wollte ich eine Liste abarbeiten lassen und immer wenn ich auf weiter klicke sollte die nächste Nummer eingegeben und gesucht werden.

Zur Zeit bekomme ich nur das Handle der hauptform und jeder Button welcher sich auf der Form selbst befindet wird mir als TButton angezeigt, ich bekomme einfach kein eindeutiges Handle. Nur die ControlID ist bei jedem Button anders.

[jacky213]

Es muss nicht zwingend im Hintergrund sein wenn es hilft. Ich habe jetzt mittels Coursor Positionierung und dem Code geschafft das sich was tut, allerdings reagieren einige Buttons trotzdem nicht auf den Klick, wenn ich aber mit der Maus dorthin Klicke dann funktioniert es. Keine Ahnung woran es liegt.

Delphi-Quellcode:

Procedure ClickNow;
var
eu: array [0..1] of TInput;
begin
  SetCursorPos(strtoint(form2.ListView1.Selected.SubItems[0]),
               strtoint(form2.ListView1.Selected.SubItems[1]));
  ZeroMemory(@eu,sizeof(eu));
  eu[0].Itype := INPUT_MOUSE;
  eu[0].mi.dwFlags :=MOUSEEVENTF_LEFTDOWN;
  eu[1].Itype := INPUT_MOUSE;
  eu[1].mi.dwFlags :=MOUSEEVENTF_LEFTUP;
  SendInput(2,eu[0],sizeof(TInput));
end;

[stahli]

Ich habe mal vor vielen Jahren etwas ähnliches gemacht und an eine Anwendung "Tastatur-Ereignisse" geschickt. Hoch, Runter, Tabs und Buchstaben.
Funktioniert hatte das bedingt, aber konkret helfen kann ich Dir leider hier nicht.

[jacky213]

Die Koordinaten stimmen, gibt es die Möglichkeit einen richtigen Hardware Maus Klick zu simulierten?

[KodeZwerg]

oldschool methode von www.swissdelphicenter.ch

Delphi-Quellcode:

// Set the mouse cursor to position x,y:
// Maus an Position x,y setzen:
SetCursorPos(x, y);

// Simulate the left mouse button down
// Linke Maustaste simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate the right mouse button down
// Rechte Maustaste simulieren
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);

// Simulate a double click
// Einen Doppelklick simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate a double click on a panel
// Einen Doppelklick auf einen Panel simulieren
SendMessage(Panel1.Handle, WM_LBUTTONDBLCLK, 10, 10);

[jacky213]

Ich habe jetzt mal eine Maus an den Rechner angeschlossen weil mich der Touch einfach mal total nervt und als ich damit am arbeiten war wurden selbst echte klicks mit der Maus teilweise nicht mehr angenommen?!?

Aber wirklich nur auf manchen Tasten des Nummernblocks auf dem Display, Touch funktionierte bis jetzt ohne jemals Probleme gemacht zu haben.

Sehr komisch

[jacky213]

kann das System zwischen echten Touch auf dem Bildschirm und einem mouse_event via Delphi Tool unterscheiden?

[Luckie]

Zitat:

Zitat von jacky213 (Beitrag 1458628)

kann das System zwischen echten Touch auf dem Bildschirm und einem mouse_event via Delphi Tool unterscheiden?

Ich frage noch mal.

[jacky213]

Was das Programm macht hab ich schon beschrieben falls du das meinst.

[jacky213]

Das ist ein guter Ansatz! Vielen Dank Frühlingsrolle

[DualCoreCpu]

Zitat:

Zitat von KodeZwerg (Beitrag 1458585)

oldschool methode von www.swissdelphicenter.ch

Delphi-Quellcode:

// Set the mouse cursor to position x,y:
// Maus an Position x,y setzen:
SetCursorPos(x, y);

// Simulate the left mouse button down
// Linke Maustaste simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate the right mouse button down
// Rechte Maustaste simulieren
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);

// Simulate a double click
// Einen Doppelklick simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate a double click on a panel
// Einen Doppelklick auf einen Panel simulieren
SendMessage(Panel1.Handle, WM_LBUTTONDBLCLK, 10, 10);

Von MOUSEEVENTF_LEFTDOWN und MOUSEEVENTF_LEFTUP habe ich bisher noch gar nichts gehört oder gelesen. WO sind diese Konstanten definiert? Und wie arbeiten die mouse_event() funktionen. Oder gibt es die irgendwo schon?

@Frühlingsrolle: Super! Danke auch von mir! So etwas suche ich auch gerade.

[himitsu]

Dort, wo alle WindowsAPIs zu finden sind.
https://docs.microsoft.com/en-us/win...er-mouse_event

Zuerst in der Windows.pas suchen und wenn nicht, dann kann man noch im $(BDS)-Pfad suchen oder nimmt eine Header-Konvertion von jemand anderem oder kopiert es sich selbst aus der Dokumentation.

[API]

Die mouse_event() Funktion wurde schon lange durch SendInput() ersetzt.
https://docs.microsoft.com/de-de/win...user-sendinput